Database node was not removed after DROP DATABASE action. Fixes issue #1474. Described access violation unreproducible here any longer, probably fixed earlier.

This commit is contained in:
Ansgar Becker
2009-12-20 09:37:36 +00:00
parent 7272ba3bc3
commit d14d8e01f7

View File

@@ -2154,6 +2154,7 @@ var
msg, activeDB : WideString;
InDBTree: Boolean;
Act: TAction;
Node: PVirtualNode;
procedure DoDrop(Kind: String; List: TWideStringlist; MultiDrops: Boolean);
var
@@ -2200,9 +2201,11 @@ begin
Abort;
try
Connection.Query('DROP DATABASE ' + mask(activeDB));
DBtree.FocusedNode := DBtree.GetFirst;
DBTree.Selected[DBtree.FocusedNode] := True;
Node := DBTree.FocusedNode;
SelectNode(DBTree, DBtree.GetFirst);
Connection.ClearDbObjects(activeDB);
FreeAndNil(AllDatabases);
DBTree.DeleteNode(Node);
RefreshTree(False);
except
on E:Exception do