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 3.3163.1669.ge260cbb and new demo

Browse Source
This commit is contained in:
Salvador Díaz Fau
2017-09-23 11:38:29 +02:00
parent 11e8a588e9
commit df5dce37fc
32 changed files with 3616 additions and 424 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
demos/MiniBrowser/uMiniBrowser.pas
View File

@ -154,6 +154,7 @@ type
const browser: ICefBrowser; const frame: ICefFrame;
const request: ICefRequest; const response: ICefResponse;
out Result: Boolean);
procedure StopBtnClick(Sender: TObject);
protected
FResponse : string;
@ -429,6 +430,11 @@ begin
StatusBar1.Panels[0].Text := aText;
end;
procedure TMiniBrowserFrm.StopBtnClick(Sender: TObject);
begin
Chromium1.StopLoad;
end;
procedure TMiniBrowserFrm.Chromium1StatusMessage(Sender: TObject;
const browser: ICefBrowser; const value: ustring);
begin
@ -490,6 +496,7 @@ end;
procedure TMiniBrowserFrm.Openfile1Click(Sender: TObject);
begin
// This is a quick solution to load files. The file URL should be properly encoded.
if OpenDialog1.Execute then Chromium1.LoadURL('file:///' + OpenDialog1.FileName);
end;