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

carbon: implement Application.SetIcon

Browse Source 
git-svn-id: trunk@33606 -
This commit is contained in:
paul 2011-11-18 06:56:06 +00:00
parent da92ed2789
commit a4beb21c5f
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/cocoa/cocoaint.pas
View File

@ -85,6 +85,7 @@ type
procedure AppMinimize; override;
procedure AppRestore; override;
procedure AppBringToFront; override;
procedure AppSetIcon(const Small, Big: HICON); override;
procedure AppSetTitle(const ATitle: string); override;
function CreateTimer(Interval: integer; TimerFunc: TWSTimerProc): THandle; override;

8
lcl/interfaces/cocoa/cocoaobject.inc
View File

@ -177,6 +177,14 @@ begin
NSApp.activateIgnoringOtherApps(True);
end;
procedure TCocoaWidgetSet.AppSetIcon(const Small, Big: HICON);
begin
if Big <> 0 then
NSApp.setApplicationIconImage(TCocoaBitmap(Big).image)
else
NSApp.setApplicationIconImage(nil);
end;
{------------------------------------------------------------------------------
Method: TCocoaWidgetSet.AppSetTitle
Params: ATitle - New application title