Work around access violation in "Fetch database items" when active database is processed. Fixes issue #3559.

This commit is contained in:
Ansgar Becker
2014-05-22 09:17:27 +00:00
parent 7d5a5eba32
commit e222353b84

View File

@ -6661,10 +6661,7 @@ begin
Conn := ActiveConnection;
while Assigned(Node) do begin
db := ListDatabases.Text[Node, 0];
if db = ActiveDatabase then
RefreshTree
else
Conn.GetDBObjects(db, True);
Conn.GetDBObjects(db, True);
ListDatabases.RepaintNode(Node);
DBtree.RepaintNode(FindDBNode(DBtree, Conn, db));
Node := GetNextNode(ListDatabases, Node, True);