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: MacOS: Service PopUp Menu i18n (#538)

Browse source
This commit is contained in:
rich2014 2022-08-10 23:30:52 +08:00 • committed by GitHub
commit ec621657ff
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
4 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/platform/unix/darwin/umydarwin.pas
View file

@ -61,9 +61,10 @@ end;
type TMacosServiceMenuHelper = class
oldMenuPopupHandler: TNotifyEvent;
serviceSubMenuCaption: String;
procedure attachServicesMenu( Sender:TObject);
public
procedure PopUp( menu:TPopupMenu );
procedure PopUp( menu:TPopupMenu; caption:String );
end;
procedure InitNSServiceProvider(
@ -92,7 +93,7 @@ begin
oldMenuPopupHandler:= nil;
// attach the Services Sub Menu by calling NSApplication.setServicesMenu()
servicesItem:= TPopupMenu(Sender).Items.Find('Services');
servicesItem:= TPopupMenu(Sender).Items.Find(serviceSubMenuCaption);
if servicesItem<>nil then
begin
subMenu:= TCocoaMenu.alloc.initWithTitle(NSString.string_);
@ -101,12 +102,13 @@ begin
end;
end;
procedure TMacosServiceMenuHelper.PopUp( menu:TPopupMenu );
procedure TMacosServiceMenuHelper.PopUp( menu:TPopupMenu; caption:String );
begin
// because the menu item handle will be destroyed in TPopupMenu.PopUp()
// we can only call NSApplication.setServicesMenu() in OnMenuPopupHandler()
oldMenuPopupHandler:= OnMenuPopupHandler;
OnMenuPopupHandler:= attachServicesMenu;
serviceSubMenuCaption:= caption;
menu.PopUp();
end;

2
src/platform/unix/ushellcontextmenu.pas
View file

@ -492,7 +492,7 @@ begin
// attach Services Menu in TMacosServiceMenuHelper
mi:=TMenuItem.Create(Self);
mi.Caption:='Services';
mi.Caption:=uLng.rsMenuMacOsServices;
Self.Items.Add(mi);
end;
{$ENDIF}

2
src/platform/uosforms.pas
View file

@ -715,7 +715,7 @@ begin
ShellContextMenu.OnClose := CloseEvent;
// Show context menu
{$IF DEFINED(DARWIN)}
MacosServiceMenuHelper.PopUp( ShellContextMenu );
MacosServiceMenuHelper.PopUp( ShellContextMenu, uLng.rsMenuMacOsServices );
{$ELSE}
ShellContextMenu.PopUp(X, Y);
{$ENDIF}

1
src/ulng.pas
View file

@ -363,6 +363,7 @@ resourcestring
rsMnuEdit = 'Edit';
rsMnuOpenWith = 'Open with';
rsMnuOpenWithOther = 'Other...';
rsMenuMacOsServices = 'Services';
rsMnuMount = 'Mount';
rsMnuUmount = 'Unmount';
rsMnuNoMedia = 'No media available';