paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 18:56:00 +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

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

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