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

LCL: fixed order of parameters of CalcFittingFontHeight in TLabel.OptimallFill from Daniel Simões de Almeida (issue #13557)

Browse Source 
git-svn-id: trunk@19573 -
This commit is contained in:
vincents 2009-04-22 19:05:43 +00:00
parent 9074baf434
commit 76d394715b
3 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
docs/Contributors.txt
View File

@ -32,6 +32,7 @@ Cliff Baeseman
Colin Western
Curtis White
Daniel Oom
Daniel Simões de Almeida
Darek Mazur
Darius Blaszijk
David Guadagnini

1
docs/contributors.utf8
View File

@ -8,6 +8,7 @@ Marc
---
Antônio Galvão
Bogusław Brandys
Daniel Simões de Almeida
Diogo Piçarra
Juan Salvador Pérez García
Júnior Gonçalves

4
lcl/include/customlabel.inc
View File

@ -386,8 +386,8 @@ var
OldFontHeight: LongInt;
begin
Result:=false;
if not CalcFittingFontHeight(GetLabelText,Width,Height,NeededWidth,NeededHeight,
NewFontHeight) then exit;
if not CalcFittingFontHeight(GetLabelText,Width,Height,NewFontHeight,NeededWidth,
NeededHeight) then exit;
if Font.Height=NewFontHeight then exit;
//debugln('TCustomLabel.AdjustFontForOptimalFill OldFontHeight=',dbgs(Font.Height),' NewFontHeight=',dbgs(NewFontHeight));
OldFontHeight:=Font.Height;