paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 11:09:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed memory leaks and severe bugs in font manager (caching didn't work

Browse Source 
at all and could lead to memory corruption)
This commit is contained in:
sg 2003-12-14 22:02:58 +00:00
parent f8e49e98be
commit 9edd8f5b51
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fcl/image/freetype.pp
View File

@ -416,7 +416,7 @@ function TFontManager.CreateSize (aSize, aResolution : integer) : PMgrSize;
begin
new (result);
result^.Size := aSize;
result^.Size := aResolution;
result^.Resolution := aResolution;
result^.Glyphs := Tlist.Create;
SetPixelSize (aSize,aResolution);
CurFont.FSizes.Add (result);
@ -497,14 +497,14 @@ var r : integer;
begin
With CurSize^ do
begin
r := FList.Count;
r := Glyphs.Count;
repeat
dec (r)
until (r < 0) or (PMgrGlyph(Flist[r])^.character = c);
until (r < 0) or (PMgrGlyph(Glyphs[r])^.character = c);
if r < 0 then
result := CreateGlyph (c)
else
result := PMgrGlyph(Flist[r]);
result := PMgrGlyph(Glyphs[r]);
end;
end;

7
fcl/image/ftfont.pp
View File

@ -52,6 +52,7 @@ type
procedure GetFace;
public
constructor create; override;
destructor Destroy; override;
property FontIndex : integer read FIndex write SetIndex;
property Resolution : longword read FResolution write FResolution;
property AntiAliased : boolean read FAntiAliased write FAntiAliased;
@ -90,6 +91,12 @@ begin
FResolution := DefaultResolution;
end;
destructor TFreeTypeFont.Destroy;
begin
ClearLastText;
inherited Destroy;
end;
procedure TFreeTypeFont.DoCopyProps (From:TFPCanvasHelper);
var f : TFreeTypeFont;
begin