Fast report, *.pdf via code erstellen

[bernhard_LA]

welche unit muss ich einbinden für die Konstanten psNone, pv17 die ich in meiner Funktion verwende
(siehe auch https://www.fast-report.com/en/blog/...elphi-lazarus/ )

Delphi-Quellcode:

procedure TTestForm.Save_asPDF (MyReport: TfrxReport);
begin

  MyReport.PrepareReport();
  { Set the range of pages to export. By default, all pages of the generated report are exported. }
  frxPDFExport1.PageNumbers := '2-3';
  { Set the PDF standard
    TPDFStandard = (psNone, psPDFA_1a, psPDFA_1b, psPDFA_2a, psPDFA_2b, psPDFA_3a, psPDFA_3b);
    It is required to add the frxExportPDFHelpers module to the uses list:
    uses frxExportPDFHelpers; }
  frxPDFExport1.PDFStandard := psNone;
  { You can set the PDF standard version for PDFStandard = psNone
    TPDFVersion = (pv14, pv15, pv16, pv17);
    It is required to add the frxExportPDFHelpers module to the uses list:
    uses frxExportPDFHelpers; }
  frxPDFExport1.PDFVersion := pv17;
  { To get smaller file size, you can set the compression }
  frxPDFExport1.Compressed := true;
  { Set whether to embed fonts in the resulting document.
    Embedding fonts significantly increases the size of the resulting document }
  frxPDFExport1.EmbeddedFonts := False;
  { Set whether we need to export the background image }
  frxPDFExport1.Background := true;
  { Disable export of objects with optimization for printing. With option enabled images will be high-quality but 9 times larger in volume }
  frxPDFExport1.PrintOptimized := False;
  { Set whether the resulting PDF will contain an external table of contents, as in the original report }
  frxPDFExport1.Outline := False;
  { Set whether to export images with transparency }
  frxPDFExport1.Transparency := true;
  { You can set the desired DPI of images. Enabling this option disables SaveOriginalImages option, which allows you to save images in their
    original form }
  frxPDFExport1.PictureDPI := 150;
  { Set the compression ratio of bitmap images }
  frxPDFExport1.Quality := 95;
  { Set whether to open the resulting file after export }
  frxPDFExport1.OpenAfterExport := False;
  { Set whether to display export progress
    (show which page is currently being exported) }
  frxPDFExport1.ShowProgress := False;
  { Set whether to display a dialog box with export filter settings }
  frxPDFExport1.ShowDialog := False;
  { Set the name of the resulting file. Please note that if you do not set the file name and disable the export filter dialog box, the file name selection dialog will still be displayed }
  frxPDFExport1.FileName := FReportfilenamePDF;
  { Fill in the corresponding fields of the Information tab }
  frxPDFExport1.Title := 'Your Title';
  frxPDFExport1.Author := 'Your Name';
  frxPDFExport1.Subject := 'Your Subject';
  frxPDFExport1.Keywords := 'Your Keywords';
  frxPDFExport1.Creator := 'Creator Name';
  frxPDFExport1.Producer := 'Producer Name';
  { Fill in the corresponding fields of the Security tab }
  frxPDFExport1.UserPassword := 'User Password';
  frxPDFExport1.OwnerPassword := 'Owner Password';
  frxPDFExport1.ProtectionFlags := [ePrint, eModify, eCopy, eAnnot];
  { Set the Viewer settings (Viewer tab) }
  frxPDFExport1.HideToolbar := False;
  frxPDFExport1.HideMenubar := False;
  frxPDFExport1.HideWindowUI := False;
  frxPDFExport1.FitWindow := False;
  frxPDFExport1.CenterWindow := False;
  frxPDFExport1.PrintScaling := False;
  { Export the report }
  MyReport.Export(frxPDFExport1);

end;

[shebang]

Zitat von bernhard_LA:

welche unit muss ich einbinden für die Konstanten psNone, pv17

Ich zitiere mal deinen eigenen Post.

Zitat von bernhard_LA:

Delphi-Quellcode:

  { Set the PDF standard
    TPDFStandard = (psNone, psPDFA_1a, psPDFA_1b, psPDFA_2a, psPDFA_2b, psPDFA_3a, psPDFA_3b);
    It is required to add the frxExportPDFHelpers module to the uses list:
    uses frxExportPDFHelpers; }
  frxPDFExport1.PDFStandard := psNone;

Zitat von bernhard_LA:

Delphi-Quellcode:

  { You can set the PDF standard version for PDFStandard = psNone
    TPDFVersion = (pv14, pv15, pv16, pv17);
    It is required to add the frxExportPDFHelpers module to the uses list:
    uses frxExportPDFHelpers; }
  frxPDFExport1.PDFVersion := pv17;

[bernhard_LA]

Danke ....