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

Revert "lcl: label: align to right for autosize and taRightJustify (Delphi compatibility)"

Browse Source 
This reverts commit 29996ddc03.
This commit is contained in:
Ondrej Pokorny 2022-11-30 10:15:22 +01:00
parent f1b3d0ca11
commit 2a1ea2ca04
1 changed files with 0 additions and 7 deletions

7
lcl/include/customlabel.inc
View File

@ -300,18 +300,11 @@ begin
end;
procedure TCustomLabel.UpdateSize;
var
OldWidth, OldLeft: Integer;
begin
OldWidth := Width;
OldLeft := Left;
InvalidatePreferredSize;
if OptimalFill and (not AutoSize) then
AdjustFontForOptimalFill;
AdjustSize;
if (AutoSize or OptimalFill) and (Alignment=taRightJustify)
and (OldWidth<>Width) and (OldLeft=Left) then
Left := Left-Width+OldWidth;
end;
{-------------------------------------------------------------------------------