paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 07:09:18 +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 public
procedure DoWriteLocalProperties(AWriter: TFPReportStreamer; AOriginal: TFPReportElement = nil); override; procedure DoWriteLocalProperties(AWriter: TFPReportStreamer; AOriginal: TFPReportElement = nil); override;
procedure ReadElement(AReader: TFPReportStreamer); override; procedure ReadElement(AReader: TFPReportStreamer); override;
procedure WriteElement(AWriter: TFPReportStreamer; AOriginal: TFPReportElement = nil); override;
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
end; end;
TFPReportCustomDataBandClass = Class of TFPReportCustomDataBand; TFPReportCustomDataBandClass = Class of TFPReportCustomDataBand;
@ -5903,6 +5904,14 @@ begin
FooterBand:=TFPReportCustomDataFooterBand(RBand('Footer')); FooterBand:=TFPReportCustomDataFooterBand(RBand('Footer'));
HeaderBand:=TFPReportCustomDataHeaderBand(RBand('Header')); HeaderBand:=TFPReportCustomDataHeaderBand(RBand('Header'));
MasterBand:=TFPReportCustomDataBand(RBand('Master')); 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; end;
constructor TFPReportCustomDataBand.Create(AOwner: TComponent); constructor TFPReportCustomDataBand.Create(AOwner: TComponent);