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

Carbon: trigger assigned action from trayicon popupmenu.Patch by Anton Kavalenka. issue #23399

Browse Source 
git-svn-id: trunk@48527 -
This commit is contained in:
zeljko 2015-03-28 19:42:32 +00:00
parent 21e4c4019c
commit 106dc546c4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/carbon/carbontrayicon.inc
View File

@ -426,7 +426,7 @@ var
begin begin
AMenuItem := NSMenuItem.CreateWithHandle(lobjc.id(_cmd)); AMenuItem := NSMenuItem.CreateWithHandle(lobjc.id(_cmd));
LCLMenu := TMenuItem(PtrInt(AMenuItem.Tag())); LCLMenu := TMenuItem(PtrInt(AMenuItem.Tag()));
if (LCLMenu <> nil) and Assigned(LCLMenu.OnClick) then LCLMenu.OnClick(LCLMenu); if (LCLMenu <> nil) then LCLMenu.Click;
end; end;
class procedure TPrivateCocoaCarbonTrayIcon.HandleMenuWillOpen(_self: lobjc.id; class procedure TPrivateCocoaCarbonTrayIcon.HandleMenuWillOpen(_self: lobjc.id;