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

Cocoa: TSpeedButton: set the highlighted background color when pressed, consistent with win32

Browse Source 
before, TSpeedButton had a white highlighted background color when it was normal, and a gray background when it was pressed, causing confusion to users.
This commit is contained in:
rich2014 2023-07-02 21:26:51 +08:00
parent eb65e0684e
commit feae93368d
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -898,6 +898,8 @@ begin
BtnType := NSPushOnPushOffButton; BtnType := NSPushOnPushOffButton;
BezelStyle := BezelButton; BezelStyle := BezelButton;
useBezel := true; useBezel := true;
if IsPushed(Details) then
btn.setBackgroundColor(NSColor.selectedTextBackgroundColor);
end; end;
else else
Result := false; Result := false;
@ -922,6 +924,7 @@ begin
btn.setHighlighted( IsPushed(Details)); btn.setHighlighted( IsPushed(Details));
if ((Details.Element = teToolBar) and (not IsPushed(Details)) and (not IsChecked(Details))) if ((Details.Element = teToolBar) and (not IsPushed(Details)) and (not IsChecked(Details)))
or ((Details.Element = teButton) and (Details.Part = BP_PUSHBUTTON) and IsPushed(Details))
or ((Details.Element = teButton) and (Details.Part = BP_CHECKBOX)) or ((Details.Element = teButton) and (Details.Part = BP_CHECKBOX))
then then
// this is "flat" mode. So unpushed state should draw no borders // this is "flat" mode. So unpushed state should draw no borders