Only call btnOK event handler if we had successful authentication.

This gives the user another chance to log in.

1 files changed, 8 insertions, 0 deletions

diff --git a/src/gui/promptuserdialog.inc b/src/gui/promptuserdialog.inc
index a2f14685..45f48000 100644
--- a/src/gui/promptuserdialog.inc
+++ b/src/gui/promptuserdialog.inc
@@ -11,6 +11,8 @@
     edPassword: TfpgEdit;
     function    GetUserID: TfpgString;
     function    GetUserPassword: TfpgString;
+  protected
+    procedure   btnOKClick(Sender: TObject); override;
   public
     constructor Create(AOwner: TComponent); override;
     // Gof defines this Authenticate method a Hook operation in Template methods pattern.
@@ -54,6 +56,12 @@ begin
   Result := edPassword.Text;
 end;
 
+procedure TfpgPromptUserDialog.btnOKClick(Sender: TObject);
+begin
+  if Authenticate then
+    inherited btnOKClick(Sender);
+end;
+
 constructor TfpgPromptUserDialog.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);