paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-09 23:17:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa: TStaticText: Alignment setting is supported at design time

Browse Source
This commit is contained in:
rich2014 2023-10-01 20:17:19 +08:00
parent fcef47b222
commit a013fd21f0
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/cocoa/cocoawsstdctrls.pas
View File

@ -1008,6 +1008,7 @@ end;
class function TCocoaWSCustomStaticText.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLHandle;
var
lclStaticText: TCustomStaticText absolute AWinControl;
field: NSTextField;
begin
field := NSTextField(AllocTextField(AWinControl, AParams));
@ -1022,6 +1023,7 @@ begin
field.setEditable(False);
field.setSelectable(False);
{$endif}
field.setAlignment( AlignmentLCLToCocoa(lclStaticText.Alignment) );
Result:=TLCLHandle(field);
end;