paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-14 10:28:20 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/customlabel.inc
View File

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