paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 04:50:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Inoussa to stream 2pass option (bug ID 35300)

Browse Source 
git-svn-id: trunk@41804 -
This commit is contained in:
michael 2019-03-30 19:18:29 +00:00
parent 1951aff5a4
commit c763fbf84b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8607,6 +8607,7 @@ begin
// local properties
AWriter.WriteString('Title', Title);
AWriter.WriteString('Author', Author);
AWriter.WriteBoolean('TwoPass',TwoPass);
AWriter.WriteDateTime('DateCreated', DateCreated);
// now the design-time images
AWriter.PushElement('Images');
@ -8675,6 +8676,7 @@ begin
inherited ReadElement(AReader);
FTitle := AReader.ReadString('Title', Title);
FAuthor := AReader.ReadString('Author', Author);
FTwoPass := AReader.ReadBoolean('TwoPass',TwoPass);
FDateCreated := AReader.ReadDateTime('DateCreated', Now);
E := AReader.FindChild('Images');