From d39517a8c2ff073cbce32ce304c9e754ea5fbd4f Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Mon, 1 Oct 2007 18:43:06 +0000
Subject: [PATCH] Fix part 2 of "bug" 1803650 (actually not a bug but unwanted
 behaviour): Switch to "Database" tab if "Host" was active and a database is
 clicked in dbtree.

---
 source/childwin.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/source/childwin.pas b/source/childwin.pas
index 2e7a8296..5ab37afb 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -1266,6 +1266,7 @@ end;
 procedure TMDIChild.ShowDatabase(db: String);
 begin
   if (not DBTree.Dragging) and (
+   (PageControlMain.ActivePage = tabHost) or
    (PageControlMain.ActivePage = tabTable) or
    (PageControlMain.ActivePage = tabData)
   ) then PageControlMain.ActivePage := tabDatabase;