paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 11:38:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa: Frame3d: to be consistent with Win32

Browse Source 
the actual purpose is:
1. to make the behavior of TPanel in MacOS consistent with Win32. avoid filling the background color of NSBox in TPanel by avoiding using NSBox to draw the Bevel effect. it will cause the background color of TPanel to be confused with the background color of other controls.
2. the effect of TDividerBevel is more consistent with Win32
This commit is contained in:
rich2014 2023-06-30 23:10:14 +08:00
parent d5031b1eaf
commit a901a8ea79
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/interfaces/cocoa/cocoawinapi.inc
View File

@ -955,13 +955,26 @@ end;
function TCocoaWidgetSet.Frame3d(DC: HDC; var ARect: TRect;
const FrameWidth: integer; const Style: TBevelCut): Boolean;
const
Edge: array[TBevelCut] of Integer =
(
{bvNone } 0,
{bvLowered} BDR_SUNKENOUTER,
{bvRaised } EDGE_RAISED,
{bvSpace } 0
);
var
ctx: TCocoaContext;
I: Integer;
rect: TRect;
begin
ctx := CheckDC(DC);
Result := Assigned(ctx) and (FrameWidth > 0);
if Result then
ctx.Frame3d(ARect, FrameWidth, Style);
Result := FrameWidth > 0;
if not Result then exit;
rect:= ARect;
for I := 0 to FrameWidth - 1 do
begin
Result := Boolean(DrawEdge(DC, rect, Edge[Style], BF_RECT or BF_ADJUST));
InflateRect(rect,-1,-1);
end;
end;
function TCocoaWidgetSet.FrameRect(DC: HDC; const ARect: TRect; hBr: HBRUSH): Integer;