From 20048c230a73fc47af12b5df88980cabffcf5311 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 9 Mar 2010 23:45:42 +0000
Subject: [PATCH] Fix empty table name in SELECT and following AV when hiding
 tabs auto selects the data tab for a millisecond. Reproducible when you have
 the table editor open and click a different database in the tree.

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

diff --git a/source/main.pas b/source/main.pas
index 177c2a29..e7dbfeff 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -6417,8 +6417,7 @@ begin
             Exit;
           end;
         end;
-        if (not DBtree.Dragging)
-          and ((PageControlMain.ActivePage = tabHost) or(PageControlMain.ActivePage = tabData)) then
+        if (not DBtree.Dragging) and (not QueryTabActive) then
           PageControlMain.ActivePage := tabDatabase;
         tabDatabase.TabVisible := true;
         tabEditor.TabVisible := false;