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

Upd: Cocoa: Left/Right Arrow improved in TabControl

Browse Source
This commit is contained in:
rich2014 2023-05-15 19:52:56 +08:00
parent b64bc6bef8
commit 8abb468491
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -160,23 +160,21 @@ end;
function AllocArrowButton(isPrev: Boolean): NSButton;
var
btn : NSButton;
r : NSRect;
begin
btn:=NSButton(NSButton.alloc).initWithFrame(NSZeroRect);
btn.setBezelStyle(NSRegularSquareBezelStyle);
btn.setButtonType(NSMomentaryLightButton);
if isPrev then
btn.setImage( NSImage.imageNamed( NSImageNameLeftFacingTriangleTemplate ))
btn.setTitle( StrToNSString('◀') )
else
btn.setImage( NSImage.imageNamed( NSImageNameRightFacingTriangleTemplate ));
btn.setTitle( StrToNSString('▶') );
{$ifdef BOOLFIX}
btn.setBordered_(Ord(false));
{$else}
btn.setBordered(false);
{$endif}
btn.setTitle(NSString.string_);
btn.sizeToFit();
if not isPrev then btn.setAutoresizingMask(NSViewMinXMargin);
Result:=btn;
@ -184,7 +182,7 @@ end;
const
arrow_hofs = 12;
arrow_vofs = 20;
arrow_vofs = 10;
procedure PlaceButton(isPrev: Boolean; abtn: NSButton; dst: NSTabView);
var