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.

This commit is contained in:
Ansgar Becker
2007-10-01 18:43:06 +00:00
parent 7d96c41a53
commit d39517a8c2

View File

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