From 7e6b2b407ffb4438bf9e11c4b2e7b5eeac663d4e Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Fri, 12 Sep 2008 23:26:02 +0000
Subject: [PATCH] Fix bug #741: Switching from host node to table node in tree
 should activate table tab, not database tab

---
 source/childwin.pas | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/source/childwin.pas b/source/childwin.pas
index 85964922..57a77c25 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -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