paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 09:09:35 +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 37be07f5dc
commit bc15061ca5
1 changed files with 1 additions and 1 deletions

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

@ -1477,7 +1477,7 @@ var
begin
// Implement Color property
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
ColorToNSColor(ColorToRGB(lTarget.Color)).set_();
// NSRectFill() always requires the coordinate system of the lower left corner