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

LCL: fix label layout when aligned

Browse Source 
git-svn-id: trunk@13061 -
This commit is contained in:
tombo 2007-11-28 09:17:01 +00:00
parent 9fa8019b30
commit 2110590f03
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customlabel.inc
View File

@ -201,7 +201,7 @@ begin
TextTop := 0;
end else
begin
GetPreferredSize(lTextWidth, lTextHeight);
GetPreferredSize(lTextWidth, lTextHeight, True);
case Layout of
tlCenter: TextTop := (Height - lTextHeight) div 2;
tlBottom: TextTop := Height - lTextHeight;