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

LazReport, missing line from previous patch to fix some lines are not shown

Browse Source 
git-svn-id: trunk@39805 -
This commit is contained in:
jesus 2013-01-08 17:27:20 +00:00
parent 77f02e3f39
commit 009fe39d7a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3073,7 +3073,7 @@ var
{$IFDEF DebugLR_detail} {$IFDEF DebugLR_detail}
DebugLn('OutLine Cury=%d + th=%d = %d <= dr.bottom=%d == %s',[cury,th,cury+th,dr.bottom,dbgs(cury+th<=dr.bottom)]); DebugLn('OutLine Cury=%d + th=%d = %d <= dr.bottom=%d == %s',[cury,th,cury+th,dr.bottom,dbgs(cury+th<=dr.bottom)]);
{$ENDIF} {$ENDIF}
if not Streaming and (cury + th <= DR.Bottom) then if not Streaming and (cury + th -1 <= DR.Bottom) then
begin begin
n := Length(St); n := Length(St);
w := Ord(St[n - 1]) * 256 + Ord(St[n]); w := Ord(St[n - 1]) * 256 + Ord(St[n]);