paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-27 21:13:47 +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
Exit;
if Assigned(FGroupHeader) then
begin
begin
FGroupHeader.FGroupFooter := nil;
FGroupHeader.RemoveFreeNotification(Self);
end;
end;
FGroupHeader := AValue;
if Assigned(FGroupHeader) then
begin
begin
FGroupHeader.FGroupFooter := Self;
FGroupHeader.FreeNotification(Self);
end;
Data:=FGroupHeader.Data;
end;
end;
procedure TFPReportCustomGroupFooterBand.FixupReference(PN, PV: String; C: TFPReportElement);