mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-14 12:59:12 +02:00
LazReport: Improve setting document properties when exporting document using lrFclPDFExport addon. Patch by paweld, issue #41392.
This commit is contained in:
parent
28ba5306c3
commit
3da776592f
@ -916,9 +916,10 @@ procedure TlrPdfExportFilter.OnBeginDoc;
|
|||||||
begin
|
begin
|
||||||
inherited OnBeginDoc;
|
inherited OnBeginDoc;
|
||||||
FCurPageNo:=-1;
|
FCurPageNo:=-1;
|
||||||
FPDFDocument.Infos.Title := Application.Title;
|
FPDFDocument.Infos.Title := CurReport.Title;
|
||||||
{ FPDFDocument.Infos.Author := FAuthorPDF;
|
FPDFDocument.Infos.Author := CurReport.ReportAutor;
|
||||||
FPDFDocument.Infos.Producer := FProducerPDF;}
|
FPDFDocument.Infos.Producer := Application.Title;
|
||||||
|
FPDFDocument.Infos.Keywords := CurReport.KeyWords;
|
||||||
FPDFDocument.Infos.ApplicationName := ApplicationName;
|
FPDFDocument.Infos.ApplicationName := ApplicationName;
|
||||||
FPDFDocument.Infos.CreationDate := Now;
|
FPDFDocument.Infos.CreationDate := Now;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user