summaryrefslogtreecommitdiff
path: root/src/gui/promptuserdialog.inc
diff options
context:
space:
mode:
Diffstat (limited to 'src/gui/promptuserdialog.inc')
-rw-r--r--src/gui/promptuserdialog.inc12
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