diff options
Diffstat (limited to 'src/gui/promptuserdialog.inc')
-rw-r--r-- | src/gui/promptuserdialog.inc | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/src/gui/promptuserdialog.inc b/src/gui/promptuserdialog.inc index e2013ef7..68b27f05 100644 --- a/src/gui/promptuserdialog.inc +++ b/src/gui/promptuserdialog.inc @@ -7,11 +7,12 @@ private lblTitle: TfpgLabel; lblTitlePw: TfpgLabel; - edUserID: TfpgEdit; - edPassword: TfpgEdit; function GetUserID: TfpgString; function GetUserPassword: TfpgString; + procedure SetUserID(const AValue: TfpgString); protected + edUserID: TfpgEdit; + edPassword: TfpgEdit; procedure btnOKClick(Sender: TObject); override; public constructor Create(AOwner: TComponent); override; @@ -19,7 +20,7 @@ // Subclass will have to override and implement it. By default it returns True. function Authenticate: boolean; virtual; procedure Wiggle(const Seconds: integer = 1; const MovingPixels: integer = 5; const aSleep: integer = 75); - property UserID: TfpgString read GetUserID; + property UserID: TfpgString read GetUserID write SetUserID; property Password: TfpgString read GetUserPassword; end; @@ -58,6 +59,11 @@ begin Result := edPassword.Text; end; +procedure TfpgPromptUserDialog.SetUserID(const AValue: TfpgString); +begin + edUserID.Text := AValue; +end; + procedure TfpgPromptUserDialog.btnOKClick(Sender: TObject); begin if Authenticate then |