paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 15:36:03 +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;
begin
if not Assigned(AMenuItem) or (AMenuItem.Handle=0) then Exit;
s := ACaption;
DeleteAmpersands(s);
ns:=NSStringUtf8(s);
NSMenuItem(AMenuItem.Handle).setTitle(ns);
if NSMenuItem(AMenuItem.Handle).hasSubmenu then
NSMenuItem(AMenuItem.Handle).submenu.setTitle(ns);
ns.release;
if NSMenuItem(AMenuItem.Handle).isSeparatorItem <> (ACaption='-') then
AMenuItem.RecreateHandle
else
begin
s := ACaption;
DeleteAmpersands(s);
ns:=NSStringUtf8(s);
NSMenuItem(AMenuItem.Handle).setTitle(ns);
if NSMenuItem(AMenuItem.Handle).hasSubmenu then
NSMenuItem(AMenuItem.Handle).submenu.setTitle(ns);
ns.release;
end;
end;
{------------------------------------------------------------------------------