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

16
demos/Lazarus/JavaScript/JSWindowBindingWithFunction/JSWindowBindingWithFunction.lps
View File

@ -8,9 +8,8 @@
<Unit0>
<Filename Value="JSWindowBindingWithFunction.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<TopLine Value="41"/>
<CursorPos X="17" Y="59"/>
<CursorPos X="108" Y="49"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
@ -21,7 +20,10 @@
<ComponentName Value="JSWindowBindingWithFunctionFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="69"/>
<CursorPos X="43" Y="75"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -35,10 +37,18 @@
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit2>
</Units>
<JumpHistory Count="1">
<JumpHistory Count="3" HistoryIndex="2">
<Position1>
<Filename Value="uJSWindowBindingWithFunction.pas"/>
</Position1>
<Position2>
<Filename Value="JSWindowBindingWithFunction.lpr"/>
<Caret Line="49" Column="108" TopLine="41"/>
</Position2>
<Position3>
<Filename Value="uJSWindowBindingWithFunction.pas"/>
<Caret Line="100" Column="11" TopLine="84"/>
</Position3>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>

12
demos/Lazarus/JavaScript/JSWindowBindingWithFunction/uJSWindowBindingWithFunction.lfm
View File

@ -17,18 +17,18 @@ object JSWindowBindingWithFunctionFrm: TJSWindowBindingWithFunctionFrm
LCLVersion = '2.0.2.0'
object NavControlPnl: TPanel
Left = 0
Height = 30
Height = 21
Top = 0
Width = 978
Align = alTop
BevelOuter = bvNone
ClientHeight = 30
ClientHeight = 21
ClientWidth = 978
Enabled = False
TabOrder = 0
object Edit1: TEdit
Left = 0
Height = 30
Height = 21
Top = 0
Width = 947
Align = alClient
@ -37,7 +37,7 @@ object JSWindowBindingWithFunctionFrm: TJSWindowBindingWithFunctionFrm
end
object GoBtn: TButton
Left = 947
Height = 30
Height = 21
Top = 0
Width = 31
Align = alRight
@ -48,8 +48,8 @@ object JSWindowBindingWithFunctionFrm: TJSWindowBindingWithFunctionFrm
end
object CEFWindowParent1: TCEFWindowParent
Left = 0
Height = 559
Top = 30
Height = 568
Top = 21
Width = 978
Align = alClient
TabOrder = 1

3
demos/Lazarus/JavaScript/JSWindowBindingWithFunction/uJSWindowBindingWithFunction.pas
View File

@ -72,6 +72,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 FormCreate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
@ -136,6 +137,7 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.DisableFeatures := 'NetworkService';
end;
procedure TJSWindowBindingWithFunctionFrm.GoBtnClick(Sender: TObject);
@ -154,6 +156,7 @@ procedure TJSWindowBindingWithFunctionFrm.Chromium1BeforePopup(
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);
begin
// For simplicity, this demo blocks all popup windows and new tabs