paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 14:59:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa: Fix not working framerect call

Browse Source 
git-svn-id: trunk@43958 -
This commit is contained in:
freq 2014-02-08 18:17:20 +00:00
parent 7d53b0d01b
commit 7b11f22871
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1769,13 +1769,7 @@ end;
procedure TCocoaContext.FrameRect(const ARect: TRect; const ABrush: TCocoaBrush); procedure TCocoaContext.FrameRect(const ARect: TRect; const ABrush: TCocoaBrush);
begin begin
if ABrush <> Brush then Rectangle(Arect.Left,ARect.Top,Arect.Right,ARect.Bottom, False, ABrush);
ABrush.Apply(Self);
if not ctx.currentContextDrawingToScreen then
ctx.setCurrentContext(ctx);
NSFrameRect(RectToNSRect(ARect));
if ABrush <> Brush then
Brush.Apply(Self);
end; end;
procedure TCocoaContext.SetCGFillping(Ctx: CGContextRef; Width, Height: CGFloat); procedure TCocoaContext.SetCGFillping(Ctx: CGContextRef; Width, Height: CGFloat);