mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: adapt macOS APP Menu related code to the new version of Lazarus/Cocoa

Browse source
This commit is contained in:
rich2014 2024-08-22 21:08:42 +08:00
commit de5e1d44e0
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/fmain.pas
View file

@ -56,7 +56,7 @@ uses
{$ELSEIF DEFINED(LCLGTK2)}
, Glib2, Gtk2
{$ELSEIF DEFINED(DARWIN)}
, CocoaMenus
, CocoaConfig
, uMyDarwin
{$ENDIF}
, Types, LMessages;
@ -2953,8 +2953,8 @@ constructor TfrmMain.Create(TheOwner: TComponent);
{$IF DEFINED(DARWIN)}
procedure setMacOSAppMenu();
begin
macOS_AppMenuIntf.aboutItem:= mnuHelpAbout;
macOS_AppMenuIntf.preferencesItem:= mnuConfigOptions;
CocoaConfigMenu.appMenu.aboutItem:= mnuHelpAbout;
CocoaConfigMenu.appMenu.preferencesItem:= mnuConfigOptions;
end;
procedure setMacOSDockMenu();
@ -2967,7 +2967,7 @@ constructor TfrmMain.Create(TheOwner: TComponent);
newItem.Caption:= rsMnuNewWindow;
newItem.OnClick:= @OpenNewWindow;
dockMenu.Add(newItem);
macOS_DockMenuIntf.customMenus:= dockMenu;
CocoaConfigMenu.dockMenu.customMenus:= dockMenu;
end;
{$ENDIF}
begin