Leave SQL help action disabled as long as there is no selected connection. Fixes issue #3200.

This commit is contained in:
Ansgar Becker
2013-05-25 05:32:41 +00:00
parent 8dd4399395
commit 62da5d8833
2 changed files with 2 additions and 0 deletions

View File

@ -2166,6 +2166,7 @@ object MainForm: TMainForm
object actSQLhelp: TAction
Category = 'Tools'
Caption = 'SQL help'
Enabled = False
Hint = 'SQL help browser'
ImageIndex = 31
ShortCut = 112

View File

@ -7340,6 +7340,7 @@ begin
tabDatabase.TabVisible := (FActiveDbObj <> nil) and (FActiveDbObj.NodeType <> lntNone);
tabEditor.TabVisible := (FActiveDbObj <> nil) and (FActiveDbObj.NodeType in [lntTable..lntEvent]);
tabData.TabVisible := (FActiveDbObj <> nil) and (FActiveDbObj.NodeType in [lntTable, lntView]);
actSQLhelp.Enabled := Assigned(Node);
end;
// Store click history item