paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-27 21:18:54 +01:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa: add TCocoaConfigAppMenu.onCreate for custom

Browse Source
This commit is contained in:
rich2014 2024-10-12 19:00:14 +08:00
parent da931797db
commit 1259df9b51
3 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/cocoa/cocoaconfig.inc
View File

@ -21,6 +21,7 @@ var
aboutItem: nil;
preferencesItem: nil;
customMenus: nil;
onCreate: nil;
dontAutoCreateItems: False;
);

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

@ -115,6 +115,8 @@ type
defaultRadioImageName: NSString;
end;
TCocoaConfigAppMenuOnCreate = procedure ( appMenu: NSMenu );
// Application interface provided to facilitate APP to operate App Menu.
// it's easy to set About, Preferences, and customized menus,
// only the LCL TMenuItem is needed to pass in.
@ -124,6 +126,7 @@ type
aboutItem: TMenuItem;
preferencesItem: TMenuItem;
customMenus: TMenuItem;
onCreate: TCocoaConfigAppMenuOnCreate;
dontAutoCreateItems: Boolean;
end;

6
lcl/interfaces/cocoa/cocoamenus.pas
View File

@ -523,6 +523,12 @@ begin
rsMacOSMenuPreferences,
VK_OEM_COMMA, [ssMeta]);
// Custom onCreate
if Assigned( CocoaConfigMenu.appMenu.onCreate ) then begin
submenu.addItem( NSMenuItem.separatorItem );
CocoaConfigMenu.appMenu.onCreate( submenu );
end;
// Auto Create App Menu below?
if CocoaConfigMenu.appMenu.dontAutoCreateItems then
Exit;