Fix bug #741: Switching from host node to table node in tree should activate table tab, not database tab

This commit is contained in:
Ansgar Becker
2008-09-12 23:26:02 +00:00
parent 1476547afc
commit 7e6b2b407f

View File

@@ -1850,16 +1850,16 @@ begin
dataselected := false;
Screen.Cursor := crHourGlass;
if (not DBtree.Dragging) and (
(PageControlMain.ActivePage = tabHost) or
(PageControlMain.ActivePage = tabDatabase)
) then PageControlMain.ActivePage := tabTable;
tabTable.Caption := sstr('Table: ' + SelectedTable, 30);
tabDatabase.TabVisible := true;
tabTable.TabVisible := true;
tabData.TabVisible := true;
tabTable.Caption := sstr('Table: ' + SelectedTable, 30);
if (not DBtree.Dragging) and (
(PageControlMain.ActivePage = tabHost) or
(PageControlMain.ActivePage = tabDatabase)
) then PageControlMain.ActivePage := tabTable;
MainForm.ShowStatus( 'Reading table properties...' );
// Remember selected nodes