Bugfix: Regression from r903: Selecting a database then expanding it would cause it to be deselected.

This commit is contained in:
rosenfield
2007-09-11 20:47:43 +00:00
parent b056d43e4b
commit e5ccc0716f

View File

@@ -1973,7 +1973,7 @@ begin
cur := '';
if ActiveDatabase = tndb.Text then cur := SelectedTable;
if tndb.Count > 0 then for u:=tndb.Count-1 downto 0 do begin
if tndb.Selected then tndb.Parent.Selected := true;
if tndb.Item[u].Selected then tndb.Selected := true;
tndb.Item[u].delete;
end;
if ForceRefresh then ds := RefreshDbTableList(tndb.Text)