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

Cocoa: remove the acceleration in Menu/Tab title, make it consistent with macOS idioms

Browse Source
This commit is contained in:
rich2014 2024-05-24 20:23:53 +08:00
parent 2fbdd4de2f
commit 1adfc7d4a3
1 changed files with 26 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lcl/interfaces/cocoa/cocoautils.pas
View File

@ -68,6 +68,7 @@ function StrToNSStr(const s: string; AutoRelease: Boolean = true): NSString; inl
function NSStringToString(ns: NSString): String;
function NSStringRemoveLineBreak(const str: NSString): NSString;
function StringRemoveAcceleration(const str: String): String;
function GetNSObjectWindow(obj: NSObject): NSWindow;
@ -127,9 +128,9 @@ function GetMacOSXVersion: Integer;
function DateTimeToNSDate(const aDateTime : TDateTime): NSDate;
function NSDateToDateTime(const aDateTime: NSDate): TDateTime;
// The function removes single & and replaced && with &
// The function removes single '&' and '(...)', and replaced '&&' with '&'
// (removing LCL (Windows) specific caption convention
function ControlTitleToStr(const ATitle: string): String;
function ControlTitleToStr(const ATitle: string): String; inline;
// The returned NSString doesn't require a release
// (it would happen in NSAutoRelease pool)
function ControlTitleToNSStr(const ATitle: string): NSString;
@ -936,6 +937,28 @@ begin
Result:= Result.stringByReplacingOccurrencesOfString_withString( NSSTR_PARAGRAPH_SEPARATOR, NSString.string_ );
end;
function StringRemoveAcceleration(const str: String): String;
var
posAmp: Integer;
posRight: Integer;
posLeft: Integer;
begin
Result:= str;
posAmp:= DeleteAmpersands(Result);
if posAmp < 0 then
Exit;
posRight:= str.IndexOf( ')' );
if (posRight<0) or (posRight<posAmp) then
Exit;
posLeft:= str.IndexOf( '(' );
if (posLeft<0) or (posLeft>posAmp) then
Exit;
Result:= str.Substring(0,posLeft).Trim;
end;
procedure SetNSText(text: NSText; const s: String); inline;
var
ns: NSString;
@ -1265,8 +1288,7 @@ end;
function ControlTitleToStr(const ATitle: string): String;
begin
Result := ATitle;
DeleteAmpersands(Result);
Result:= StringRemoveAcceleration(ATitle);
end;
function ControlTitleToNSStr(const ATitle: string): NSString;