paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 07:59:44 +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
I: Integer;
rect: TRect;
begin
rect:= ARect;
for I := 0 to FrameWidth - 1 do
begin
DrawEdge(rect, Edge[Style], BF_RECT or BF_ADJUST);
InflateRect(rect,-1,-1);
DrawEdge(aRect, Edge[Style], BF_RECT);
InflateRect(aRect,-1,-1);
end;
end;