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

cocoa: recreating menu item handle, if switches between separation caption

Browse Source 
git-svn-id: trunk@61595 -
This commit is contained in:
dmitry 2019-07-16 00:27:31 +00:00
parent 5d297abae5
commit 63e8fd0573
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/cocoa/cocoawsmenus.pas
View File

@ -652,13 +652,18 @@ var
s: string; s: string;
begin begin
if not Assigned(AMenuItem) or (AMenuItem.Handle=0) then Exit; if not Assigned(AMenuItem) or (AMenuItem.Handle=0) then Exit;
s := ACaption; if NSMenuItem(AMenuItem.Handle).isSeparatorItem <> (ACaption='-') then
DeleteAmpersands(s); AMenuItem.RecreateHandle
ns:=NSStringUtf8(s); else
NSMenuItem(AMenuItem.Handle).setTitle(ns); begin
if NSMenuItem(AMenuItem.Handle).hasSubmenu then s := ACaption;
NSMenuItem(AMenuItem.Handle).submenu.setTitle(ns); DeleteAmpersands(s);
ns.release; ns:=NSStringUtf8(s);
NSMenuItem(AMenuItem.Handle).setTitle(ns);
if NSMenuItem(AMenuItem.Handle).hasSubmenu then
NSMenuItem(AMenuItem.Handle).submenu.setTitle(ns);
ns.release;
end;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------