From b19a0e9f2d4e23734c9f21ec0cb30df6940d7221 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Wed, 23 Sep 2009 14:33:21 +0200
Subject: Fix pressing Enter key in Quick Connect dialog leading to invalid VFS
 connection

---
 UQuickConnect.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'UQuickConnect.pas')

diff --git a/UQuickConnect.pas b/UQuickConnect.pas
index d92e335..aaaa0bf 100644
--- a/UQuickConnect.pas
+++ b/UQuickConnect.pas
@@ -183,7 +183,7 @@ procedure TFQuickConnect.FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftSt
 begin
   case Key of
     GDK_RETURN, GDK_KP_ENTER: if StopButton.Visible then StopButtonClick(Sender)
-                                                    else DoConnect;
+                                                    else if ConnectButton.Enabled then DoConnect;
     GDK_ESCAPE: begin
                   Accept := False;
                   if StopButton.Visible then StopButtonClick(Sender)
-- 
cgit v1.2.3