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

lcl: label: change left when making label visible for right-aligned autosized label. issue #21898

Browse Source
This commit is contained in:
Ondrej Pokorny 2022-11-27 19:17:31 +01:00
parent 316d8c1de0
commit 369b6b255e
2 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/include/customlabel.inc
View File

@ -262,6 +262,29 @@ begin
Invalidate;
end;
procedure TCustomLabel.SetVisible(Value: Boolean);
var
OldWidth, OldLeft: Integer;
begin
// when changing to Visible, the width gets updated, check for right aligment and change left just like it is done in UpdateSize
// see issue #21898
if Value and not Visible then
begin
OldWidth := Width;
OldLeft := Left;
end else
begin
OldWidth := -1;
OldLeft := -1;
end;
inherited SetVisible(Value);
if (OldWidth>=0) and (AutoSize or OptimalFill) and (Alignment=taRightJustify)
and (OldWidth<>Width) and (OldLeft=Left) then
Left := Left-Width+OldWidth;
end;
{------------------------------------------------------------------------------
Method: TCustomLabel.SetWordWrap
Params: None

1
lcl/stdctrls.pp
View File

@ -1598,6 +1598,7 @@ type
procedure SetWordWrap(Value: Boolean);
procedure Loaded; override;
procedure UpdateSize;
procedure SetVisible(Value: Boolean); override;
property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;
property FocusControl: TWinControl read FFocusControl write SetFocusControl;