paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 03:17:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: fix memory corruption

Browse Source 
git-svn-id: trunk@34916 -
This commit is contained in:
paul 2012-01-25 05:01:31 +00:00
parent b17a03f253
commit 6e6c4d9600
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/cocoa/cocoagdiobjects.pas
View File

@ -966,8 +966,10 @@ var
Range: NSRange;
begin
Range := FLayout.glyphRangeForTextContainer(FTextContainer);
SetLength(Result, Range.length);
// required length + 1 space
SetLength(Result, Range.length + 1);
FLayout.getGlyphs_range(@Result[0], Range);
SetLength(Result, Range.length);
end;
procedure TCocoaTextLayout.Draw(ctx: NSGraphicsContext; X, Y: Integer; FillBackground: Boolean; DX: PInteger);