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

Cocoa: Allow transparency drawing in TLCLCOmmonCallback.DrawBackground for Color == clNone

Browse Source
This commit is contained in:
David Jenkins 2024-10-20 11:02:05 +00:00 committed by rich2014
parent 4433fff1ea
commit e8e91a9bd9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1477,7 +1477,7 @@ var
begin begin
// Implement Color property // Implement Color property
lTarget := TWinControl(GetTarget()); lTarget := TWinControl(GetTarget());
if (lTarget.Color <> clDefault) and (lTarget.Color <> clBtnFace) then if (lTarget.Color <> clDefault) and (lTarget.Color <> clBtnFace) and (lTarget.Color <> clNone) then
begin begin
ColorToNSColor(ColorToRGB(lTarget.Color)).set_(); ColorToNSColor(ColorToRGB(lTarget.Color)).set_();
// NSRectFill() always requires the coordinate system of the lower left corner // NSRectFill() always requires the coordinate system of the lower left corner