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

Cocoa/Theme: improve on f84e081

Browse Source
This commit is contained in:
rich2014 2024-09-25 20:01:26 +08:00
parent 15b81b0241
commit 9ace9bb511
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/cocoa/cocoathemes.pas
View File

@ -208,7 +208,9 @@ begin
begin begin
SetButtonCellToDetails(b, Details); SetButtonCellToDetails(b, Details);
CellDrawStart(DC, R, cur, nsr); CellDrawStart(DC, R, cur, nsr);
b.setBackgroundColor( NSColor.controlBackgroundColor ); // don't set backgroundColor for PushButton
if Details.Part <> BP_PUSHBUTTON then
b.setBackgroundColor( NSColor.controlBackgroundColor );
CellDrawFrame(b, nsr); CellDrawFrame(b, nsr);
CellDrawEnd(DC, cur); CellDrawEnd(DC, cur);
Exit; Exit;