paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 01:00:22 +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 d68420e381
commit a7c161756a
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;