From 8b34098669b317ada02e76a3268a4a87fbbcba16 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Wed, 16 Dec 2009 01:00:12 +0000
Subject: [PATCH] Fix a similar problem as in previous commit - db and table
 nodes were not properly removed on disconnect. Probably fixes issue #1491.

---
 source/main.pas | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/source/main.pas b/source/main.pas
index a7bf091b..97575334 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -1571,11 +1571,9 @@ begin
     comboOnlyDBs.ItemIndex := 0
   else
     comboOnlyDBs.Text := '';
-  // All db nodes must get collapsed to avoid auto initialization of table caches (along with AVs)
-  menuTreeCollapseAllClick(Self);
-  // Forces Tree.ReInitChildren to refetch database names
-  FreeAndNil(AllDatabases);
-  RefreshTree(False);
+
+  // Remove db and table nodes, force host node to initialize again
+  DBtree.ResetNode(DBTree.GetFirst);
 
   DBTree.Color := GetRegValue(REGNAME_TREEBACKGROUND, clWindow, SessionName);