paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 18:29:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Reverted HandleGroups to HandleGroupBands to stay in sync with the other method names, likewise renamed reportsummaries

Browse Source 
git-svn-id: trunk@37274 -
This commit is contained in:
michael 2017-09-20 15:40:40 +00:00
parent b793b2dd28
commit d4e4572a84
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1494,9 +1494,9 @@ type
Procedure HandleHeaderBands; virtual; Procedure HandleHeaderBands; virtual;
Procedure HandleFooterBands; virtual; Procedure HandleFooterBands; virtual;
procedure HandleDatabands; virtual; procedure HandleDatabands; virtual;
procedure HandleGroups; virtual; procedure HandleGroupBands; virtual;
procedure HandleLastGroupFooters; virtual; procedure HandleLastGroupFooters; virtual;
procedure HandleReportSummaries; virtual; procedure HandleReportSummaryBands; virtual;
procedure HandleGroupHeader(aBand: TFPReportCustomGroupHeaderBand); virtual; procedure HandleGroupHeader(aBand: TFPReportCustomGroupHeaderBand); virtual;
procedure HandleGroupFooter(aBand: TFPReportCustomGroupFooterBand); virtual; procedure HandleGroupFooter(aBand: TFPReportCustomGroupFooterBand); virtual;
function NoSpaceRemaining: boolean;virtual; function NoSpaceRemaining: boolean;virtual;
@ -9726,7 +9726,7 @@ begin
end; end;
end; end;
procedure TFPReportLayouter.HandleGroups; procedure TFPReportLayouter.HandleGroupBands;
Var Var
I, lHighestGroupWithChange: Integer; I, lHighestGroupWithChange: Integer;
@ -9929,7 +9929,7 @@ begin
Report.Variables.BuildAggregates; Report.Variables.BuildAggregates;
CheckNewOrOverFlow(True); CheckNewOrOverFlow(True);
if FHasGroups then if FHasGroups then
HandleGroups; HandleGroupBands;
{ handle overflow possibly caused by Group Band just processed. } { handle overflow possibly caused by Group Band just processed. }
if FOverflowed then if FOverflowed then
Continue; Continue;
@ -9996,7 +9996,7 @@ begin
FLastDsgnDataBand := nil; FLastDsgnDataBand := nil;
end; end;
Procedure TFPReportLayouter.HandleReportSummaries; procedure TFPReportLayouter.HandleReportSummaryBands;
Var Var
I : integer; I : integer;
@ -10091,7 +10091,7 @@ begin
if Assigned(lPageData) then if Assigned(lPageData) then
RunDataLoop(lPageIdx,lPageData); RunDataLoop(lPageIdx,lPageData);
if FHasReportSummaryBand then if FHasReportSummaryBand then
HandleReportSummaries; HandleReportSummaryBands;
end; end;
SetPageCount(RTObjects.Count); SetPageCount(RTObjects.Count);
end; end;