pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-12-03 21:44:45 +02:00
Code Issues Actions Releases Activity

Added more comments to JSExtension

Browse Source 
- MiniBrowser shows the name of the loaded frames.
- Fixed MiniBrowser Chromium1TextResultAvailable declaration.
This commit is contained in:
Salvador Díaz Fau
2018-06-27 10:17:34 +02:00
parent 5f82e1ace3
commit 55aa9965df
3 changed files with 46 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
demos/MiniBrowser/uMiniBrowser.pas
View File

@@ -135,7 +135,7 @@ type
procedure Chromium1StatusMessage(Sender: TObject;
const browser: ICefBrowser; const value: ustring);
procedure Chromium1TextResultAvailable(Sender: TObject;
const aText: string);
const aText: ustring);
procedure PopupMenu1Popup(Sender: TObject);
procedure DevTools1Click(Sender: TObject);
procedure Preferences1Click(Sender: TObject);
@@ -195,6 +195,8 @@ type
procedure Chromium1LoadingProgressChange(Sender: TObject;
const browser: ICefBrowser; const progress: Double);
procedure OpenfilewithaDAT1Click(Sender: TObject);
procedure Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser;
const frame: ICefFrame; httpStatusCode: Integer);
protected
FResponse : TStringList;
@@ -598,6 +600,16 @@ begin
if (TempKeyMsg.CharCode = VK_F12) then aHandled := True;
end;
procedure TMiniBrowserFrm.Chromium1LoadEnd(Sender: TObject;
const browser: ICefBrowser; const frame: ICefFrame;
httpStatusCode: Integer);
begin
if frame.IsMain then
StatusBar1.Panels[1].Text := 'main frame loaded : ' + quotedstr(frame.name)
else
StatusBar1.Panels[1].Text := 'frame loaded : ' + quotedstr(frame.name);
end;
procedure TMiniBrowserFrm.Chromium1LoadingProgressChange(Sender: TObject;
const browser: ICefBrowser; const progress: Double);
begin
@@ -757,7 +769,7 @@ begin
if Chromium1.IsSameBrowser(browser) then ShowStatusText(value);
end;
procedure TMiniBrowserFrm.Chromium1TextResultAvailable(Sender: TObject; const aText: string);
procedure TMiniBrowserFrm.Chromium1TextResultAvailable(Sender: TObject; const aText: ustring);
begin
clipboard.AsText := aText;
end;