Fix enabled "Open" button with no focused session.

This commit is contained in:
Ansgar Becker
2009-08-12 18:46:14 +00:00
parent 0eeb422004
commit 771a147733
2 changed files with 2 additions and 0 deletions

View File

@ -54,6 +54,7 @@ object connform: Tconnform
Anchors = [akRight, akBottom]
Caption = 'Open'
Default = True
Enabled = False
TabOrder = 5
OnClick = btnOpenClick
end

View File

@ -392,6 +392,7 @@ begin
btnNew.Enabled := SessionExists;
btnSave.Enabled := not SessionExists;
btnDelete.Enabled := SessionFocused;
btnOpen.Enabled := SessionFocused;
FSessionModified := False;
FSessionAdded := False;
ListSessions.Repaint;