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 1 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

6
demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.lfm
View File

@@ -15,7 +15,7 @@ object MiniBrowserFrm: TMiniBrowserFrm
OnDestroy = FormDestroy
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.10.0'
LCLVersion = '2.0.12.0'
object Splitter1: TSplitter
Left = 1179
Height = 663
@@ -349,6 +349,10 @@ object MiniBrowserFrm: TMiniBrowserFrm
Caption = 'Memory info...'
OnClick = Memoryinfo1Click
end
object MenuItem5: TMenuItem
Caption = 'CEF info...'
OnClick = MenuItem5Click
end
end
object SaveDialog1: TSaveDialog
Left = 32

15
demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.pas
View File

@@ -88,6 +88,7 @@ type
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
MenuItem4: TMenuItem;
MenuItem5: TMenuItem;
NavControlPnl: TPanel;
NavButtonPnl: TPanel;
StatusPnl: TPanel;
@@ -142,6 +143,7 @@ type
procedure MenuItem2Click(Sender: TObject);
procedure MenuItem3Click(Sender: TObject);
procedure MenuItem4Click(Sender: TObject);
procedure MenuItem5Click(Sender: TObject);
procedure ReloadBtnClick(Sender: TObject);
procedure Chromium1AfterCreated(Sender: TObject;
const browser: ICefBrowser);
@@ -377,6 +379,19 @@ begin
Chromium1.AcceptLanguageList := InputBox('Language', 'Accept language list', TempLanguageList);
end;
procedure TMiniBrowserFrm.MenuItem5Click(Sender: TObject);
var
TempInfo : string;
begin
TempInfo := 'libcef.dll : ' + CRLF + GlobalCEFApp.LibCefVersion + CRLF + CRLF +
'chrome_elf.dll : ' + 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;
procedure TMiniBrowserFrm.GoBtnClick(Sender: TObject);
begin
Chromium1.LoadURL(URLCbx.Text);