moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-22 09:12:19 -05:00
Code Issues Releases Wiki Activity

Memory leak fix

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@351 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-12-28 19:34:07 +00:00
parent 50b08bd83c
commit 8be08ea497
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Units/MMLCore/fontloader.pas
View File

@ -135,7 +135,11 @@ begin
end; end;
destructor TMFonts.Destroy; destructor TMFonts.Destroy;
var
i:integer;
begin begin
for i := 0 to Fonts.Count - 1 do
TMFont(Fonts.Items[i]).Free;
Fonts.Free; Fonts.Free;
inherited; inherited;
@ -177,6 +181,7 @@ var
i: integer; i: integer;
begin begin
i := GetFontIndex(Name); i := GetFontIndex(Name);
TMFont(Fonts.Items[i]).Free;
Fonts.Delete(i); Fonts.Delete(i);
end; end;