Fix AV after unsuccessful table renaming.

This commit is contained in:
Ansgar Becker
2007-07-06 06:01:23 +00:00
parent bf68e4433c
commit 5d82d7661f

View File

@@ -3304,10 +3304,14 @@ begin
ShowDBProperties(self);
// re-select same item
for i:=0 to ListTables.Items.Count-1 do
begin
if ListTables.Items[i].Caption = S then
begin
ListTables.Selected := ListTables.Items[i];
ListTables.Items[i].Focused := True;
break;
ListTables.Selected := ListTables.Items[i];
ListTables.Items[i].Focused := true;
end;
end;
// Important! Otherwise OnEdited refreshes list too:
abort;
end;