Do not switch from "Query" to "Host" main tab when disconnecting. Hopefully does not break what I've done in r3868.

This commit is contained in:
Ansgar Becker
2012-09-28 18:04:30 +00:00
parent fea0e8e194
commit c728bb2631

View File

@ -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