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

Cocoa: move const from CocoaTabControls to CocoaConst

Browse Source
This commit is contained in:
rich2014 2023-11-21 01:11:24 +08:00
parent 29d299458e
commit 312a73b6b7
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/cocoa/cocoaconst.pas
View File

@ -31,13 +31,21 @@ var
NSSTR_KEY_EQUALS: NSString; NSSTR_KEY_EQUALS: NSString;
NSSTR_KEY_PLUS: NSString; NSSTR_KEY_PLUS: NSString;
NSSTR_TABCONTROL_PREV_ARROW: NSSTRING;
NSSTR_TABCONTROL_NEXT_ARROW: NSSTRING;
implementation implementation
initialization initialization
NSSTR_KEY_EQUALS:= NSSTR('='); NSSTR_KEY_EQUALS:= NSSTR('=');
NSSTR_KEY_PLUS:= NSSTR('+'); NSSTR_KEY_PLUS:= NSSTR('+');
NSSTR_TABCONTROL_PREV_ARROW:= NSString.alloc.initWithUTF8String('◀'#0);
NSSTR_TABCONTROL_NEXT_ARROW:= NSString.alloc.initWithUTF8String('▶'#0);
finalization; finalization;
NSSTR_TABCONTROL_PREV_ARROW.release;
NSSTR_TABCONTROL_NEXT_ARROW.release;
end. end.

6
lcl/interfaces/cocoa/cocoatabcontrols.pas
View File

@ -26,7 +26,7 @@ uses
// rtl+ftl // rtl+ftl
Types, Classes, SysUtils, Types, Classes, SysUtils,
// Libs // Libs
MacOSAll, CocoaAll, CocoaUtils, CocoaPrivate; MacOSAll, CocoaAll, CocoaUtils, CocoaPrivate, CocoaConst;
type type
@ -189,9 +189,9 @@ begin
btn.setButtonType(NSMomentaryLightButton); btn.setButtonType(NSMomentaryLightButton);
if isPrev then if isPrev then
btn.setTitle( StrToNSString('◀') ) btn.setTitle( NSSTR_TABCONTROL_PREV_ARROW )
else else
btn.setTitle( StrToNSString('▶') ); btn.setTitle( NSSTR_TABCONTROL_NEXT_ARROW );
{$ifdef BOOLFIX} {$ifdef BOOLFIX}
btn.setBordered_(Ord(false)); btn.setBordered_(Ord(false));