pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-03-27 20:20:31 +02:00
Code Issues Actions Releases Activity

Update to CEF 121.3.2

Browse Source
This commit is contained in:
salvadordf 2024-02-01 15:13:22 +01:00
parent f614c4b6a4
commit a000f59f97
14 changed files with 183 additions and 140 deletions

14
README.md

@ -3,15 +3,15 @@ CEF4Delphi is an open source project created by Salvador Díaz Fau to embed Chro
CEF4Delphi is based on DCEF3 and fpCEF3. The original license of those projects still applies to CEF4Delphi. Read the license terms in the LICENSE.md file. CEF4Delphi is based on DCEF3 and fpCEF3. The original license of those projects still applies to CEF4Delphi. Read the license terms in the LICENSE.md file.
CEF4Delphi uses CEF 120.2.7 which includes Chromium 120.0.6099.234. CEF4Delphi uses CEF 121.2.14 which includes Chromium 121.0.6167.75.
The CEF binaries used by CEF4Delphi are available for download at Spotify : The CEF binaries used by CEF4Delphi are available for download at Spotify :
* [Windows 32 bits](https://cef-builds.spotifycdn.com/cef_binary_120.2.7%2Bg4bc6a59%2Bchromium-120.0.6099.234_windows32.tar.bz2) * [Windows 32 bits](https://cef-builds.spotifycdn.com/cef_binary_121.2.14%2Bga44b59f%2Bchromium-121.0.6167.75_windows32.tar.bz2)
* [Windows 64 bits](https://cef-builds.spotifycdn.com/cef_binary_120.2.7%2Bg4bc6a59%2Bchromium-120.0.6099.234_windows64.tar.bz2) * [Windows 64 bits](https://cef-builds.spotifycdn.com/cef_binary_121.2.14%2Bga44b59f%2Bchromium-121.0.6167.75_windows64.tar.bz2)
* [Linux x86 64 bits](https://cef-builds.spotifycdn.com/cef_binary_120.2.7%2Bg4bc6a59%2Bchromium-120.0.6099.234_linux64.tar.bz2) * [Linux x86 64 bits](https://cef-builds.spotifycdn.com/cef_binary_121.2.14%2Bga44b59f%2Bchromium-121.0.6167.75_linux64.tar.bz2)
* [Linux ARM 32 bits](https://cef-builds.spotifycdn.com/cef_binary_120.2.7%2Bg4bc6a59%2Bchromium-120.0.6099.234_linuxarm.tar.bz2) * [Linux ARM 32 bits](https://cef-builds.spotifycdn.com/cef_binary_121.2.14%2Bga44b59f%2Bchromium-121.0.6167.75_linuxarm.tar.bz2)
* [Linux ARM 64 bits](https://cef-builds.spotifycdn.com/cef_binary_120.2.7%2Bg4bc6a59%2Bchromium-120.0.6099.234_linuxarm64.tar.bz2) * [Linux ARM 64 bits](https://cef-builds.spotifycdn.com/cef_binary_121.2.14%2Bga44b59f%2Bchromium-121.0.6167.75_linuxarm64.tar.bz2)
* [MacOS x86 64 bits](https://cef-builds.spotifycdn.com/cef_binary_120.2.7%2Bg4bc6a59%2Bchromium-120.0.6099.234_macosx64.tar.bz2) * [MacOS x86 64 bits](https://cef-builds.spotifycdn.com/cef_binary_121.2.14%2Bga44b59f%2Bchromium-121.0.6167.75_macosx64.tar.bz2)
CEF4Delphi was developed and tested on Delphi 12.0 and it has been tested in Delphi 7, Delphi XE, Delphi 10, Delphi 11 and Lazarus 3.0/FPC 3.2.2. CEF4Delphi includes VCL, FireMonkey (FMX) and Lazarus components. CEF4Delphi was developed and tested on Delphi 12.0 and it has been tested in Delphi 7, Delphi XE, Delphi 10, Delphi 11 and Lazarus 3.0/FPC 3.2.2. CEF4Delphi includes VCL, FireMonkey (FMX) and Lazarus components.

BIN
docs/cef4delphi.chm

Binary file not shown.

2
packages/cef4delphi_lazarus.lpk

@ -21,7 +21,7 @@
</CompilerOptions> </CompilerOptions>
<Description Value="CEF4Delphi is an open source project created by Salvador Díaz Fau to embed Chromium-based browsers in applications made with Delphi or Lazarus/FPC."/> <Description Value="CEF4Delphi is an open source project created by Salvador Díaz Fau to embed Chromium-based browsers in applications made with Delphi or Lazarus/FPC."/>
<License Value="MPL 1.1"/> <License Value="MPL 1.1"/>
<Version Major="120" Minor="2" Release="7"/> <Version Major="121" Minor="3" Release="2"/>
<Files Count="215"> <Files Count="215">
<Item1> <Item1>
<Filename Value="..\source\uCEFAccessibilityHandler.pas"/> <Filename Value="..\source\uCEFAccessibilityHandler.pas"/>

17
source/uCEFConstants.pas

@ -1964,10 +1964,27 @@ const
/// <para>TCefShowState values.</para> /// <para>TCefShowState values.</para>
/// <para><see href="https://bitbucket.org/chromiumembedded/cef/src/master/include/internal/cef_types.h">CEF source file: /include/internal/cef_types.h (cef_show_state_t)</see></para> /// <para><see href="https://bitbucket.org/chromiumembedded/cef/src/master/include/internal/cef_types.h">CEF source file: /include/internal/cef_types.h (cef_show_state_t)</see></para>
/// </remarks> /// </remarks>
/// <summary>
/// Show the window as normal.
/// </summary>
CEF_SHOW_STATE_NORMAL = 1; CEF_SHOW_STATE_NORMAL = 1;
/// <summary>
/// Show the window as minimized.
/// </summary>
CEF_SHOW_STATE_MINIMIZED = 2; CEF_SHOW_STATE_MINIMIZED = 2;
/// <summary>
/// Show the window as maximized.
/// </summary>
CEF_SHOW_STATE_MAXIMIZED = 3; CEF_SHOW_STATE_MAXIMIZED = 3;
/// <summary>
/// Show the window as fullscreen.
/// </summary>
CEF_SHOW_STATE_FULLSCREEN = 4; CEF_SHOW_STATE_FULLSCREEN = 4;
/// <summary>
/// Show the window as hidden (no dock thumbnail).
/// Only supported on MacOS..
/// </summary>
CEF_SHOW_STATE_HIDDEN = 5;
/// <summary> /// <summary>
/// Supported quick menu state bit flags. /// Supported quick menu state bit flags.

57
source/uCEFInterfaces.pas

@ -4347,7 +4347,7 @@ type
/// </summary> /// </summary>
procedure OnRouteStateChanged(const route: ICefMediaRoute; state: TCefMediaRouteConnectionState); procedure OnRouteStateChanged(const route: ICefMediaRoute; state: TCefMediaRouteConnectionState);
/// <summary> /// <summary>
/// A message was recieved over |route|. |message| is only valid for the scope /// A message was received over |route|. |message| is only valid for the scope
/// of this callback and should be copied if necessary. /// of this callback and should be copied if necessary.
/// </summary> /// </summary>
procedure OnRouteMessageReceived(const route: ICefMediaRoute; const message_: ustring); procedure OnRouteMessageReceived(const route: ICefMediaRoute; const message_: ustring);
@ -5552,28 +5552,30 @@ type
/// <summary> /// <summary>
/// Sets the font list for the specified |command_id|. If |font_list| is NULL /// Sets the font list for the specified |command_id|. If |font_list| is NULL
/// the system font will be used. Returns true (1) on success. The format is /// the system font will be used. Returns true (1) on success. The format is
/// "<FONT_FAMILY_LIST>,[STYLES] <SIZE>", where: - FONT_FAMILY_LIST is a /// "<FONT_FAMILY_LIST>,[STYLES] <SIZE>", where:
/// comma-separated list of font family names, - STYLES is an optional space- /// - FONT_FAMILY_LIST is a comma-separated list of font family names,
/// separated list of style names /// - STYLES is an optional space-separated list of style names
/// (case-sensitive "Bold" and "Italic" are supported), and /// (case-sensitive "Bold" and "Italic" are supported), and
/// - SIZE is an integer font size in pixels with the suffix "px". /// - SIZE is an integer font size in pixels with the suffix "px".
/// ///
/// Here are examples of valid font description strings: - "Arial, Helvetica, /// Here are examples of valid font description strings:
/// Bold Italic 14px" - "Arial, 14px" /// - "Arial, Helvetica, Bold Italic 14px"
/// - "Arial, 14px"
/// </summary> /// </summary>
function SetFontList(commandId: Integer; const fontList: ustring): Boolean; function SetFontList(commandId: Integer; const fontList: ustring): Boolean;
/// <summary> /// <summary>
/// Sets the font list for the specified |index|. Specify an |index| value of /// Sets the font list for the specified |index|. Specify an |index| value of
/// -1 to set the default font. If |font_list| is NULL the system font will be /// -1 to set the default font. If |font_list| is NULL the system font will be
/// used. Returns true (1) on success. The format is /// used. Returns true (1) on success. The format is
/// "<FONT_FAMILY_LIST>,[STYLES] <SIZE>", where: - FONT_FAMILY_LIST is a /// "<FONT_FAMILY_LIST>,[STYLES] <SIZE>", where:
/// comma-separated list of font family names, - STYLES is an optional space- /// - FONT_FAMILY_LIST is a comma-separated list of font family names,
/// separated list of style names /// - STYLES is an optional space-separated list of style names
/// (case-sensitive "Bold" and "Italic" are supported), and /// (case-sensitive "Bold" and "Italic" are supported), and
/// - SIZE is an integer font size in pixels with the suffix "px". /// - SIZE is an integer font size in pixels with the suffix "px".
/// ///
/// Here are examples of valid font description strings: - "Arial, Helvetica, /// Here are examples of valid font description strings:
/// Bold Italic 14px" - "Arial, 14px" /// - "Arial, Helvetica, Bold Italic 14px"
/// - "Arial, 14px"
/// </summary> /// </summary>
function SetFontListAt(index: Integer; const fontList: ustring): Boolean; function SetFontListAt(index: Integer; const fontList: ustring): Boolean;
end; end;
@ -6163,7 +6165,7 @@ type
/// </summary> /// </summary>
procedure OnAfterCreated(const browser: ICefBrowser); procedure OnAfterCreated(const browser: ICefBrowser);
/// <summary> /// <summary>
/// Called when a browser has recieved a request to close. This may result /// Called when a browser has received a request to close. This may result
/// directly from a call to ICefBrowserHost.*CloseBrowser or indirectly /// directly from a call to ICefBrowserHost.*CloseBrowser or indirectly
/// if the browser is parented to a top-level window created by CEF and the /// if the browser is parented to a top-level window created by CEF and the
/// user attempts to close that window (by clicking the 'X', for example). The /// user attempts to close that window (by clicking the 'X', for example). The
@ -10171,14 +10173,15 @@ type
function GetSelectionBackgroundColor : TCefColor; function GetSelectionBackgroundColor : TCefColor;
/// <summary> /// <summary>
/// Sets the font list. The format is "<FONT_FAMILY_LIST>,[STYLES] <SIZE>", /// Sets the font list. The format is "<FONT_FAMILY_LIST>,[STYLES] <SIZE>",
/// where: - FONT_FAMILY_LIST is a comma-separated list of font family names, /// where:
/// - STYLES is an optional space-separated list of style names (case- /// - FONT_FAMILY_LIST is a comma-separated list of font family names,
/// sensitive /// - STYLES is an optional space-separated list of style names (case-sensitive
/// "Bold" and "Italic" are supported), and /// "Bold" and "Italic" are supported), and
/// - SIZE is an integer font size in pixels with the suffix "px". /// - SIZE is an integer font size in pixels with the suffix "px".
/// ///
/// Here are examples of valid font description strings: - "Arial, Helvetica, /// Here are examples of valid font description strings:
/// Bold Italic 14px" - "Arial, 14px" /// - "Arial, Helvetica, Bold Italic 14px"
/// - "Arial, 14px"
/// </summary> /// </summary>
procedure SetFontList(const font_list: ustring); procedure SetFontList(const font_list: ustring);
/// <summary> /// <summary>
@ -10272,7 +10275,7 @@ type
ICefTextfieldDelegate = interface(ICefViewDelegate) ICefTextfieldDelegate = interface(ICefViewDelegate)
['{72612994-92BB-4DE9-BB38-6F49FB45F94B}'] ['{72612994-92BB-4DE9-BB38-6F49FB45F94B}']
/// <summary> /// <summary>
/// Called when |textfield| recieves a keyboard event. |event| contains /// Called when |textfield| receives a keyboard event. |event| contains
/// information about the keyboard event. Return true (1) if the keyboard /// information about the keyboard event. Return true (1) if the keyboard
/// event was handled or false (0) otherwise for default handling. /// event was handled or false (0) otherwise for default handling.
/// </summary> /// </summary>
@ -10635,14 +10638,15 @@ type
procedure SetEnabledTextColors(color: TCefColor); procedure SetEnabledTextColors(color: TCefColor);
/// <summary> /// <summary>
/// Sets the font list. The format is "<FONT_FAMILY_LIST>,[STYLES] <SIZE>", /// Sets the font list. The format is "<FONT_FAMILY_LIST>,[STYLES] <SIZE>",
/// where: - FONT_FAMILY_LIST is a comma-separated list of font family names, /// where:
/// - STYLES is an optional space-separated list of style names (case- /// - FONT_FAMILY_LIST is a comma-separated list of font family names,
/// sensitive /// - STYLES is an optional space-separated list of style names (case-sensitive
/// "Bold" and "Italic" are supported), and /// "Bold" and "Italic" are supported), and
/// - SIZE is an integer font size in pixels with the suffix "px". /// - SIZE is an integer font size in pixels with the suffix "px".
/// ///
/// Here are examples of valid font description strings: - "Arial, Helvetica, /// Here are examples of valid font description strings:
/// Bold Italic 14px" - "Arial, 14px" /// - "Arial, Helvetica, Bold Italic 14px"
/// - "Arial, 14px"
/// </summary> /// </summary>
procedure SetFontList(const font_list: ustring); procedure SetFontList(const font_list: ustring);
/// <summary> /// <summary>
@ -10854,8 +10858,9 @@ type
/// <summary> /// <summary>
/// Add a View that will be overlayed on the Window contents with absolute /// Add a View that will be overlayed on the Window contents with absolute
/// positioning and high z-order. Positioning is controlled by |docking_mode| /// positioning and high z-order. Positioning is controlled by |docking_mode|
/// as described below. The returned ICefOverlayController object is used /// as described below. Setting |can_activate| to true (1) will allow the
/// to control the overlay. Overlays are hidden by default. /// overlay view to receive input focus. The returned cef_overlay_controller_t
/// object is used to control the overlay. Overlays are hidden by default.
/// ///
/// With CEF_DOCKING_MODE_CUSTOM: /// With CEF_DOCKING_MODE_CUSTOM:
/// 1. The overlay is initially hidden, sized to |view|'s preferred size, /// 1. The overlay is initially hidden, sized to |view|'s preferred size,
@ -10880,7 +10885,7 @@ type
/// function last after all other child Views have been added so that the /// function last after all other child Views have been added so that the
/// overlay displays as the top-most child of the Window. /// overlay displays as the top-most child of the Window.
/// </summary> /// </summary>
function AddOverlayView(const view: ICefView; docking_mode: TCefDockingMode): ICefOverlayController; function AddOverlayView(const view: ICefView; docking_mode: TCefDockingMode; can_activate: boolean): ICefOverlayController;
/// <summary> /// <summary>
/// Show a menu with contents |menu_model|. |screen_point| specifies the menu /// Show a menu with contents |menu_model|. |screen_point| specifies the menu
/// position in screen coordinates. |anchor_position| specifies how the menu /// position in screen coordinates. |anchor_position| specifies how the menu

11
source/uCEFLabelButton.pas

@ -64,14 +64,15 @@ type
procedure SetEnabledTextColors(color: TCefColor); procedure SetEnabledTextColors(color: TCefColor);
/// <summary> /// <summary>
/// Sets the font list. The format is "<FONT_FAMILY_LIST>,[STYLES] <SIZE>", /// Sets the font list. The format is "<FONT_FAMILY_LIST>,[STYLES] <SIZE>",
/// where: - FONT_FAMILY_LIST is a comma-separated list of font family names, /// where:
/// - STYLES is an optional space-separated list of style names (case- /// - FONT_FAMILY_LIST is a comma-separated list of font family names,
/// sensitive /// - STYLES is an optional space-separated list of style names (case-sensitive
/// "Bold" and "Italic" are supported), and /// "Bold" and "Italic" are supported), and
/// - SIZE is an integer font size in pixels with the suffix "px". /// - SIZE is an integer font size in pixels with the suffix "px".
/// ///
/// Here are examples of valid font description strings: - "Arial, Helvetica, /// Here are examples of valid font description strings:
/// Bold Italic 14px" - "Arial, 14px" /// - "Arial, Helvetica, Bold Italic 14px"
/// - "Arial, 14px"
/// </summary> /// </summary>
procedure SetFontList(const font_list: ustring); procedure SetFontList(const font_list: ustring);
/// <summary> /// <summary>

149
source/uCEFPDFPrintOptions.pas

@ -25,22 +25,23 @@ type
/// </summary> /// </summary>
TPDFPrintOptions = class TPDFPrintOptions = class
protected protected
FLandscape : boolean; FLandscape : boolean;
FPrintBackground : boolean; FPrintBackground : boolean;
FScale : double; FScale : double;
FPaperWidth : double; FPaperWidth : double;
FPaperHeight : double; FPaperHeight : double;
FPreferCSSPageSize : boolean; FPreferCSSPageSize : boolean;
FMarginType : TCefPdfPrintMarginType; FMarginType : TCefPdfPrintMarginType;
FMarginTop : double; FMarginTop : double;
FMarginRight : double; FMarginRight : double;
FMarginBottom : double; FMarginBottom : double;
FMarginLeft : double; FMarginLeft : double;
FPageRanges : ustring; FPageRanges : ustring;
FDisplayHeaderFooter : boolean; FDisplayHeaderFooter : boolean;
FHeaderTemplate : ustring; FHeaderTemplate : ustring;
FFooterTemplate : ustring; FFooterTemplate : ustring;
FGenerateTaggedPDF : boolean; FGenerateTaggedPDF : boolean;
FGenerateDocumentOutline : boolean;
function GetScalePct: double; function GetScalePct: double;
function GetPaperWidthMM: double; function GetPaperWidthMM: double;
@ -73,16 +74,16 @@ type
/// <summary> /// <summary>
/// Set to true for landscape mode or false for portrait mode. /// Set to true for landscape mode or false for portrait mode.
/// </summary> /// </summary>
property Landscape : boolean read FLandscape write FLandscape; property Landscape : boolean read FLandscape write FLandscape;
/// <summary> /// <summary>
/// Set to true to print background graphics. /// Set to true to print background graphics.
/// </summary> /// </summary>
property PrintBackground : boolean read FPrintBackground write FPrintBackground; property PrintBackground : boolean read FPrintBackground write FPrintBackground;
/// <summary> /// <summary>
/// Set to true to prefer page size as defined by css. Defaults to false, /// 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. /// in which case the content will be scaled to fit the paper size.
/// </summary> /// </summary>
property PreferCSSPageSize : boolean read FPreferCSSPageSize write FPreferCSSPageSize; property PreferCSSPageSize : boolean read FPreferCSSPageSize write FPreferCSSPageSize;
/// <summary> /// <summary>
/// <para>Paper ranges to print, one based, e.g., '1-5, 8, 11-13'. Pages are printed /// <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. /// in the document order, not in the order specified, and no more than once.
@ -92,12 +93,12 @@ type
/// no pages to print, an error is reported. It is an error to specify a range /// no pages to print, an error is reported. It is an error to specify a range
/// with start greater than end.</para> /// with start greater than end.</para>
/// </summary> /// </summary>
property PageRanges : ustring read FPageRanges write FPageRanges; property PageRanges : ustring read FPageRanges write FPageRanges;
/// <summary> /// <summary>
/// Set to true to display the header and/or footer. Modify /// Set to true to display the header and/or footer. Modify
/// HeaderTemplate and/or FooterTemplate to customize the display. /// HeaderTemplate and/or FooterTemplate to customize the display.
/// </summary> /// </summary>
property DisplayHeaderFooter : boolean read FDisplayHeaderFooter write FDisplayHeaderFooter; property DisplayHeaderFooter : boolean read FDisplayHeaderFooter write FDisplayHeaderFooter;
/// <summary> /// <summary>
/// <para>HTML template for the print header. Only displayed if /// <para>HTML template for the print header. Only displayed if
/// DisplayHeaderFooter is true. Should be valid HTML markup with /// DisplayHeaderFooter is true. Should be valid HTML markup with
@ -112,87 +113,91 @@ type
/// <para>For example, "<span class=title></span>" would generate a span containing /// <para>For example, "<span class=title></span>" would generate a span containing
/// the title.</para> /// the title.</para>
/// </summary> /// </summary>
property HeaderTemplate : ustring read FHeaderTemplate write FHeaderTemplate; property HeaderTemplate : ustring read FHeaderTemplate write FHeaderTemplate;
/// <summary> /// <summary>
/// HTML template for the print footer. Only displayed if /// HTML template for the print footer. Only displayed if
/// DisplayHeaderFooter is true. Uses the same format as /// DisplayHeaderFooter is true. Uses the same format as
/// HeaderTemplate. /// HeaderTemplate.
/// </summary> /// </summary>
property FooterTemplate : ustring read FFooterTemplate write FFooterTemplate; property FooterTemplate : ustring read FFooterTemplate write FFooterTemplate;
/// <summary> /// <summary>
/// Set to true to generate tagged (accessible) PDF. /// Set to true to generate tagged (accessible) PDF.
/// </summary> /// </summary>
property GenerateTaggedPDF : boolean read FGenerateTaggedPDF write FGenerateTaggedPDF; property GenerateTaggedPDF : boolean read FGenerateTaggedPDF write FGenerateTaggedPDF;
/// <summary>
/// Set to true to generate a document outline.
/// </summary>
property GenerateDocumentOutline : boolean read FGenerateDocumentOutline write FGenerateDocumentOutline;
/// <summary> /// <summary>
/// The percentage to scale the PDF by before printing (e.g. .5 is 50%). /// 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 /// If this value is less than or equal to zero the default value of 1.0
/// will be used. /// will be used.
/// </summary> /// </summary>
property Scale : double read FScale write FScale; property Scale : double read FScale write FScale;
/// <summary> /// <summary>
/// The percentage value to scale the PDF by before printing (e.g. 50 is 50%). /// The percentage value to scale the PDF by before printing (e.g. 50 is 50%).
/// </summary> /// </summary>
property ScalePct : double read GetScalePct write SetScalePct; property ScalePct : double read GetScalePct write SetScalePct;
/// <summary> /// <summary>
/// Output paper width in inches. If either of these values is less than or /// 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 /// equal to zero then the default paper size (letter, 8.5 x 11 inches) will
/// be used. /// be used.
/// </summary> /// </summary>
property PaperWidthInch : double read FPaperWidth write FPaperWidth; property PaperWidthInch : double read FPaperWidth write FPaperWidth;
/// <summary> /// <summary>
/// Output paper height in inches. If either of these values is less than or /// 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 /// equal to zero then the default paper size (letter, 8.5 x 11 inches) will
/// be used. /// be used.
/// </summary> /// </summary>
property PaperHeightInch : double read FPaperHeight write FPaperHeight; property PaperHeightInch : double read FPaperHeight write FPaperHeight;
/// <summary> /// <summary>
/// Output paper width in mm. /// Output paper width in mm.
/// </summary> /// </summary>
property PaperWidthMM : double read GetPaperWidthMM write SetPaperWidthMM; property PaperWidthMM : double read GetPaperWidthMM write SetPaperWidthMM;
/// <summary> /// <summary>
/// Output paper height in mm. /// Output paper height in mm.
/// </summary> /// </summary>
property PaperHeightMM : double read GetPaperHeightMM write SetPaperHeightMM; property PaperHeightMM : double read GetPaperHeightMM write SetPaperHeightMM;
/// <summary> /// <summary>
/// Margin type. /// Margin type.
/// </summary> /// </summary>
property MarginType : TCefPdfPrintMarginType read FMarginType write FMarginType; property MarginType : TCefPdfPrintMarginType read FMarginType write FMarginType;
/// <summary> /// <summary>
/// Top margin in inches. Only used if MarginType is set to /// Top margin in inches. Only used if MarginType is set to
/// PDF_PRINT_MARGIN_CUSTOM. /// PDF_PRINT_MARGIN_CUSTOM.
/// </summary> /// </summary>
property MarginTopInch : double read FMarginTop write FMarginTop; property MarginTopInch : double read FMarginTop write FMarginTop;
/// <summary> /// <summary>
/// Right margin in inches. Only used if MarginType is set to /// Right margin in inches. Only used if MarginType is set to
/// PDF_PRINT_MARGIN_CUSTOM. /// PDF_PRINT_MARGIN_CUSTOM.
/// </summary> /// </summary>
property MarginRightInch : double read FMarginRight write FMarginRight; property MarginRightInch : double read FMarginRight write FMarginRight;
/// <summary> /// <summary>
/// Bottom margin in inches. Only used if MarginType is set to /// Bottom margin in inches. Only used if MarginType is set to
/// PDF_PRINT_MARGIN_CUSTOM. /// PDF_PRINT_MARGIN_CUSTOM.
/// </summary> /// </summary>
property MarginBottomInch : double read FMarginBottom write FMarginBottom; property MarginBottomInch : double read FMarginBottom write FMarginBottom;
/// <summary> /// <summary>
/// Left margin in inches. Only used if MarginType is set to /// Left margin in inches. Only used if MarginType is set to
/// PDF_PRINT_MARGIN_CUSTOM. /// PDF_PRINT_MARGIN_CUSTOM.
/// </summary> /// </summary>
property MarginLeftInch : double read FMarginLeft write FMarginLeft; property MarginLeftInch : double read FMarginLeft write FMarginLeft;
/// <summary> /// <summary>
/// Top margin in mm. /// Top margin in mm.
/// </summary> /// </summary>
property MarginTopMM : double read GetMarginTopMM write SetMarginTopMM; property MarginTopMM : double read GetMarginTopMM write SetMarginTopMM;
/// <summary> /// <summary>
/// Right margin in mm. /// Right margin in mm.
/// </summary> /// </summary>
property MarginRightMM : double read GetMarginRightMM write SetMarginRightMM; property MarginRightMM : double read GetMarginRightMM write SetMarginRightMM;
/// <summary> /// <summary>
/// Bottom margin in mm. /// Bottom margin in mm.
/// </summary> /// </summary>
property MarginBottomMM : double read GetMarginBottomMM write SetMarginBottomMM; property MarginBottomMM : double read GetMarginBottomMM write SetMarginBottomMM;
/// <summary> /// <summary>
/// Left margin in mm. /// Left margin in mm.
/// </summary> /// </summary>
property MarginLeftMM : double read GetMarginLeftMM write SetMarginLeftMM; property MarginLeftMM : double read GetMarginLeftMM write SetMarginLeftMM;
end; end;
implementation implementation
@ -205,22 +210,23 @@ const
constructor TPDFPrintOptions.Create; constructor TPDFPrintOptions.Create;
begin begin
FLandscape := False; FLandscape := False;
FPrintBackground := False; FPrintBackground := False;
FScale := 0; FScale := 0;
FPaperWidth := 0; FPaperWidth := 0;
FPaperHeight := 0; FPaperHeight := 0;
FPreferCSSPageSize := False; FPreferCSSPageSize := False;
FMarginType := PDF_PRINT_MARGIN_DEFAULT; FMarginType := PDF_PRINT_MARGIN_DEFAULT;
FMarginTop := 0; FMarginTop := 0;
FMarginRight := 0; FMarginRight := 0;
FMarginBottom := 0; FMarginBottom := 0;
FMarginLeft := 0; FMarginLeft := 0;
FPageRanges := ''; FPageRanges := '';
FDisplayHeaderFooter := False; FDisplayHeaderFooter := False;
FHeaderTemplate := ''; FHeaderTemplate := '';
FFooterTemplate := ''; FFooterTemplate := '';
FGenerateTaggedPDF := False; FGenerateTaggedPDF := False;
FGenerateDocumentOutline := False;
end; end;
function TPDFPrintOptions.InchesToMM(const aInches: double): double; function TPDFPrintOptions.InchesToMM(const aInches: double): double;
@ -329,22 +335,23 @@ end;
procedure TPDFPrintOptions.CopyToSettings(var aSettings : TCefPdfPrintSettings); procedure TPDFPrintOptions.CopyToSettings(var aSettings : TCefPdfPrintSettings);
begin begin
aSettings.landscape := Ord(FLandscape); aSettings.landscape := Ord(FLandscape);
aSettings.print_background := Ord(FPrintBackground); aSettings.print_background := Ord(FPrintBackground);
aSettings.scale := FScale; aSettings.scale := FScale;
aSettings.paper_width := FPaperWidth; aSettings.paper_width := FPaperWidth;
aSettings.paper_height := FPaperHeight; aSettings.paper_height := FPaperHeight;
aSettings.prefer_css_page_size := Ord(FPreferCSSPageSize); aSettings.prefer_css_page_size := Ord(FPreferCSSPageSize);
aSettings.margin_type := FMarginType; aSettings.margin_type := FMarginType;
aSettings.margin_top := FMarginTop; aSettings.margin_top := FMarginTop;
aSettings.margin_right := FMarginRight; aSettings.margin_right := FMarginRight;
aSettings.margin_bottom := FMarginBottom; aSettings.margin_bottom := FMarginBottom;
aSettings.margin_left := FMarginLeft; aSettings.margin_left := FMarginLeft;
aSettings.page_ranges := CefString(FPageRanges); aSettings.page_ranges := CefString(FPageRanges);
aSettings.display_header_footer := Ord(FDisplayHeaderFooter); aSettings.display_header_footer := Ord(FDisplayHeaderFooter);
aSettings.header_template := CefString(FHeaderTemplate); aSettings.header_template := CefString(FHeaderTemplate);
aSettings.footer_template := CefString(FFooterTemplate); aSettings.footer_template := CefString(FFooterTemplate);
aSettings.generate_tagged_pdf := Ord(FGenerateTaggedPDF); aSettings.generate_tagged_pdf := Ord(FGenerateTaggedPDF);
aSettings.generate_document_outline := Ord(FGenerateDocumentOutline);
end; end;
end. end.

11
source/uCEFTextfield.pas

@ -119,14 +119,15 @@ type
function GetSelectionBackgroundColor : TCefColor; function GetSelectionBackgroundColor : TCefColor;
/// <summary> /// <summary>
/// Sets the font list. The format is "<FONT_FAMILY_LIST>,[STYLES] <SIZE>", /// Sets the font list. The format is "<FONT_FAMILY_LIST>,[STYLES] <SIZE>",
/// where: - FONT_FAMILY_LIST is a comma-separated list of font family names, /// where:
/// - STYLES is an optional space-separated list of style names (case- /// - FONT_FAMILY_LIST is a comma-separated list of font family names,
/// sensitive /// - STYLES is an optional space-separated list of style names (case-sensitive
/// "Bold" and "Italic" are supported), and /// "Bold" and "Italic" are supported), and
/// - SIZE is an integer font size in pixels with the suffix "px". /// - SIZE is an integer font size in pixels with the suffix "px".
/// ///
/// Here are examples of valid font description strings: - "Arial, Helvetica, /// Here are examples of valid font description strings:
/// Bold Italic 14px" - "Arial, 14px" /// - "Arial, Helvetica, Bold Italic 14px"
/// - "Arial, 14px"
/// </summary> /// </summary>
procedure SetFontList(const font_list: ustring); procedure SetFontList(const font_list: ustring);
/// <summary> /// <summary>

2
source/uCEFTextfieldDelegate.pas

@ -43,7 +43,7 @@ type
TCefTextfieldDelegateOwn = class(TCefViewDelegateOwn, ICefTextfieldDelegate) TCefTextfieldDelegateOwn = class(TCefViewDelegateOwn, ICefTextfieldDelegate)
protected protected
/// <summary> /// <summary>
/// Called when |textfield| recieves a keyboard event. |event| contains /// Called when |textfield| receives a keyboard event. |event| contains
/// information about the keyboard event. Return true (1) if the keyboard /// information about the keyboard event. Return true (1) if the keyboard
/// event was handled or false (0) otherwise for default handling. /// event was handled or false (0) otherwise for default handling.
/// </summary> /// </summary>

23
source/uCEFTypes.pas

@ -2776,8 +2776,9 @@ type
CEF_CPAIT_ZOOM, CEF_CPAIT_ZOOM,
CEF_CPAIT_SAVE_IBAN, CEF_CPAIT_SAVE_IBAN,
CEF_CPAIT_MANDATORY_REAUTH, CEF_CPAIT_MANDATORY_REAUTH,
CEF_CPAIT_PRICE_INSIGHTS CEF_CPAIT_PRICE_INSIGHTS,
{* CEF_CPAIT_MAX_VALUE = CEF_CPAIT_PRICE_INSIGHTS *} CEF_CPAIT_PRICE_READ_ANYTHING
{* CEF_CPAIT_MAX_VALUE = CEF_CPAIT_PRICE_READ_ANYTHING *}
); );
/// <summary> /// <summary>
@ -3906,6 +3907,10 @@ type
/// Set to true (1) to generate tagged (accessible) PDF. /// Set to true (1) to generate tagged (accessible) PDF.
/// </summary> /// </summary>
generate_tagged_pdf : integer; generate_tagged_pdf : integer;
/// <summary>
/// Set to true (1) to generate a document outline.
/// </summary>
generate_document_outline : integer;
end; end;
/// <summary> /// <summary>
@ -4277,8 +4282,7 @@ type
/// </summary> /// </summary>
CEF_CONTENT_SETTING_TYPE_FILE_SYSTEM_LAST_PICKED_DIRECTORY, CEF_CONTENT_SETTING_TYPE_FILE_SYSTEM_LAST_PICKED_DIRECTORY,
/// <summary> /// <summary>
/// Controls access to the getDisplayMedia API when {preferCurrentTab: true} /// Controls access to the getDisplayMedia API.
/// is specified.
/// </summary> /// </summary>
CEF_CONTENT_SETTING_TYPE_DISPLAY_CAPTURE, CEF_CONTENT_SETTING_TYPE_DISPLAY_CAPTURE,
/// <summary> /// <summary>
@ -4320,9 +4324,9 @@ type
/// between a specified relying party and a specified identity provider for /// between a specified relying party and a specified identity provider for
/// a specified account. When this is present it allows access to session /// a specified account. When this is present it allows access to session
/// management capabilities between the sites. This setting is associated /// management capabilities between the sites. This setting is associated
/// with the relying party's origin. /// with the relying party's origin. Obsolete on Nov 2023.
/// </summary> /// </summary>
CEF_CONTENT_SETTING_TYPE_FEDERATED_IDENTITY_ACTIVE_SESSION, CEF_CONTENT_SETTING_TYPE_DEPRECATED_FEDERATED_IDENTITY_ACTIVE_SESSION,
/// <summary> /// <summary>
/// Setting to indicate whether Chrome should automatically apply darkening to /// Setting to indicate whether Chrome should automatically apply darkening to
/// web content. /// web content.
@ -4438,6 +4442,11 @@ type
/// heuristics. /// heuristics.
/// </summary> /// </summary>
CEF_CONTENT_SETTING_TYPE_TPCD_HEURISTICS_GRANTS, CEF_CONTENT_SETTING_TYPE_TPCD_HEURISTICS_GRANTS,
/// <summary>
/// Whether the FSA Persistent Permissions restore prompt is eligible to be
/// shown to the user, for a given origin.
/// </summary>
CEF_CONTENT_SETTING_TYPE_FILE_SYSTEM_ACCESS_RESTORE_PERMISSION,
CEF_CONTENT_SETTING_TYPE_NUM_TYPES CEF_CONTENT_SETTING_TYPE_NUM_TYPES
); );
@ -7709,7 +7718,7 @@ type
get_window_icon : function(self: PCefWindow): PCefImage; stdcall; get_window_icon : function(self: PCefWindow): PCefImage; stdcall;
set_window_app_icon : procedure(self: PCefWindow; image: PCefImage); stdcall; set_window_app_icon : procedure(self: PCefWindow; image: PCefImage); stdcall;
get_window_app_icon : function(self: PCefWindow): PCefImage; stdcall; get_window_app_icon : function(self: PCefWindow): PCefImage; stdcall;
add_overlay_view : function(self: PCefWindow; view: PCefView; docking_mode: TCefDockingMode): PCefOverlayController; stdcall; add_overlay_view : function(self: PCefWindow; view: PCefView; docking_mode: TCefDockingMode; can_activate: integer): PCefOverlayController; stdcall;
show_menu : procedure(self: PCefWindow; menu_model: PCefMenuModel; const screen_point: PCefPoint; anchor_position : TCefMenuAnchorPosition); stdcall; show_menu : procedure(self: PCefWindow; menu_model: PCefMenuModel; const screen_point: PCefPoint; anchor_position : TCefMenuAnchorPosition); stdcall;
cancel_menu : procedure(self: PCefWindow); stdcall; cancel_menu : procedure(self: PCefWindow); stdcall;
get_display : function(self: PCefWindow): PCefDisplay; stdcall; get_display : function(self: PCefWindow): PCefDisplay; stdcall;

10
source/uCEFVersion.inc

@ -1,9 +1,9 @@
CEF_SUPPORTED_VERSION_MAJOR = 120; CEF_SUPPORTED_VERSION_MAJOR = 121;
CEF_SUPPORTED_VERSION_MINOR = 2; CEF_SUPPORTED_VERSION_MINOR = 3;
CEF_SUPPORTED_VERSION_RELEASE = 7; CEF_SUPPORTED_VERSION_RELEASE = 2;
CEF_SUPPORTED_VERSION_BUILD = 0; CEF_SUPPORTED_VERSION_BUILD = 0;
CEF_CHROMEELF_VERSION_MAJOR = CEF_SUPPORTED_VERSION_MAJOR; CEF_CHROMEELF_VERSION_MAJOR = CEF_SUPPORTED_VERSION_MAJOR;
CEF_CHROMEELF_VERSION_MINOR = 0; CEF_CHROMEELF_VERSION_MINOR = 0;
CEF_CHROMEELF_VERSION_RELEASE = 6099; CEF_CHROMEELF_VERSION_RELEASE = 6167;
CEF_CHROMEELF_VERSION_BUILD = 234; CEF_CHROMEELF_VERSION_BUILD = 75;

12
source/uCEFWindow.pas

@ -173,8 +173,9 @@ type
/// <summary> /// <summary>
/// <para>Add a View that will be overlayed on the Window contents with absolute /// <para>Add a View that will be overlayed on the Window contents with absolute
/// positioning and high z-order. Positioning is controlled by |docking_mode| /// positioning and high z-order. Positioning is controlled by |docking_mode|
/// as described below. The returned cef_overlay_controller_t object is used /// as described below. Setting |can_activate| to true (1) will allow the
/// to control the overlay. Overlays are hidden by default.</para> /// overlay view to receive input focus. The returned cef_overlay_controller_t
/// object is used to control the overlay. Overlays are hidden by default.</para>
/// <para>With CEF_DOCKING_MODE_CUSTOM:</para> /// <para>With CEF_DOCKING_MODE_CUSTOM:</para>
/// <code> /// <code>
/// 1. The overlay is initially hidden, sized to |view|'s preferred size, /// 1. The overlay is initially hidden, sized to |view|'s preferred size,
@ -200,7 +201,7 @@ type
/// function last after all other child Views have been added so that the /// function last after all other child Views have been added so that the
/// overlay displays as the top-most child of the Window.</para> /// overlay displays as the top-most child of the Window.</para>
/// </summary> /// </summary>
function AddOverlayView(const view: ICefView; docking_mode: TCefDockingMode): ICefOverlayController; function AddOverlayView(const view: ICefView; docking_mode: TCefDockingMode; can_activate: boolean): ICefOverlayController;
/// <summary> /// <summary>
/// Show a menu with contents |menu_model|. |screen_point| specifies the menu /// Show a menu with contents |menu_model|. |screen_point| specifies the menu
@ -435,11 +436,12 @@ begin
Result := TCefImageRef.UnWrap(PCefWindow(FData)^.get_window_app_icon(PCefWindow(FData))); Result := TCefImageRef.UnWrap(PCefWindow(FData)^.get_window_app_icon(PCefWindow(FData)));
end; end;
function TCefWindowRef.AddOverlayView(const view: ICefView; docking_mode: TCefDockingMode): ICefOverlayController; function TCefWindowRef.AddOverlayView(const view: ICefView; docking_mode: TCefDockingMode; can_activate: boolean): ICefOverlayController;
begin begin
Result := TCefOverlayControllerRef.UnWrap(PCefWindow(FData)^.add_overlay_view(PCefWindow(FData), Result := TCefOverlayControllerRef.UnWrap(PCefWindow(FData)^.add_overlay_view(PCefWindow(FData),
CefGetData(view), CefGetData(view),
docking_mode)); docking_mode,
ord(can_activate)));
end; end;
procedure TCefWindowRef.ShowMenu(const menu_model : ICefMenuModel; procedure TCefWindowRef.ShowMenu(const menu_model : ICefMenuModel;

11
source/uCEFWindowComponent.pas

@ -161,8 +161,9 @@ type
/// <summary> /// <summary>
/// <para>Add a View that will be overlayed on the Window contents with absolute /// <para>Add a View that will be overlayed on the Window contents with absolute
/// positioning and high z-order. Positioning is controlled by |docking_mode| /// positioning and high z-order. Positioning is controlled by |docking_mode|
/// as described below. The returned cef_overlay_controller_t object is used /// as described below. Setting |can_activate| to true (1) will allow the
/// to control the overlay. Overlays are hidden by default.</para> /// overlay view to receive input focus. The returned cef_overlay_controller_t
/// object is used to control the overlay. Overlays are hidden by default.</para>
/// <para>With CEF_DOCKING_MODE_CUSTOM:</para> /// <para>With CEF_DOCKING_MODE_CUSTOM:</para>
/// <code> /// <code>
/// 1. The overlay is initially hidden, sized to |view|'s preferred size, /// 1. The overlay is initially hidden, sized to |view|'s preferred size,
@ -186,7 +187,7 @@ type
/// function last after all other child Views have been added so that the /// function last after all other child Views have been added so that the
/// overlay displays as the top-most child of the Window.</para> /// overlay displays as the top-most child of the Window.</para>
/// </summary> /// </summary>
function AddOverlayView(const view: ICefView; docking_mode: TCefDockingMode): ICefOverlayController; function AddOverlayView(const view: ICefView; docking_mode: TCefDockingMode; can_activate: boolean): ICefOverlayController;
/// <summary> /// <summary>
/// Show a menu with contents |menu_model|. |screen_point| specifies the menu /// Show a menu with contents |menu_model|. |screen_point| specifies the menu
/// position in screen coordinates. |anchor_position| specifies how the menu /// position in screen coordinates. |anchor_position| specifies how the menu
@ -790,10 +791,10 @@ begin
Result := nil; Result := nil;
end; end;
function TCEFWindowComponent.AddOverlayView(const view: ICefView; docking_mode: TCefDockingMode): ICefOverlayController; function TCEFWindowComponent.AddOverlayView(const view: ICefView; docking_mode: TCefDockingMode; can_activate: boolean): ICefOverlayController;
begin begin
if Initialized then if Initialized then
Result := FWindow.AddOverlayView(view, docking_mode) Result := FWindow.AddOverlayView(view, docking_mode, can_activate)
else else
Result := nil; Result := nil;
end; end;

4
update_CEF4Delphi.json

@ -2,9 +2,9 @@
"UpdateLazPackages" : [ "UpdateLazPackages" : [
{ {
"ForceNotify" : true, "ForceNotify" : true,
"InternalVersion" : 556, "InternalVersion" : 557,
"Name" : "cef4delphi_lazarus.lpk", "Name" : "cef4delphi_lazarus.lpk",
"Version" : "120.2.7" "Version" : "121.2.14"
} }
], ],
"UpdatePackageData" : { "UpdatePackageData" : {