Various AVs (e.g. after SessionConnect) caused by ListTables nodes, still bound to old TDBObject items. Fixes issue #1747.

This commit is contained in:
Ansgar Becker
2010-03-08 21:13:47 +00:00
parent 9f02608e62
commit f3f8e540c9

View File

@ -1815,6 +1815,7 @@ begin
// Clear database and table lists
DBtree.ClearSelection;
DBtree.FocusedNode := nil;
PreviousFocusedNode := nil;
FreeAndNil(AllDatabases);
FreeAndNil(DataGridHiddenColumns);
SynMemoFilter.Clear;
@ -1832,6 +1833,7 @@ begin
ListStatus.Tag := VTREE_NOTLOADED;
ListProcesses.Tag := VTREE_NOTLOADED;
ListCommandstats.Tag := VTREE_NOTLOADED;
ListTables.Tag := VTREE_NOTLOADED;
Application.Title := APPNAME;
end;