pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-04-17 06:57:13 +02:00
Code Issues Actions Releases Activity

Update to CEF 84.2.1

Browse Source
This commit is contained in:
Salvador Díaz Fau 2020-07-18 19:12:01 +02:00
parent dceb2299e3
commit dee111279b
9 changed files with 33 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
README.md
View File

@ -3,10 +3,10 @@ CEF4Delphi is an open source project created by Salvador Díaz Fau to embed Chro
CEF4Delphi is based on DCEF3, made by Henri Gourvest. The original license of DCEF3 still applies to CEF4Delphi. Read the license terms in the first lines of any *.pas file. CEF4Delphi is based on DCEF3, made by Henri Gourvest. The original license of DCEF3 still applies to CEF4Delphi. Read the license terms in the first lines of any *.pas file.
CEF4Delphi uses CEF 83.5.0 which includes Chromium 83.0.4103.106. CEF4Delphi uses CEF 84.2.1 which includes Chromium 84.0.4147.89.
The CEF binaries used by CEF4Delphi are available for download at spotify : The CEF binaries used by CEF4Delphi are available for download at spotify :
* [32 bits](http://opensource.spotify.com/cefbuilds/cef_binary_83.5.0%2Bgbf03589%2Bchromium-83.0.4103.106_windows32.tar.bz2) * [32 bits](http://opensource.spotify.com/cefbuilds/cef_binary_84.2.1%2Bg3f2c372%2Bchromium-84.0.4147.89_windows32.tar.bz2)
* [64 bits](http://opensource.spotify.com/cefbuilds/cef_binary_83.5.0%2Bgbf03589%2Bchromium-83.0.4103.106_windows64.tar.bz2) * [64 bits](http://opensource.spotify.com/cefbuilds/cef_binary_84.2.1%2Bg3f2c372%2Bchromium-84.0.4147.89_windows64.tar.bz2)
CEF4Delphi was developed and tested on Delphi 10.4 and it has been tested in Delphi 7, Delphi XE, Delphi 10, Delphi 10.2, Delphi 10.3 and Lazarus 2.0.10/FPC 3.2.0. CEF4Delphi includes VCL, FireMonkey (FMX) and Lazarus components. CEF4Delphi was developed and tested on Delphi 10.4 and it has been tested in Delphi 7, Delphi XE, Delphi 10, Delphi 10.2, Delphi 10.3 and Lazarus 2.0.10/FPC 3.2.0. CEF4Delphi includes VCL, FireMonkey (FMX) and Lazarus components.

2
packages/cef4delphi_lazarus.lpk
View File

@ -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="83" Minor="5"/> <Version Major="84" Minor="2" Release="1"/>
<Files Count="189"> <Files Count="189">
<Item1> <Item1>
<Filename Value="..\source\uCEFAccessibilityHandler.pas"/> <Filename Value="..\source\uCEFAccessibilityHandler.pas"/>

12
source/uCEFApplicationCore.pas
View File

@ -60,15 +60,15 @@ uses
uCEFTypes, uCEFInterfaces, uCEFBaseRefCounted, uCEFSchemeRegistrar; uCEFTypes, uCEFInterfaces, uCEFBaseRefCounted, uCEFSchemeRegistrar;
const const
CEF_SUPPORTED_VERSION_MAJOR = 83; CEF_SUPPORTED_VERSION_MAJOR = 84;
CEF_SUPPORTED_VERSION_MINOR = 5; CEF_SUPPORTED_VERSION_MINOR = 2;
CEF_SUPPORTED_VERSION_RELEASE = 0; CEF_SUPPORTED_VERSION_RELEASE = 1;
CEF_SUPPORTED_VERSION_BUILD = 0; CEF_SUPPORTED_VERSION_BUILD = 0;
CEF_CHROMEELF_VERSION_MAJOR = 83; CEF_CHROMEELF_VERSION_MAJOR = 84;
CEF_CHROMEELF_VERSION_MINOR = 0; CEF_CHROMEELF_VERSION_MINOR = 0;
CEF_CHROMEELF_VERSION_RELEASE = 4103; CEF_CHROMEELF_VERSION_RELEASE = 4147;
CEF_CHROMEELF_VERSION_BUILD = 106; CEF_CHROMEELF_VERSION_BUILD = 89;
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
LIBCEF_DLL = 'libcef.dll'; LIBCEF_DLL = 'libcef.dll';

8
source/uCEFConstants.pas
View File

@ -543,6 +543,14 @@ const
CEF_COOKIE_PRIORITY_MEDIUM = 0; CEF_COOKIE_PRIORITY_MEDIUM = 0;
CEF_COOKIE_PRIORITY_HIGH = 1; CEF_COOKIE_PRIORITY_HIGH = 1;
// /include/internal/cef_types.h (cef_text_field_commands_t)
CEF_TFC_CUT = 1;
CEF_TFC_COPY = 2;
CEF_TFC_PASTE = 3;
CEF_TFC_UNDO = 4;
CEF_TFC_DELETE = 5;
CEF_TFC_SELECT_ALL = 6;
//****************************************************** //******************************************************
//****************** OTHER CONSTANTS ******************* //****************** OTHER CONSTANTS *******************

4
source/uCEFInterfaces.pas
View File

@ -2635,8 +2635,8 @@ type
procedure SetFontList(const font_list: ustring); procedure SetFontList(const font_list: ustring);
procedure ApplyTextColor(color: TCefColor; const range: TCefRange); procedure ApplyTextColor(color: TCefColor; const range: TCefRange);
procedure ApplyTextStyle(style: TCefTextStyle; add: boolean; const range: TCefRange); procedure ApplyTextStyle(style: TCefTextStyle; add: boolean; const range: TCefRange);
function IsCommandEnabled(command_id: Integer): boolean; function IsCommandEnabled(command_id: TCefTextFieldCommands): boolean;
procedure ExecuteCommand(command_id: Integer); procedure ExecuteCommand(command_id: TCefTextFieldCommands);
procedure ClearEditHistory; procedure ClearEditHistory;
procedure SetPlaceholderText(const text_: ustring); procedure SetPlaceholderText(const text_: ustring);
function GetPlaceholderText : ustring; function GetPlaceholderText : ustring;

8
source/uCEFTextfield.pas
View File

@ -83,8 +83,8 @@ type
procedure SetFontList(const font_list: ustring); procedure SetFontList(const font_list: ustring);
procedure ApplyTextColor(color: TCefColor; const range: TCefRange); procedure ApplyTextColor(color: TCefColor; const range: TCefRange);
procedure ApplyTextStyle(style: TCefTextStyle; add: boolean; const range: TCefRange); procedure ApplyTextStyle(style: TCefTextStyle; add: boolean; const range: TCefRange);
function IsCommandEnabled(command_id: Integer): boolean; function IsCommandEnabled(command_id: TCefTextFieldCommands): boolean;
procedure ExecuteCommand(command_id: Integer); procedure ExecuteCommand(command_id: TCefTextFieldCommands);
procedure ClearEditHistory; procedure ClearEditHistory;
procedure SetPlaceholderText(const text_: ustring); procedure SetPlaceholderText(const text_: ustring);
function GetPlaceholderText : ustring; function GetPlaceholderText : ustring;
@ -235,12 +235,12 @@ begin
PCefTextfield(FData)^.apply_text_style(PCefTextfield(FData), style, ord(add), @range); PCefTextfield(FData)^.apply_text_style(PCefTextfield(FData), style, ord(add), @range);
end; end;
function TCefTextfieldRef.IsCommandEnabled(command_id: Integer): boolean; function TCefTextfieldRef.IsCommandEnabled(command_id: TCefTextFieldCommands): boolean;
begin begin
Result := (PCefTextfield(FData)^.is_command_enabled(PCefTextfield(FData), command_id) <> 0); Result := (PCefTextfield(FData)^.is_command_enabled(PCefTextfield(FData), command_id) <> 0);
end; end;
procedure TCefTextfieldRef.ExecuteCommand(command_id: Integer); procedure TCefTextfieldRef.ExecuteCommand(command_id: TCefTextFieldCommands);
begin begin
PCefTextfield(FData)^.execute_command(PCefTextfield(FData), command_id); PCefTextfield(FData)^.execute_command(PCefTextfield(FData), command_id);
end; end;

8
source/uCEFTextfieldComponent.pas
View File

@ -112,8 +112,8 @@ type
procedure SetFontList(const font_list: ustring); procedure SetFontList(const font_list: ustring);
procedure ApplyTextColor(color: TCefColor; const range: TCefRange); procedure ApplyTextColor(color: TCefColor; const range: TCefRange);
procedure ApplyTextStyle(style: TCefTextStyle; add: boolean; const range: TCefRange); procedure ApplyTextStyle(style: TCefTextStyle; add: boolean; const range: TCefRange);
function IsCommandEnabled(command_id: Integer): boolean; function IsCommandEnabled(command_id: TCefTextFieldCommands): boolean;
procedure ExecuteCommand(command_id: Integer); procedure ExecuteCommand(command_id: TCefTextFieldCommands);
procedure ClearEditHistory; procedure ClearEditHistory;
procedure SetAccessibleName(const name_: ustring); procedure SetAccessibleName(const name_: ustring);
procedure SetPlaceholderTextColor(color: TCefColor); procedure SetPlaceholderTextColor(color: TCefColor);
@ -406,12 +406,12 @@ begin
FTextfield.ApplyTextStyle(style, add, range); FTextfield.ApplyTextStyle(style, add, range);
end; end;
function TCEFTextfieldComponent.IsCommandEnabled(command_id: Integer): boolean; function TCEFTextfieldComponent.IsCommandEnabled(command_id: TCefTextFieldCommands): boolean;
begin begin
Result := Initialized and FTextfield.IsCommandEnabled(command_id); Result := Initialized and FTextfield.IsCommandEnabled(command_id);
end; end;
procedure TCEFTextfieldComponent.ExecuteCommand(command_id: Integer); procedure TCEFTextfieldComponent.ExecuteCommand(command_id: TCefTextFieldCommands);
begin begin
if Initialized then if Initialized then
FTextfield.ExecuteCommand(command_id); FTextfield.ExecuteCommand(command_id);

5
source/uCEFTypes.pas
View File

@ -315,6 +315,7 @@ type
TCefSchemeOptions = Integer; // /include/internal/cef_types.h (cef_scheme_options_t) TCefSchemeOptions = Integer; // /include/internal/cef_types.h (cef_scheme_options_t)
TCefMediaRouterCreateResult = Integer; // /include/internal/cef_types.h (cef_media_route_create_result_t) TCefMediaRouterCreateResult = Integer; // /include/internal/cef_types.h (cef_media_route_create_result_t)
TCefCookiePriority = Integer; // /include/internal/cef_types.h (cef_cookie_priority_t) TCefCookiePriority = Integer; // /include/internal/cef_types.h (cef_cookie_priority_t)
TCefTextFieldCommands = Integer; // /include/internal/cef_types.h (cef_text_field_commands_t)
@ -3186,8 +3187,8 @@ type
set_font_list : procedure(self: PCefTextfield; const font_list: PCefString); stdcall; set_font_list : procedure(self: PCefTextfield; const font_list: PCefString); stdcall;
apply_text_color : procedure(self: PCefTextfield; color: TCefColor; const range: PCefRange); stdcall; apply_text_color : procedure(self: PCefTextfield; color: TCefColor; const range: PCefRange); stdcall;
apply_text_style : procedure(self: PCefTextfield; style: TCefTextStyle; add: Integer; const range: PCefRange); stdcall; apply_text_style : procedure(self: PCefTextfield; style: TCefTextStyle; add: Integer; const range: PCefRange); stdcall;
is_command_enabled : function(self: PCefTextfield; command_id: Integer): Integer; stdcall; is_command_enabled : function(self: PCefTextfield; command_id: TCefTextFieldCommands): Integer; stdcall;
execute_command : procedure(self: PCefTextfield; command_id: Integer); stdcall; execute_command : procedure(self: PCefTextfield; command_id: TCefTextFieldCommands); stdcall;
clear_edit_history : procedure(self: PCefTextfield); stdcall; clear_edit_history : procedure(self: PCefTextfield); stdcall;
set_placeholder_text : procedure(self: PCefTextfield; const text: PCefString); stdcall; set_placeholder_text : procedure(self: PCefTextfield; const text: PCefString); stdcall;
get_placeholder_text : function(self: PCefTextfield): PCefStringUserFree; stdcall; get_placeholder_text : function(self: PCefTextfield): PCefStringUserFree; stdcall;

4
update_CEF4Delphi.json
View File

@ -2,9 +2,9 @@
"UpdateLazPackages" : [ "UpdateLazPackages" : [
{ {
"ForceNotify" : true, "ForceNotify" : true,
"InternalVersion" : 164, "InternalVersion" : 165,
"Name" : "cef4delphi_lazarus.lpk", "Name" : "cef4delphi_lazarus.lpk",
"Version" : "83.5.0.0" "Version" : "84.2.1.0"
} }
], ],
"UpdatePackageData" : { "UpdatePackageData" : {