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

fix, TCESynMemo leaked

This commit is contained in:
Basile Burg 2015-01-19 03:56:27 +01:00
parent 702f9217d9
commit 47155a26f1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ce_editor.pas
View File

@ -117,10 +117,10 @@ var
i: integer; i: integer;
begin begin
EntitiesConnector.removeObserver(self); EntitiesConnector.removeObserver(self);
for i := 0 to PageControl.PageCount-1 do for i := PageControl.PageCount-1 downto 0 do
if PageControl.Page[i].ControlCount > 0 then if PageControl.Page[i].ControlCount > 0 then
if (PageControl.Controls[0] is TCESynMemo) then if (PageControl.Page[i].Controls[0] is TCESynMemo) then
PageControl.Controls[0].Free; PageControl.Page[i].Controls[0].Free;
tokLst.Free; tokLst.Free;
errLst.Free; errLst.Free;
inherited; inherited;