TPDFPrintOptions

type TPDFPrintOptions = class

protected

  FLandscape: Boolean;

  FPrintBackground: Boolean;

  FScale: Double;

  FPaperWidth: Double;

  FPaperHeight: Double;

  FPreferCSSPageSize: Boolean;

  FMarginType: TCefPdfPrintMarginType;

  FMarginTop: Double;

  FMarginRight: Double;

  FMarginBottom: Double;

  FMarginLeft: Double;

  FPageRanges: ustring;

  FDisplayHeaderFooter: Boolean;

  FHeaderTemplate: ustring;

  FFooterTemplate: ustring;

  FGenerateTaggedPDF: Boolean;

  function GetScalePct;

  function GetPaperWidthMM;

  function GetPaperHeightMM;

  function GetMarginTopMM;

  function GetMarginRightMM;

  function GetMarginBottomMM;

  function GetMarginLeftMM;

  procedure SetScalePct();

  procedure SetPaperWidthMM();

  procedure SetPaperHeightMM();

  procedure SetMarginTopMM();

  procedure SetMarginRightMM();

  procedure SetMarginBottomMM();

  procedure SetMarginLeftMM();

  function InchesToMM();

  function MMToInches();

public

  constructor Create; virtual;

  procedure CopyToSettings();

  property Landscape: Boolean; [rw]

  property PrintBackground: Boolean; [rw]

  property PreferCSSPageSize: Boolean; [rw]

  property PageRanges: ustring; [rw]

  property DisplayHeaderFooter: Boolean; [rw]

  property HeaderTemplate: ustring; [rw]

  property FooterTemplate: ustring; [rw]

  property GenerateTaggedPDF: Boolean; [rw]

  property Scale: Double; [rw]

  property ScalePct: Double; [rw]

  property PaperWidthInch: Double; [rw]

  property PaperHeightInch: Double; [rw]

  property PaperWidthMM: Double; [rw]

  property PaperHeightMM: Double; [rw]

  property MarginType: TCefPdfPrintMarginType; [rw]

  property MarginTopInch: Double; [rw]

  property MarginRightInch: Double; [rw]

  property MarginBottomInch: Double; [rw]

  property MarginLeftInch: Double; [rw]

  property MarginTopMM: Double; [rw]

  property MarginRightMM: Double; [rw]

  property MarginBottomMM: Double; [rw]

  property MarginLeftMM: Double; [rw]

end;

TPDFPrintOptions

TObject