Browse Source

* Fix typo overlowed->overflowed

git-svn-id: trunk@37346 -
michael 7 years ago
parent
commit
a26ac7dc91
1 changed files with 4 additions and 4 deletions
  1. 4 4
      packages/fcl-report/src/fpreport.pp

+ 4 - 4
packages/fcl-report/src/fpreport.pp

@@ -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