Try to fix refresh issue #2471.

This commit is contained in:
Ansgar Becker
2011-06-22 06:14:29 +00:00
parent 16384ccd01
commit 5a663293e7

View File

@ -7018,13 +7018,14 @@ begin
// ReInit tree population
FTreeRefreshInProgress := True;
DBtree.FocusedNode := nil;
try
if not OnlyDBNode then begin
FocusNewObject.Connection.ClearAllDbObjects;
FocusNewObject.Connection.RefreshAllDatabases;
SessNode := GetRootNode(DBtree, FocusNewObject.Connection);
if Assigned(SessNode) then
DBtree.ReinitChildren(SessNode, False);
DBtree.ResetNode(SessNode);
end else begin
FocusNewObject.Connection.ClearDbObjects(FocusNewObject.Database);
DBNode := FindDbNode(DBtree, FocusNewObject.Database);