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

carbon: Implements TTrayIcon menu item enabled/disabled

Browse Source 
git-svn-id: trunk@21717 -
This commit is contained in:
sekelsenmat 2009-09-15 21:21:42 +00:00
parent 9d4a8e0fbc
commit 3d9c73bf02
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -140,6 +140,7 @@ begin
Result := NSMenu.initWithTitle(EmptyMenuTitle); Result := NSMenu.initWithTitle(EmptyMenuTitle);
// Result.setVersion(0); // Result.setVersion(0);
Result.setDelegate(Self.Handle); Result.setDelegate(Self.Handle);
Result.setAutoenablesItems(LongBool(NO)); // For menu enabling/disabling
for i := 0 to APopUpMenu.Items.Count - 1 do for i := 0 to APopUpMenu.Items.Count - 1 do
begin begin
@ -166,6 +167,7 @@ begin
// Then a owner for the children // Then a owner for the children
InternalOwner := NSMenu.initWithTitle(EmptyMenuTitle); InternalOwner := NSMenu.initWithTitle(EmptyMenuTitle);
InternalOwner.setAutoenablesItems(LongBool(NO)); // For menu enabling/disabling
subindex := Length(SubMenuOwners); subindex := Length(SubMenuOwners);
SetLength(SubMenuOwners, subindex + 1); SetLength(SubMenuOwners, subindex + 1);