pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions Releases Activity

Update to CEF 99.2.7

Browse Source
This commit is contained in:
salvadordf
2022-03-03 11:16:30 +01:00
parent 41490cebdb
commit 951c583ddd
10 changed files with 26 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
README.md
View File

@ -3,16 +3,16 @@ 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 first lines of any *.pas file. CEF4Delphi is based on DCEF3 and fpCEF3. The original license of those projects still applies to CEF4Delphi. Read the license terms in the first lines of any *.pas file.
CEF4Delphi uses CEF 98.2.1 which includes Chromium 98.0.4758.109. CEF4Delphi uses CEF 99.2.7 which includes Chromium 99.0.4844.51.
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_98.2.1%2Bg29d6e22%2Bchromium-98.0.4758.109_windows32.tar.bz2) * [Windows 32 bits](https://cef-builds.spotifycdn.com/cef_binary_99.2.7%2Bg674fc01%2Bchromium-99.0.4844.51_windows32.tar.bz2)
* [Windows 64 bits](https://cef-builds.spotifycdn.com/cef_binary_98.2.1%2Bg29d6e22%2Bchromium-98.0.4758.109_windows64.tar.bz2) * [Windows 64 bits](https://cef-builds.spotifycdn.com/cef_binary_99.2.7%2Bg674fc01%2Bchromium-99.0.4844.51_windows64.tar.bz2)
* [Linux x86 32 bits](https://cef-builds.spotifycdn.com/cef_binary_98.2.1%2Bg29d6e22%2Bchromium-98.0.4758.109_linux32.tar.bz2) * [Linux x86 32 bits](https://cef-builds.spotifycdn.com/cef_binary_99.2.7%2Bg674fc01%2Bchromium-99.0.4844.51_linux32.tar.bz2)
* [Linux x86 64 bits](https://cef-builds.spotifycdn.com/cef_binary_98.2.1%2Bg29d6e22%2Bchromium-98.0.4758.109_linux64.tar.bz2) * [Linux x86 64 bits](https://cef-builds.spotifycdn.com/cef_binary_99.2.7%2Bg674fc01%2Bchromium-99.0.4844.51_linux64.tar.bz2)
* [Linux ARM 32 bits](https://cef-builds.spotifycdn.com/cef_binary_98.2.1%2Bg29d6e22%2Bchromium-98.0.4758.109_linuxarm.tar.bz2) * [Linux ARM 32 bits](https://cef-builds.spotifycdn.com/cef_binary_99.2.7%2Bg674fc01%2Bchromium-99.0.4844.51_linuxarm.tar.bz2)
* [Linux ARM 64 bits](https://cef-builds.spotifycdn.com/cef_binary_98.2.1%2Bg29d6e22%2Bchromium-98.0.4758.109_linuxarm64.tar.bz2) * [Linux ARM 64 bits](https://cef-builds.spotifycdn.com/cef_binary_99.2.7%2Bg674fc01%2Bchromium-99.0.4844.51_linuxarm64.tar.bz2)
* [MacOS x86 64 bits](https://cef-builds.spotifycdn.com/cef_binary_98.2.1%2Bg29d6e22%2Bchromium-98.0.4758.109_macosx64.tar.bz2) * [MacOS x86 64 bits](https://cef-builds.spotifycdn.com/cef_binary_99.2.7%2Bg674fc01%2Bchromium-99.0.4844.51_macosx64.tar.bz2)
CEF4Delphi was developed and tested on Delphi 11.0 and it has been tested in Delphi 7, Delphi XE, Delphi 10, Delphi 10.2, Delphi 10.3, Delphi 10.4 and Lazarus 2.2.0/FPC 3.2.2. CEF4Delphi includes VCL, FireMonkey (FMX) and Lazarus components. CEF4Delphi was developed and tested on Delphi 11.0 and it has been tested in Delphi 7, Delphi XE, Delphi 10, Delphi 10.2, Delphi 10.3, Delphi 10.4 and Lazarus 2.2.0/FPC 3.2.2. CEF4Delphi includes VCL, FireMonkey (FMX) and Lazarus components.

1
demos/Delphi_VCL/MiniBrowser/uFindFrm.dfm
View File

@ -16,7 +16,6 @@ object FindFrm: TFindFrm
Padding.Top = 5 Padding.Top = 5
Padding.Right = 5 Padding.Right = 5
Padding.Bottom = 5 Padding.Bottom = 5
OldCreateOrder = False
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
OnShow = FormShow OnShow = FormShow

6
demos/Delphi_VCL/MiniBrowser/uFindFrm.pas
View File

@ -17,7 +17,6 @@ type
procedure FindNextBtnClick(Sender: TObject); procedure FindNextBtnClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
private private
FSearchID : integer;
FFirstNext : boolean; FFirstNext : boolean;
end; end;
@ -34,13 +33,13 @@ uses
procedure TFindFrm.FindNextBtnClick(Sender: TObject); procedure TFindFrm.FindNextBtnClick(Sender: TObject);
begin begin
MiniBrowserFrm.Chromium1.Find(FSearchID, FindTextEdt.Text, True, False, FFirstNext); MiniBrowserFrm.Chromium1.Find(FindTextEdt.Text, True, False, FFirstNext);
FFirstNext := True; FFirstNext := True;
end; end;
procedure TFindFrm.FindPrevBtnClick(Sender: TObject); procedure TFindFrm.FindPrevBtnClick(Sender: TObject);
begin begin
MiniBrowserFrm.Chromium1.Find(FSearchID, FindTextEdt.Text, False, False, FFirstNext); MiniBrowserFrm.Chromium1.Find(FindTextEdt.Text, False, False, FFirstNext);
FFirstNext := True; FFirstNext := True;
end; end;
@ -59,7 +58,6 @@ procedure TFindFrm.FormShow(Sender: TObject);
begin begin
FindTextEdt.Text := ''; FindTextEdt.Text := '';
FFirstNext := False; FFirstNext := False;
inc(FSearchID);
end; end;
end. end.

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="98" Minor="2" Release="1"/> <Version Major="99" Minor="2" Release="7"/>
<Files Count="204"> <Files Count="204">
<Item1> <Item1>
<Filename Value="..\source\uCEFAccessibilityHandler.pas"/> <Filename Value="..\source\uCEFAccessibilityHandler.pas"/>

10
source/uCEFApplicationCore.pas
View File

@ -66,15 +66,15 @@ uses
uCEFTypes, uCEFInterfaces, uCEFBaseRefCounted, uCEFSchemeRegistrar; uCEFTypes, uCEFInterfaces, uCEFBaseRefCounted, uCEFSchemeRegistrar;
const const
CEF_SUPPORTED_VERSION_MAJOR = 98; CEF_SUPPORTED_VERSION_MAJOR = 99;
CEF_SUPPORTED_VERSION_MINOR = 2; CEF_SUPPORTED_VERSION_MINOR = 2;
CEF_SUPPORTED_VERSION_RELEASE = 1; CEF_SUPPORTED_VERSION_RELEASE = 7;
CEF_SUPPORTED_VERSION_BUILD = 0; CEF_SUPPORTED_VERSION_BUILD = 0;
CEF_CHROMEELF_VERSION_MAJOR = 98; CEF_CHROMEELF_VERSION_MAJOR = 99;
CEF_CHROMEELF_VERSION_MINOR = 0; CEF_CHROMEELF_VERSION_MINOR = 0;
CEF_CHROMEELF_VERSION_RELEASE = 4758; CEF_CHROMEELF_VERSION_RELEASE = 4844;
CEF_CHROMEELF_VERSION_BUILD = 109; CEF_CHROMEELF_VERSION_BUILD = 51;
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
LIBCEF_DLL = 'libcef.dll'; LIBCEF_DLL = 'libcef.dll';

6
source/uCEFBrowser.pas
View File

@ -105,7 +105,7 @@ type
procedure Print; procedure Print;
procedure PrintToPdf(const path: ustring; settings: PCefPdfPrintSettings; const callback: ICefPdfPrintCallback); procedure PrintToPdf(const path: ustring; settings: PCefPdfPrintSettings; const callback: ICefPdfPrintCallback);
procedure PrintToPdfProc(const path: ustring; settings: PCefPdfPrintSettings; const callback: TOnPdfPrintFinishedProc); procedure PrintToPdfProc(const path: ustring; settings: PCefPdfPrintSettings; const callback: TOnPdfPrintFinishedProc);
procedure Find(identifier: Integer; const searchText: ustring; forward_, matchCase, findNext: Boolean); procedure Find(const searchText: ustring; forward_, matchCase, findNext: Boolean);
procedure StopFinding(clearSelection: Boolean); procedure StopFinding(clearSelection: Boolean);
procedure ShowDevTools(const windowInfo: PCefWindowInfo; const client: ICefClient; const settings: PCefBrowserSettings; inspectElementAt: PCefPoint); procedure ShowDevTools(const windowInfo: PCefWindowInfo; const client: ICefClient; const settings: PCefBrowserSettings; inspectElementAt: PCefPoint);
procedure CloseDevTools; procedure CloseDevTools;
@ -411,12 +411,12 @@ begin
PCefBrowserHost(FData)^.drag_target_drop(PCefBrowserHost(FData), event); PCefBrowserHost(FData)^.drag_target_drop(PCefBrowserHost(FData), event);
end; end;
procedure TCefBrowserHostRef.Find(identifier: Integer; const searchText: ustring; forward_, matchCase, findNext: Boolean); procedure TCefBrowserHostRef.Find(const searchText: ustring; forward_, matchCase, findNext: Boolean);
var var
TempText : TCefString; TempText : TCefString;
begin begin
TempText := CefString(searchText); TempText := CefString(searchText);
PCefBrowserHost(FData)^.find(PCefBrowserHost(FData), identifier, @TempText, Ord(forward_), Ord(matchCase), Ord(findNext)); PCefBrowserHost(FData)^.find(PCefBrowserHost(FData), @TempText, Ord(forward_), Ord(matchCase), Ord(findNext));
end; end;
function TCefBrowserHostRef.GetBrowser: ICefBrowser; function TCefBrowserHostRef.GetBrowser: ICefBrowser;

6
source/uCEFChromiumCore.pas
View File

@ -781,7 +781,7 @@ type
function ExecuteDevToolsMethod(message_id: integer; const method: ustring; const params: ICefDictionaryValue): Integer; function ExecuteDevToolsMethod(message_id: integer; const method: ustring; const params: ICefDictionaryValue): Integer;
function AddDevToolsMessageObserver(const observer: ICefDevToolsMessageObserver): ICefRegistration; function AddDevToolsMessageObserver(const observer: ICefDevToolsMessageObserver): ICefRegistration;
procedure Find(aIdentifier : integer; const aSearchText : ustring; aForward, aMatchCase, aFindNext : Boolean); procedure Find(const aSearchText : ustring; aForward, aMatchCase, aFindNext : Boolean);
procedure StopFinding(aClearSelection : Boolean); procedure StopFinding(aClearSelection : Boolean);
procedure Print; procedure Print;
@ -2212,10 +2212,10 @@ begin
Result := AddBrowser(TempBrowser); Result := AddBrowser(TempBrowser);
end; end;
procedure TChromiumCore.Find(aIdentifier : integer; const aSearchText : ustring; aForward, aMatchCase, aFindNext : Boolean); procedure TChromiumCore.Find(const aSearchText : ustring; aForward, aMatchCase, aFindNext : Boolean);
begin begin
if Initialized then if Initialized then
Browser.Host.Find(aIdentifier, aSearchText, aForward, aMatchCase, aFindNext); Browser.Host.Find(aSearchText, aForward, aMatchCase, aFindNext);
end; end;
procedure TChromiumCore.StopFinding(aClearSelection : Boolean); procedure TChromiumCore.StopFinding(aClearSelection : Boolean);

2
source/uCEFInterfaces.pas
View File

@ -604,7 +604,7 @@ type
procedure Print; procedure Print;
procedure PrintToPdf(const path: ustring; settings: PCefPdfPrintSettings; const callback: ICefPdfPrintCallback); procedure PrintToPdf(const path: ustring; settings: PCefPdfPrintSettings; const callback: ICefPdfPrintCallback);
procedure PrintToPdfProc(const path: ustring; settings: PCefPdfPrintSettings; const callback: TOnPdfPrintFinishedProc); procedure PrintToPdfProc(const path: ustring; settings: PCefPdfPrintSettings; const callback: TOnPdfPrintFinishedProc);
procedure Find(identifier: Integer; const searchText: ustring; forward_, matchCase, findNext: Boolean); procedure Find(const searchText: ustring; forward_, matchCase, findNext: Boolean);
procedure StopFinding(clearSelection: Boolean); procedure StopFinding(clearSelection: Boolean);
procedure ShowDevTools(const windowInfo: PCefWindowInfo; const client: ICefClient; const settings: PCefBrowserSettings; inspectElementAt: PCefPoint); procedure ShowDevTools(const windowInfo: PCefWindowInfo; const client: ICefClient; const settings: PCefBrowserSettings; inspectElementAt: PCefPoint);
procedure CloseDevTools; procedure CloseDevTools;

2
source/uCEFTypes.pas
View File

@ -2902,7 +2902,7 @@ type
download_image : procedure(self: PCefBrowserHost; const image_url: PCefString; is_favicon: Integer; max_image_size: Cardinal; bypass_cache: Integer; callback: PCefDownloadImageCallback); stdcall; download_image : procedure(self: PCefBrowserHost; const image_url: PCefString; is_favicon: Integer; max_image_size: Cardinal; bypass_cache: Integer; callback: PCefDownloadImageCallback); stdcall;
print : procedure(self: PCefBrowserHost); stdcall; print : procedure(self: PCefBrowserHost); stdcall;
print_to_pdf : procedure(self: PCefBrowserHost; const path: PCefString; const settings: PCefPdfPrintSettings; callback: PCefPdfPrintCallback); stdcall; print_to_pdf : procedure(self: PCefBrowserHost; const path: PCefString; const settings: PCefPdfPrintSettings; callback: PCefPdfPrintCallback); stdcall;
find : procedure(self: PCefBrowserHost; identifier: Integer; const searchText: PCefString; forward_, matchCase, findNext: Integer); stdcall; find : procedure(self: PCefBrowserHost; const searchText: PCefString; forward_, matchCase, findNext: Integer); stdcall;
stop_finding : procedure(self: PCefBrowserHost; clearSelection: Integer); stdcall; stop_finding : procedure(self: PCefBrowserHost; clearSelection: Integer); stdcall;
show_dev_tools : procedure(self: PCefBrowserHost; const windowInfo: PCefWindowInfo; client: PCefClient; const settings: PCefBrowserSettings; const inspect_element_at: PCefPoint); stdcall; show_dev_tools : procedure(self: PCefBrowserHost; const windowInfo: PCefWindowInfo; client: PCefClient; const settings: PCefBrowserSettings; const inspect_element_at: PCefPoint); stdcall;
close_dev_tools : procedure(self: PCefBrowserHost); stdcall; close_dev_tools : procedure(self: PCefBrowserHost); stdcall;

4
update_CEF4Delphi.json
View File

@ -2,9 +2,9 @@
"UpdateLazPackages" : [ "UpdateLazPackages" : [
{ {
"ForceNotify" : true, "ForceNotify" : true,
"InternalVersion" : 363, "InternalVersion" : 364,
"Name" : "cef4delphi_lazarus.lpk", "Name" : "cef4delphi_lazarus.lpk",
"Version" : "98.2.1.0" "Version" : "99.2.7.0"
} }
], ],
"UpdatePackageData" : { "UpdatePackageData" : {