From 62da5d8833bb0dae93f8fb4b4fac9efb47d15d50 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sat, 25 May 2013 05:32:41 +0000
Subject: [PATCH] Leave SQL help action disabled as long as there is no
 selected connection. Fixes issue #3200.

---
 source/main.dfm | 1 +
 source/main.pas | 1 +
 2 files changed, 2 insertions(+)

diff --git a/source/main.dfm b/source/main.dfm
index fdf440c0..200383b6 100644
--- a/source/main.dfm
+++ b/source/main.dfm
@@ -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
diff --git a/source/main.pas b/source/main.pas
index 4b2cc0b4..2b446b25 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -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