paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 07:59:44 +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_PLUS: NSString;
NSSTR_TABCONTROL_PREV_ARROW: NSSTRING;
NSSTR_TABCONTROL_NEXT_ARROW: NSSTRING;
implementation
initialization
NSSTR_KEY_EQUALS:= NSSTR('=');
NSSTR_KEY_PLUS:= NSSTR('+');
NSSTR_TABCONTROL_PREV_ARROW:= NSString.alloc.initWithUTF8String('◀'#0);
NSSTR_TABCONTROL_NEXT_ARROW:= NSString.alloc.initWithUTF8String('▶'#0);
finalization;
NSSTR_TABCONTROL_PREV_ARROW.release;
NSSTR_TABCONTROL_NEXT_ARROW.release;
end.

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

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