fix AV when deleting an entry

This commit is contained in:
Basile Burg 2014-11-30 04:07:31 +01:00
parent f6b2c02031
commit 84466ab7c5
1 changed files with 2 additions and 0 deletions

View File

@ -88,6 +88,8 @@ procedure TCEToolsEditorWidget.btnRemToolClick(Sender: TObject);
begin
if lstTools.ItemIndex = -1 then
exit;
propsEd.TIObject := nil;
propsEd.ItemIndex := -1;
CustomTools.tools.Delete(lstTools.ItemIndex);
DataToGui;
end;