pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions Releases Activity

Update to CEF 117.1.4

Browse Source
This commit is contained in:
salvadordf
2023-09-24 11:21:05 +02:00
parent 1e5d96f16e
commit 8979dc8078
32 changed files with 1324 additions and 341 deletions
Download Patch File Download Diff File Expand all files Collapse all files

117
source/uCEFPDFPrintOptions.pas
View File

@@ -20,6 +20,9 @@ uses
uCEFTypes;
type
/// <summary>
/// The TPDFPrintOptions properties are used to fill the TCefPdfPrintSettings record which is used in the TChromiumCore.PrintToPDF call.
/// </summary>
TPDFPrintOptions = class
protected
FLandscape : boolean;
@@ -37,6 +40,7 @@ type
FDisplayHeaderFooter : boolean;
FHeaderTemplate : ustring;
FFooterTemplate : ustring;
FGenerateTaggedPDF : boolean;
function GetScalePct: double;
function GetPaperWidthMM: double;
@@ -58,33 +62,136 @@ type
function MMToInches(const aMM: double): double;
public
/// <summary>
/// Constructor of TPDFPrintOptions
/// </summary>
constructor Create; virtual;
/// <summary>
/// Copy the fields of this class to the TCefPdfPrintSettings parameter.
/// </summary>
procedure CopyToSettings(var aSettings : TCefPdfPrintSettings);
/// <summary>
/// Set to true for landscape mode or false for portrait mode.
/// </summary>
property Landscape : boolean read FLandscape write FLandscape;
/// <summary>
/// Set to true to print background graphics.
/// </summary>
property PrintBackground : boolean read FPrintBackground write FPrintBackground;
/// <summary>
/// Set to true to prefer page size as defined by css. Defaults to false,
/// in which case the content will be scaled to fit the paper size.
/// </summary>
property PreferCSSPageSize : boolean read FPreferCSSPageSize write FPreferCSSPageSize;
/// <summary>
/// <para>Paper ranges to print, one based, e.g., '1-5, 8, 11-13'. Pages are printed
/// in the document order, not in the order specified, and no more than once.
/// Defaults to empty string, which implies the entire document is printed.</para>
/// <para>The page numbers are quietly capped to actual page count of the document,
/// and ranges beyond the end of the document are ignored. If this results in
/// no pages to print, an error is reported. It is an error to specify a range
/// with start greater than end.</para>
/// </summary>
property PageRanges : ustring read FPageRanges write FPageRanges;
/// <summary>
/// Set to true to display the header and/or footer. Modify
/// HeaderTemplate and/or FooterTemplate to customize the display.
/// </summary>
property DisplayHeaderFooter : boolean read FDisplayHeaderFooter write FDisplayHeaderFooter;
/// <summary>
/// <para>HTML template for the print header. Only displayed if
/// DisplayHeaderFooter is true. Should be valid HTML markup with
/// the following classes used to inject printing values into them:</para>
/// <code>
/// - date: formatted print date
/// - title: document title
/// - url: document location
/// - pageNumber: current page number
/// - totalPages: total pages in the document
/// </code>
/// <para>For example, "<span class=title></span>" would generate a span containing
/// the title.</para>
/// </summary>
property HeaderTemplate : ustring read FHeaderTemplate write FHeaderTemplate;
/// <summary>
/// HTML template for the print footer. Only displayed if
/// DisplayHeaderFooter is true. Uses the same format as
/// HeaderTemplate.
/// </summary>
property FooterTemplate : ustring read FFooterTemplate write FFooterTemplate;
/// <summary>
/// Set to true to generate tagged (accessible) PDF.
/// </summary>
property GenerateTaggedPDF : boolean read FGenerateTaggedPDF write FGenerateTaggedPDF;
/// <summary>
/// The percentage to scale the PDF by before printing (e.g. .5 is 50%).
/// If this value is less than or equal to zero the default value of 1.0
/// will be used.
/// </summary>
property Scale : double read FScale write FScale;
/// <summary>
/// The percentage value to scale the PDF by before printing (e.g. 50 is 50%).
/// </summary>
property ScalePct : double read GetScalePct write SetScalePct;
/// <summary>
/// Output paper width in inches. If either of these values is less than or
/// equal to zero then the default paper size (letter, 8.5 x 11 inches) will
/// be used.
/// </summary>
property PaperWidthInch : double read FPaperWidth write FPaperWidth;
/// <summary>
/// Output paper height in inches. If either of these values is less than or
/// equal to zero then the default paper size (letter, 8.5 x 11 inches) will
/// be used.
/// </summary>
property PaperHeightInch : double read FPaperHeight write FPaperHeight;
/// <summary>
/// Output paper width in mm.
/// </summary>
property PaperWidthMM : double read GetPaperWidthMM write SetPaperWidthMM;
/// <summary>
/// Output paper height in mm.
/// </summary>
property PaperHeightMM : double read GetPaperHeightMM write SetPaperHeightMM;
/// <summary>
/// Margin type.
/// </summary>
property MarginType : TCefPdfPrintMarginType read FMarginType write FMarginType;
/// <summary>
/// Top margin in inches. Only used if MarginType is set to
/// PDF_PRINT_MARGIN_CUSTOM.
/// </summary>
property MarginTopInch : double read FMarginTop write FMarginTop;
/// <summary>
/// Right margin in inches. Only used if MarginType is set to
/// PDF_PRINT_MARGIN_CUSTOM.
/// </summary>
property MarginRightInch : double read FMarginRight write FMarginRight;
/// <summary>
/// Bottom margin in inches. Only used if MarginType is set to
/// PDF_PRINT_MARGIN_CUSTOM.
/// </summary>
property MarginBottomInch : double read FMarginBottom write FMarginBottom;
/// <summary>
/// Left margin in inches. Only used if MarginType is set to
/// PDF_PRINT_MARGIN_CUSTOM.
/// </summary>
property MarginLeftInch : double read FMarginLeft write FMarginLeft;
/// <summary>
/// Top margin in mm.
/// </summary>
property MarginTopMM : double read GetMarginTopMM write SetMarginTopMM;
/// <summary>
/// Right margin in mm.
/// </summary>
property MarginRightMM : double read GetMarginRightMM write SetMarginRightMM;
/// <summary>
/// Bottom margin in mm.
/// </summary>
property MarginBottomMM : double read GetMarginBottomMM write SetMarginBottomMM;
/// <summary>
/// Left margin in mm.
/// </summary>
property MarginLeftMM : double read GetMarginLeftMM write SetMarginLeftMM;
end;
@@ -113,6 +220,7 @@ begin
FDisplayHeaderFooter := False;
FHeaderTemplate := '';
FFooterTemplate := '';
FGenerateTaggedPDF := False;
end;
function TPDFPrintOptions.InchesToMM(const aInches: double): double;
@@ -236,6 +344,7 @@ begin
aSettings.display_header_footer := Ord(FDisplayHeaderFooter);
aSettings.header_template := CefString(FHeaderTemplate);
aSettings.footer_template := CefString(FFooterTemplate);
aSettings.generate_tagged_pdf := Ord(FGenerateTaggedPDF);
end;
end.