Fix "List index out of bounds", when the table tools dialog is called the second time, and some databases were deleted or filtered.

This commit is contained in:
Ansgar Becker
2009-09-15 17:57:04 +00:00
parent 658aab45c6
commit 6e66726e79

View File

@ -104,6 +104,8 @@ end;
procedure TfrmTableTools.FormShow(Sender: TObject);
begin
// When this form is displayed the second time, databases may be deleted or filtered
treeObjects.ReinitChildren(treeObjects.GetFirst, False);
// CHECKSUM available since MySQL 4.1.1
if Mainform.mysql_version < 40101 then
comboOperation.Items[comboOperation.Items.IndexOf('Checksum')] := 'Checksum ('+STR_NOTSUPPORTED+')';