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

Cocoa: improve TrayIcon to make it adaptive icon size

Browse Source
This commit is contained in:
rich2014 2024-07-08 21:15:01 +08:00
parent 30719c1db4
commit 9d09a0c98b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/cocoa/cocoatrayicon.inc
View File

@ -40,7 +40,10 @@ begin
if (ATrayIcon.icon <> nil) and (ATrayIcon.icon.Handle <> 0) then
begin
image := TCocoaBitmap(ATrayIcon.icon.Handle).image;
if image <> nil then statusitem.setImage(image);
if image <> nil then begin
statusItem.button.setImageScaling(NSImageScaleProportionallyUpOrDown);
statusItem.button.setImage(image);
end;
end;
// Show the menu