unit...
{$ifdef LCLCocoa} {$modeswitch objectivec2} {$endif}
uses ...
{$ifdef LCLCocoa} CocoaAll, {$endif}
procedure TranslateApplicationMenu;
var mnMain: NSMenu;
mnApp : NSMenu;
mnItem: NSMenuItem;
i : integer;
begin
mnMain := NSApplication (NSApp).mainmenu;
mnItem := NSMenuItem (mnMain.itemArray.objectAtIndex(0));
if (mnItem.hasSubmenu) then begin
mnApp := mnItem.submenu;
for i:=0 to mnApp.itemArray.count-1 do begin
mnItem := NSMenuItem(mnApp.itemArray.objectAtIndex(i));
if (NOT mnItem.isSeparatorItem) then begin
if (mnItem.title.UTF8String = 'Services') then
mnItem.setTitle (NSString.stringWithUTF8string('Dienste'));
if (mnItem.title.UTF8String = 'Hide Others') then
mnItem.setTitle (NSString.stringWithUTF8string('Andere ausblenden'));
if (mnItem.title.UTF8String = 'Show All') then
mnItem.setTitle (NSString.stringWithUTF8string('Alle einblenden'));
if (mnItem.title.UTF8String = 'Hide ' + Application.Title) then
mnItem.setTitle (NSString.stringWithUTF8string(PChar(Application.Title + ' ausblenden')));
if (mnItem.title.UTF8String = 'Quit ' + Application.Title) then
mnItem.setTitle (NSString.stringWithUTF8string(PChar(Application.Title + ' beenden')));
end
end
end
end;