From c728bb2631bbf7e51c42d2cb0049706e252c20c7 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Fri, 28 Sep 2012 18:04:30 +0000
Subject: [PATCH] Do not switch from "Query" to "Host" main tab when
 disconnecting. Hopefully does not break what I've done in r3868.

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

diff --git a/source/main.pas b/source/main.pas
index ff9d0762..6cdd8a0d 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -1553,6 +1553,7 @@ begin
   // SynMemo font, hightlighting and shortcuts
   SetupSynEditors;
 
+  SetMainTab(tabHost);
   FBtnAddTab := TSpeedButton.Create(PageControlMain);
   FBtnAddTab.Parent := PageControlMain;
   ImageListMain.GetBitmap(actNewQueryTab.ImageIndex, FBtnAddTab.Glyph);
@@ -7209,7 +7210,6 @@ begin
   end else begin
     LogSQL('DBtreeFocusChanged without node.', lcDebug);
     FreeAndNil(FActiveDbObj);
-    MainTabToActivate := tabHost;
     tabHost.Caption := 'Host';
     tabDatabase.Caption := 'Database';
     // Clear server version panel