paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 21:19:31 +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 HandleFooterBands; virtual;
procedure HandleDatabands; virtual;
procedure HandleGroups; virtual;
procedure HandleGroupBands; virtual;
procedure HandleLastGroupFooters; virtual;
procedure HandleReportSummaries; virtual;
procedure HandleReportSummaryBands; virtual;
procedure HandleGroupHeader(aBand: TFPReportCustomGroupHeaderBand); virtual;
procedure HandleGroupFooter(aBand: TFPReportCustomGroupFooterBand); virtual;
function NoSpaceRemaining: boolean;virtual;
@ -9726,7 +9726,7 @@ begin
end;
end;
procedure TFPReportLayouter.HandleGroups;
procedure TFPReportLayouter.HandleGroupBands;
Var
I, lHighestGroupWithChange: Integer;
@ -9929,7 +9929,7 @@ begin
Report.Variables.BuildAggregates;
CheckNewOrOverFlow(True);
if FHasGroups then
HandleGroups;
HandleGroupBands;
{ handle overflow possibly caused by Group Band just processed. }
if FOverflowed then
Continue;
@ -9996,7 +9996,7 @@ begin
FLastDsgnDataBand := nil;
end;
Procedure TFPReportLayouter.HandleReportSummaries;
procedure TFPReportLayouter.HandleReportSummaryBands;
Var
I : integer;
@ -10091,7 +10091,7 @@ begin
if Assigned(lPageData) then
RunDataLoop(lPageIdx,lPageData);
if FHasReportSummaryBand then
HandleReportSummaries;
HandleReportSummaryBands;
end;
SetPageCount(RTObjects.Count);
end;