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,9 +6661,6 @@ begin
Conn := ActiveConnection; Conn := ActiveConnection;
while Assigned(Node) do begin while Assigned(Node) do begin
db := ListDatabases.Text[Node, 0]; db := ListDatabases.Text[Node, 0];
if db = ActiveDatabase then
RefreshTree
else
Conn.GetDBObjects(db, True); Conn.GetDBObjects(db, True);
ListDatabases.RepaintNode(Node); ListDatabases.RepaintNode(Node);
DBtree.RepaintNode(FindDBNode(DBtree, Conn, db)); DBtree.RepaintNode(FindDBNode(DBtree, Conn, db));