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

Cocoa: Fix rect in TLCLCommonCallback.DrawBackground()

Browse Source
This commit is contained in:
rich2014 2024-06-19 20:04:27 +08:00
parent 2bb8922ae8
commit bc7ef3d1eb
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/cocoa/cocoawscommon.pas
View File

@ -1413,17 +1413,16 @@ end;
procedure TLCLCommonCallback.DrawBackground(ctx: NSGraphicsContext; const bounds, dirtyRect: NSRect);
var
lTarget: TWinControl;
nsr:NSRect;
begin
// Implement Color property
lTarget := TWinControl(GetTarget());
if (lTarget.Color <> clDefault) and (lTarget.Color <> clBtnFace) then
begin
ColorToNSColor(ColorToRGB(lTarget.Color)).set_();
nsr:=dirtyRect;
if NOT Owner.isKindOfClass(NSView) or NOT NSView(Owner).isFlipped then
nsr.origin.y:=bounds.size.height-dirtyRect.origin.y-dirtyRect.size.height;
NSRectFill(nsr);
// NSRectFill() always requires the coordinate system of the lower left corner
// of the origin, contrary to the Rect provided to LCL in
// TLCLCommonCallback.Draw() and TLCLCommonCallback.DrawOverlay()
NSRectFill(dirtyRect);
end;
end;