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

LazReport, unconditionally stretch stretchable objects, fix issue #20988

Browse Source 
git-svn-id: trunk@36041 -
This commit is contained in:
jesus 2012-03-15 21:13:35 +00:00
parent ca4c12556c
commit 7be38e8951
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazreport/source/lr_class.pas
View File

@ -5374,12 +5374,10 @@ begin
if Stretched then if Stretched then
begin begin
sh := CalculatedHeight; sh := CalculatedHeight;
// sh := CalcHeight;
{$IFDEF DebugLR} {$IFDEF DebugLR}
DebugLn('Height=%d CalculatedHeight=%d',[dy,sh]); DebugLn('Height=%d CalculatedHeight=%d',[dy,sh]);
{$ENDIF} {$ENDIF}
if sh > dy then StretchObjects(sh);
StretchObjects(sh);
maxdy := sh; maxdy := sh;
if not PageBreak then if not PageBreak then
CheckPageBreak(y, sh, False); CheckPageBreak(y, sh, False);