From a519afb36c8c58e434d42d74cc8a1898599ef7a6 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 18 Jan 2009 09:19:58 +0000
Subject: [PATCH] Fix bug #945: HTML view and Access violation

---
 source/main.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/source/main.pas b/source/main.pas
index eb38737d..afb11947 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -4250,7 +4250,7 @@ begin
   inTableTab := FrmIsFocussed and (PageControlMain.ActivePage = tabTable);
   inDataTab := FrmIsFocussed and (PageControlMain.ActivePage = tabData);
   inDataOrQueryTab := FrmIsFocussed and ((PageControlMain.ActivePage = tabData) or (PageControlMain.ActivePage = tabQuery));
-  inDataOrQueryTabNotEmpty := inDataOrQueryTab and (hoVisible in ActiveGrid.Header.Options);
+  inDataOrQueryTabNotEmpty := inDataOrQueryTab and (ActiveGrid.RootNodeCount > 0);
   inQueryTab := FrmIsFocussed and (PageControlMain.ActivePage = tabQuery);
 
   SelectedNodes := ListTables.GetSortedSelection(False);
@@ -4327,7 +4327,7 @@ begin
   actCopyAsXML.Enabled := inDataOrQueryTabNotEmpty;
   actCopyAsSQL.Enabled := inDataOrQueryTabNotEmpty;
   actExportData.Enabled := inDataOrQueryTabNotEmpty;
-  actHTMLView.Enabled := inDataOrQueryTabNotEmpty;
+  actHTMLView.Enabled := inDataOrQueryTabNotEmpty and Assigned(ActiveGrid.FocusedNode);
   setNull1.Enabled := inDataTab and Assigned(DataGrid.FocusedNode);
 
   // Query tab
@@ -8456,6 +8456,7 @@ procedure TMainForm.QueryGridFocusChanging(Sender: TBaseVirtualTree; OldNode,
 begin
   if OldColumn <> NewColumn then
     FocusGridCol(Sender, NewColumn);
+  ValidateControls;
 end;