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

Cocoa/Theme: improve on 60f7e4e

Browse Source
This commit is contained in:
rich2014 2024-09-25 20:01:26 +08:00
parent 5acf9a9c7d
commit 5ca013e686
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
SetButtonCellToDetails(b, Details);
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);
CellDrawEnd(DC, cur);
Exit;