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

Merge branch 'AllowCLNoneTransparency' into 'main'

Browse Source 
Allow transparency drawing in TLCLCOmmonCallback.DrawBackground for Color == clNone

See merge request freepascal.org/lazarus/lazarus!349
This commit is contained in:
rich2014 2024-10-20 11:02:06 +00:00
commit a39246b862
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