paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 13:31:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix typo overlowed->overflowed

Browse Source 
git-svn-id: trunk@37346 -
This commit is contained in:
michael 2017-09-28 07:49:42 +00:00
parent 2ce264b496
commit a26ac7dc91
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-report/src/fpreport.pp
View File

@ -844,7 +844,7 @@ type
FUseParentFont: boolean;
FVisibleOnPage: TFPReportVisibleOnPage;
FFont: TFPReportFont;
FIsOverlowed: Boolean;
FIsOverflowed: Boolean;
function GetFont: TFPReportFont;
function IsStringValueZero(const AValue: string): boolean;
procedure SetChildBand(AValue: TFPReportChildBand);
@ -9685,7 +9685,7 @@ begin
if lGrp.ReprintedHeader and
( not lGrp.GroupChanged or
lGrp.FNeedsReprintedHeader) and
( not lGrp.GroupFooter.FIsOverlowed or
( not lGrp.GroupFooter.FIsOverflowed or
lGrp.OverflowedFooterNeedsReprintedHeader ) then
begin
Report.FRTInRepeatedGroupHeader := True;
@ -10569,7 +10569,7 @@ var
//writeln(' part move to next page');
end;
{ set state variable }
aBand.FIsOverlowed := True;
aBand.FIsOverflowed := True;
{ do not handle overflowe in CheckNewOrOverFlow }
FOverflowed := False;
end;
@ -10662,7 +10662,7 @@ begin
(lHandledBands.Count > 0) then
TFPReportCustomGroupHeaderBand(aBand).StoreRTBands(lHandledBands);
aBand.FIsOverlowed := False;
aBand.FIsOverflowed := False;
Report.FRTIsOverflowed := False;
aBand.AfterPrintWithChilds;
finally