[SOLVED] RightJustify text in TLabel

[tudi_x]

hi All,
please advise how i could align on the right side the text in a label. as per the below i cannot get this alignment in TLabel. in TEdit is working.

Code: Pascal  [Select][+][-]

1. procedure TForm1.FormCreate(Sender: TObject);
2. var
3.   l: TLabel;
4.  
5. begin
6.   l := TLabel.Create(self);
7.   l.Parent := self;
8.   l.Caption := 'xxxx';
9.   l.Visible := True;
10.   l.Top := 50;
11.   l.Color := clYellow;
12.   l.Alignment:=taRightJustify;
13.  
14.   l.Left := self.Width - l.Width;
15.   Form1.Caption:= inttostr(self.Width) + '|' + inttostr(l.Width) + '|' + inttostr(l.Left);
16. end;

thank you
(Windows 7 Lazarus 1.8RC4 64b)

[balazsszekely]

Set AutoSize to false...

[tudi_x]

thank you!
it worked

Code: Pascal  [Select][+][-]

1. procedure TForm1.FormCreate(Sender: TObject);
2. var
3.   l: TLabel;
4.  
5. begin
6.   l := TLabel.Create(self);
7.   l.Parent := self;
8.   l.Caption := 'xxxx';
9.   l.Visible := True;
10.   l.Top := 50;
11.   l.Color := clYellow;
12.   l.Alignment:=taRightJustify;
13.   l.AutoSize:= false;
14.  
15.   l.Left := self.Width - l.Width;
16.   Form1.Caption:= inttostr(self.Width) + '|' + inttostr(l.Width) + '|' + inttostr(l.Left);
17. end;  

[Arend041]

Set AutoSize to false...

It does indeed work (version 2.0.12 also), but the width is sometimes not sufficient, so that sometimes the label text is not displayed in full.
I hope this 'bug' will be fixed one day. StaticText has the same problem.

[dsiders]

Set AutoSize to false...

It does indeed work (version 2.0.12 also), but the width is sometimes not sufficient, so that sometimes the label text is not displayed in full.
I hope this 'bug' will be fixed one day. StaticText has the same problem.

Perhaps you just need to use the WordWrap property.

https://dsiders.gitlab.io/lazdocsnext/lcl/stdctrls/tcustomlabel.wordwrap.html

[wp]

Set AutoSize to false...

It does indeed work (version 2.0.12 also), but the width is sometimes not sufficient, so that sometimes the label text is not displayed in full.
I hope this 'bug' will be fixed one day. StaticText has the same problem.

This is no bug. You turned AutoSize off, and therefore it is your responsibility to set the label wide enough so that the text is not truncated.