diff options
Diffstat (limited to 'src/gui/promptuserdialog.inc')
-rw-r--r-- | src/gui/promptuserdialog.inc | 7 |
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); |