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

cocoa: implement ETO_CLIPPED option in ExtTextOut

Browse Source 
git-svn-id: trunk@34421 -
This commit is contained in:
paul 2011-12-26 11:16:40 +00:00
parent a991d939dd
commit e0bf8626c8
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1453,6 +1453,13 @@ begin
Rectangle(Left, Top, Right, Bottom, True, BkBrush);
BkBrush.Solid := BrushSolid;
end;
if (Options and ETO_CLIPPED) <> 0 then
begin
CGContextBeginPath(CGContext);
CGContextAddRect(CGContext, RectToCGrect(Rect^));
CGContextClip(CGContext);
end;
end;
FillBg := not Assigned(Rect) and ((Options and ETO_OPAQUE) <> 0);