diff options
| -rw-r--r-- | UConfig.pas | 4 | ||||
| -rw-r--r-- | UQuickConnect.pas | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/UConfig.pas b/UConfig.pas index 8bfa398..6990e33 100644 --- a/UConfig.pas +++ b/UConfig.pas @@ -25,8 +25,8 @@ uses Classes, ULocale; resourcestring ConstAppTitle = 'Tux Commander'; - ConstAboutVersion = '0.6.62-dev'; - ConstAboutBuildDate = '2009-03-08'; + ConstAboutVersion = '0.6.63-dev'; + ConstAboutBuildDate = '2009-09-23'; {$IFDEF FPC} {$INCLUDE fpcver.inc} 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) |