paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 06:38:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport: Improve setting document properties when exporting document using lrFclPDFExport addon. Patch by paweld, issue #41392.

Browse Source
This commit is contained in:
Maxim Ganetsky 2025-02-01 22:53:16 +03:00
parent 28ba5306c3
commit 3da776592f
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazreport/source/addons/lrFclPDFExport/lr_e_fclpdf.pas
View File

@ -916,9 +916,10 @@ procedure TlrPdfExportFilter.OnBeginDoc;
begin
inherited OnBeginDoc;
FCurPageNo:=-1;
FPDFDocument.Infos.Title := Application.Title;
{ FPDFDocument.Infos.Author := FAuthorPDF;
FPDFDocument.Infos.Producer := FProducerPDF;}
FPDFDocument.Infos.Title := CurReport.Title;
FPDFDocument.Infos.Author := CurReport.ReportAutor;
FPDFDocument.Infos.Producer := Application.Title;
FPDFDocument.Infos.Keywords := CurReport.KeyWords;
FPDFDocument.Infos.ApplicationName := ApplicationName;
FPDFDocument.Infos.CreationDate := Now;