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

10
src/ce_messages.pas
View File

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