paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 21:41:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #33366, group footer ordering

Browse Source 
git-svn-id: trunk@57480 -
This commit is contained in:
michael 2018-03-09 08:18:45 +00:00
parent 1244ee0521
commit 2f07f2fb0e
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/fpreport/design/fpreportdesignobjectlist.pp
View File

@ -1011,6 +1011,7 @@ Var
B:=TFPReportCustomBandWithData(L[i]); B:=TFPReportCustomBandWithData(L[i]);
if (B.Data=ADetail.Data) then if (B.Data=ADetail.Data) then
begin begin
// Recursively add parent groups
if B is TFPReportCustomGroupHeaderBand then if B is TFPReportCustomGroupHeaderBand then
begin begin
P:=TFPReportGroupHeaderBand(B); P:=TFPReportGroupHeaderBand(B);
@ -1020,6 +1021,21 @@ Var
P:=TFPReportGroupHeaderBand(P.ParentGroupHeader); P:=TFPReportGroupHeaderBand(P.ParentGroupHeader);
end; end;
end; end;
// Recursively add child group footers...
if B is TFPReportCustomGroupFooterBand then
begin
P:=TFPReportGroupHeaderBand(TFPReportGroupFooterBand(B).GroupHeader);
if Assigned(P) then
begin
P:=TFPReportGroupHeaderBand(P.ChildGroupHeader);
While P<>Nil do
begin
if Assigned(P.GroupFooter) then
AddBandToList(P.GroupFooter);
P:=TFPReportGroupHeaderBand(P.ChildGroupHeader);
end;
end;
end;
AddBandToList(B); AddBandToList(B);
I:=-1; I:=-1;
end; end;