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

Update to CEF 75.0.7

Browse Source
This commit is contained in:
Salvador Díaz Fau
2019-06-16 10:31:13 +02:00
parent 22f4a1d6d8
commit 52fca97884
186 changed files with 4104 additions and 1826 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
demos/Lazarus/JavaScript/JSExecutingFunctions/JSExecutingFunctions.lps
View File

@@ -8,7 +8,6 @@
<Unit0>
<Filename Value="JSExecutingFunctions.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<TopLine Value="41"/>
<CursorPos X="17" Y="59"/>
<UsageCount Value="20"/>
@@ -21,9 +20,10 @@
<ComponentName Value="JSExecutingFunctionsFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="157"/>
<CursorPos X="73" Y="175"/>
<TopLine Value="206"/>
<CursorPos X="39" Y="213"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@@ -53,7 +53,7 @@
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit4>
</Units>
<JumpHistory Count="2" HistoryIndex="1">
<JumpHistory Count="7" HistoryIndex="6">
<Position1>
<Filename Value="uJSExecutingFunctions.pas"/>
</Position1>
@@ -61,6 +61,26 @@
<Filename Value="uJSExecutingFunctions.pas"/>
<Caret Line="175" Column="73" TopLine="157"/>
</Position2>
<Position3>
<Filename Value="JSExecutingFunctions.lpr"/>
<Caret Line="59" Column="17" TopLine="41"/>
</Position3>
<Position4>
<Filename Value="uJSExecutingFunctions.pas"/>
<Caret Line="115" Column="11" TopLine="99"/>
</Position4>
<Position5>
<Filename Value="uJSExecutingFunctions.pas"/>
<Caret Line="176" Column="3" TopLine="163"/>
</Position5>
<Position6>
<Filename Value="uJSExecutingFunctions.pas"/>
<Caret Line="178" Column="41" TopLine="162"/>
</Position6>
<Position7>
<Filename Value="uJSExecutingFunctions.pas"/>
<Caret Line="87" Column="43" TopLine="84"/>
</Position7>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>

7
demos/Lazarus/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.pas
View File

@@ -84,6 +84,7 @@ type
targetDisposition: TCefWindowOpenDisposition; userGesture: Boolean;
const popupFeatures: TCefPopupFeatures; var windowInfo: TCefWindowInfo;
var client: ICefClient; var settings: TCefBrowserSettings;
var extra_info: ICefDictionaryValue;
var noJavascriptAccess: Boolean; var Result: Boolean);
procedure FormDestroy(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
@@ -152,6 +153,7 @@ begin
end;
procedure GlobalCEFApp_OnProcessMessageReceived(const browser : ICefBrowser;
const frame : ICefFrame;
sourceProcess : TCefProcessId;
const aMessage : ICefProcessMessage;
var aHandled : boolean);
@@ -174,6 +176,7 @@ begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.OnProcessMessageReceived := GlobalCEFApp_OnProcessMessageReceived;
GlobalCEFApp.DisableFeatures := 'NetworkService';
end;
procedure TJSExecutingFunctionsFrm.GoBtnClick(Sender: TObject);
@@ -206,7 +209,9 @@ procedure TJSExecutingFunctionsFrm.Chromium1BeforePopup(Sender: TObject;
targetFrameName: ustring; targetDisposition: TCefWindowOpenDisposition;
userGesture: Boolean; const popupFeatures: TCefPopupFeatures;
var windowInfo: TCefWindowInfo; var client: ICefClient;
var settings: TCefBrowserSettings; var noJavascriptAccess: Boolean;
var settings: TCefBrowserSettings;
var extra_info: ICefDictionaryValue;
var noJavascriptAccess: Boolean;
var Result: Boolean);
begin
// For simplicity, this demo blocks all popup windows and new tabs