paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 07:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Update file fpreport.pp

Browse Source
This commit is contained in:
Arael1895 2023-11-30 14:22:31 +00:00 committed by Michaël Van Canneyt
parent 9918bb5619
commit b179e01b3f
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1078,6 +1078,7 @@ type
public
procedure DoWriteLocalProperties(AWriter: TFPReportStreamer; AOriginal: TFPReportElement = nil); override;
procedure ReadElement(AReader: TFPReportStreamer); override;
procedure WriteElement(AWriter: TFPReportStreamer; AOriginal: TFPReportElement = nil); override;
constructor Create(AOwner: TComponent); override;
end;
TFPReportCustomDataBandClass = Class of TFPReportCustomDataBand;
@ -5903,6 +5904,14 @@ begin
FooterBand:=TFPReportCustomDataFooterBand(RBand('Footer'));
HeaderBand:=TFPReportCustomDataHeaderBand(RBand('Header'));
MasterBand:=TFPReportCustomDataBand(RBand('Master'));
FDisplayPosition := AReader.ReadInteger('DisplayPosition', 0);
end;
procedure TFPReportCustomDataBand.WriteElement(AWriter: TFPReportStreamer;
AOriginal: TFPReportElement);
begin
inherited WriteElement(AWriter, AOriginal);
AWriter.WriteInteger('DisplayPosition', FDisplayPosition);
end;
constructor TFPReportCustomDataBand.Create(AOwner: TComponent);