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 89.0.6

Browse Source 
Added GlobalCEFApp.ApiHashUniversal
Added GlobalCEFApp.ApiHashPlatform
Added GlobalCEFApp.ApiHashCommit
Added a menu option to the MiniBrowser demo to show the CEF version info and API hashes.
This commit is contained in:
Salvador Díaz Fau
2021-03-06 12:24:28 +01:00
parent e9bf19225a
commit 1515e2bf99
14 changed files with 167 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
demos/Lazarus_Linux/MiniBrowser/uMiniBrowser.pas
View File

@ -62,6 +62,8 @@ type
TMiniBrowserFrm = class(TForm)
CEFLinkedWindowParent1: TCEFLinkedWindowParent;
HideDevTools1: TMenuItem;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
NavControlPnl: TPanel;
NavButtonPnl: TPanel;
PrintDialog1: TPrintDialog;
@ -118,6 +120,7 @@ type
procedure CEFLinkedWindowParent1Enter(Sender: TObject);
procedure CEFLinkedWindowParent1Exit(Sender: TObject);
procedure HideDevTools1Click(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
@ -509,6 +512,20 @@ procedure TMiniBrowserFrm.HideDevTools1Click(Sender: TObject);
begin
HideDevTools;
end;
procedure TMiniBrowserFrm.MenuItem2Click(Sender: TObject);
var
TempInfo : string;
begin
TempInfo := 'CEF : ' + CRLF + GlobalCEFApp.LibCefVersion + CRLF + CRLF +
'Chromium : ' + CRLF + GlobalCEFApp.ChromeVersion + CRLF + CRLF +
'Universal API hash : ' + CRLF + GlobalCEFApp.ApiHashUniversal + CRLF + CRLF +
'Platform API hash : ' + CRLF + GlobalCEFApp.ApiHashPlatform + CRLF + CRLF +
'Commit API hash : ' + CRLF + GlobalCEFApp.ApiHashCommit;
showmessage(TempInfo);
end;
{%Endregion}
{Form events}