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

Cocoa: Fix #40571 in TCocoaContext.DrawEdge()

Browse Source
This commit is contained in:
rich2014 2023-10-25 22:06:13 +08:00
parent 586323470e
commit 8d0f10ed90
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2105,13 +2105,11 @@ const
); );
var var
I: Integer; I: Integer;
rect: TRect;
begin begin
rect:= ARect;
for I := 0 to FrameWidth - 1 do for I := 0 to FrameWidth - 1 do
begin begin
DrawEdge(rect, Edge[Style], BF_RECT or BF_ADJUST); DrawEdge(aRect, Edge[Style], BF_RECT);
InflateRect(rect,-1,-1); InflateRect(aRect,-1,-1);
end; end;
end; end;