paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 14:52:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Original patch of Pascal Riekenberg to replace previous one

Browse Source 
git-svn-id: trunk@37500 -
This commit is contained in:
michael 2017-10-21 19:10:07 +00:00
parent 0796eefe50
commit 42ac9457a2
1 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10750,6 +10750,8 @@ end;
function TFPReportLayouter.ShowBandWithChilds(aBand: TFPReportCustomBand): Boolean;
Var
lHandledBands: TBandList;
overFlowActions : TOverFlowActions;
@ -10772,27 +10774,26 @@ begin
lBand := aBand;
while Assigned(lBand) do
begin
Exclude(overFlowActions,oaSameBandAgain);
lRTBand := CommonRuntimeBandProcessing(lBand);
Result := lRTBand<>Nil;
if Result then
begin
try
Exclude(overFlowActions,oaSameBandAgain);
lRTBand := CommonRuntimeBandProcessing(lBand);
if lRTBand=Nil then
Continue;
Result := True;
lHandledBands.Add(lRTBand);
UpdateSpaceRemaining(lRTBand, aBand.NeedsUpdateYPos);
if NoSpaceRemaining then
overFlowActions := HandleOverflowedBands(lHandledBands, aBand, lRTBand);
if (oaStartAgain in overFlowActions) then
lband:=Nil // exit while loop.
else
begin
if Assigned(lRTBand) then
aBand.AfterPrintBand(Self, lRTBand);
if not (oaSameBandAgain in overFlowActions) then
lBand := lBand.ChildBand;
end;
end;
if (overFlowActions<>[]) then
Report.FRTIsOverflowed := True;
break;
if Assigned(lRTBand) then
aBand.AfterPrintBand(Self, lRTBand);
finally
if not (oaSameBandAgain in overFlowActions) then
lBand := lBand.ChildBand;
if (overFlowActions<>[]) then
Report.FRTIsOverflowed := True;
end;
end; { while Assigned(lBand) }
Until not (oaStartAgain in OverFlowActions);
if (aBand is TFPReportCustomGroupHeaderBand) and