From e5ccc0716ff5e9fb78aac99e9467f191eb59039b Mon Sep 17 00:00:00 2001
From: rosenfield <rosenfield@40cadd2d-89a2-4482-8f20-0232d845d7e3>
Date: Tue, 11 Sep 2007 20:47:43 +0000
Subject: [PATCH] Bugfix: Regression from r903: Selecting a database then
 expanding it would cause it to be deselected.

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

diff --git a/source/childwin.pas b/source/childwin.pas
index a0dd29ee..c1e07c5c 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -1973,7 +1973,7 @@ begin
   cur := '';
   if ActiveDatabase = tndb.Text then cur := SelectedTable;
   if tndb.Count > 0 then for u:=tndb.Count-1 downto 0 do begin
-    if tndb.Selected then tndb.Parent.Selected := true;
+    if tndb.Item[u].Selected then tndb.Selected := true;
     tndb.Item[u].delete;
   end;
   if ForceRefresh then ds := RefreshDbTableList(tndb.Text)