forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix, possible av on close

This commit is contained in:
Basile Burg 2015-09-21 01:42:49 +02:00
parent ecae79d446
commit 1a362baf8c
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ce_messages.pas
View File

@ -325,6 +325,7 @@ destructor TCEMessagesWidget.destroy;
begin begin
fToDemangle.Free; fToDemangle.Free;
fToDemangleObjs.Free; fToDemangleObjs.Free;
fToDemangleObjs := nil;
freeDemangler; freeDemangler;
fOptions.saveToFile(getCoeditDocPath + optname); fOptions.saveToFile(getCoeditDocPath + optname);
EntitiesConnector.removeObserver(self); EntitiesConnector.removeObserver(self);
@ -337,10 +338,13 @@ var
begin begin
if node.Data <> nil then if node.Data <> nil then
Dispose(PMessageData(Node.Data)); Dispose(PMessageData(Node.Data));
if fToDemangleObjs <> nil then
begin
i := fToDemangleObjs.IndexOf(node); i := fToDemangleObjs.IndexOf(node);
if i <> -1 then if i <> -1 then if i < fToDemangleObjs.Count then
fToDemangleObjs.Items[i] := nil; fToDemangleObjs.Items[i] := nil;
end; end;
end;
procedure TCEMessagesWidget.ListKeyDown(Sender: TObject; var Key: Word; procedure TCEMessagesWidget.ListKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); Shift: TShiftState);