paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:11:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Setting group header sets data in group footer

Browse Source 
git-svn-id: trunk@38605 -
This commit is contained in:
michael 2018-03-23 08:07:41 +00:00
parent bbb728cc20
commit 03b2584dc1
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8934,16 +8934,17 @@ begin
if FGroupHeader = AValue then if FGroupHeader = AValue then
Exit; Exit;
if Assigned(FGroupHeader) then if Assigned(FGroupHeader) then
begin begin
FGroupHeader.FGroupFooter := nil; FGroupHeader.FGroupFooter := nil;
FGroupHeader.RemoveFreeNotification(Self); FGroupHeader.RemoveFreeNotification(Self);
end; end;
FGroupHeader := AValue; FGroupHeader := AValue;
if Assigned(FGroupHeader) then if Assigned(FGroupHeader) then
begin begin
FGroupHeader.FGroupFooter := Self; FGroupHeader.FGroupFooter := Self;
FGroupHeader.FreeNotification(Self); FGroupHeader.FreeNotification(Self);
end; Data:=FGroupHeader.Data;
end;
end; end;
procedure TFPReportCustomGroupFooterBand.FixupReference(PN, PV: String; C: TFPReportElement); procedure TFPReportCustomGroupFooterBand.FixupReference(PN, PV: String; C: TFPReportElement);