Added a new Database property to the DB Login Form.

this allows us easy access to what database the user selected.

1 files changed, 7 insertions, 0 deletions

diff --git a/src/gui/promptuserdialog.inc b/src/gui/promptuserdialog.inc
index 45f48000..a236ae12 100644
--- a/src/gui/promptuserdialog.inc
+++ b/src/gui/promptuserdialog.inc
@@ -30,10 +30,12 @@
   protected
     aStringList: TStringList;
     cbDatabases: TfpgComboBox;
+    function    GetSelectedDatabase: TfpgString; virtual;
     procedure   PopulateComboDb; virtual;
   public
     constructor Create(AOwner: TComponent); override;
     destructor  Destroy; override;
+    property    Database: TfpgString read GetSelectedDatabase;
   end;
 
 
@@ -117,6 +119,11 @@ end;
 
 { TfpgPromptUserDbDialog }
 
+function TfpgPromptUserDbDialog.GetSelectedDatabase: TfpgString;
+begin
+  Result := cbDatabases.Text;
+end;
+
 constructor TfpgPromptUserDbDialog.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);