pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2024-11-24 08:02:15 +02:00
Code Issues Actions Releases Activity

Update to CEF 77.1.3

Browse Source
This commit is contained in:
Salvador Díaz Fau 2019-10-01 18:47:24 +02:00
parent 437c3bf4c0
commit 9f202b19c0
162 changed files with 252 additions and 504 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
README.md
View File

@ -3,10 +3,10 @@ CEF4Delphi is an open source project created by Salvador D
CEF4Delphi is based on DCEF3, made by Henri Gourvest. The original license of DCEF3 still applies to CEF4Delphi. Read the license terms in the first lines of any *.pas file.
CEF4Delphi uses CEF 76.1.13 which includes Chromium 76.0.3809.132.
CEF4Delphi uses CEF 77.1.3 which includes Chromium 77.0.3865.90.
The CEF binaries used by CEF4Delphi are available for download at spotify :
* [32 bits](http://opensource.spotify.com/cefbuilds/cef_binary_76.1.13%2Bgf19c584%2Bchromium-76.0.3809.132_windows32.tar.bz2)
* [64 bits](http://opensource.spotify.com/cefbuilds/cef_binary_76.1.13%2Bgf19c584%2Bchromium-76.0.3809.132_windows64.tar.bz2)
* [32 bits](http://opensource.spotify.com/cefbuilds/cef_binary_77.1.3%2Bgf0a1c44%2Bchromium-77.0.3865.90_windows32.tar.bz2)
* [64 bits](http://opensource.spotify.com/cefbuilds/cef_binary_77.1.3%2Bgf0a1c44%2Bchromium-77.0.3865.90_windows64.tar.bz2)
CEF4Delphi was developed and tested on Delphi 10.3 Rio and it has been tested in Delphi 7, Delphi XE, Delphi 10, Delphi 10.2 and Lazarus 2.0.4/FPC 3.0.4. CEF4Delphi includes VCL, FireMonkey (FMX) and Lazarus components.

2
demos/Delphi_FMX/FMXExternalPumpBrowser/FMXExternalPumpBrowser.dproj
View File

@ -5,7 +5,7 @@
<FrameworkType>FMX</FrameworkType>
<MainSource>FMXExternalPumpBrowser.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Release</Config>
<Config Condition="'$(Config)'==''">Debug</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
<TargetedPlatforms>3</TargetedPlatforms>
<AppType>Application</AppType>

1
demos/Delphi_FMX/FMXExternalPumpBrowser/uFMXExternalPumpBrowser.pas
View File

@ -199,7 +199,6 @@ begin
GlobalCEFApp.ExternalMessagePump := True;
GlobalCEFApp.MultiThreadedMessageLoop := False;
GlobalCEFApp.OnScheduleMessagePumpWork := GlobalCEFApp_OnScheduleMessagePumpWork;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TFMXExternalPumpBrowserFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

2
demos/Delphi_FMX/FMXToolBoxBrowser/FMXToolBoxBrowser.dproj
View File

@ -5,7 +5,7 @@
<FrameworkType>FMX</FrameworkType>
<MainSource>FMXToolBoxBrowser.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Release</Config>
<Config Condition="'$(Config)'==''">Debug</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
<TargetedPlatforms>3</TargetedPlatforms>
<AppType>Application</AppType>

1
demos/Delphi_FMX/FMXToolBoxBrowser/uMainForm.pas
View File

@ -133,7 +133,6 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextInitialized := GlobalCEFApp_OnContextInitialized;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
function TMainForm.PostCustomMessage(aMessage, wParam : cardinal; lParam : integer) : boolean;

2
demos/Delphi_FMX/SimpleFMXBrowser/SimpleFMXBrowser.dproj
View File

@ -5,7 +5,7 @@
<FrameworkType>FMX</FrameworkType>
<MainSource>SimpleFMXBrowser.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Release</Config>
<Config Condition="'$(Config)'==''">Debug</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
<TargetedPlatforms>3</TargetedPlatforms>
<AppType>Application</AppType>

1
demos/Delphi_FMX/SimpleFMXBrowser/uSimpleFMXBrowser.pas
View File

@ -149,7 +149,6 @@ uses
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
//GlobalCEFApp.LogFile := 'cef.log';
//GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;

1
demos/Delphi_VCL/ConsoleBrowser/OSRDLLBrowser.dpr
View File

@ -113,7 +113,6 @@ begin
GlobalCEFApp.BrowserSubprocessPath := 'OSRSubProcess.exe';
GlobalCEFApp.ExternalMessagePump := False;
GlobalCEFApp.MultiThreadedMessageLoop := False;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
// This demo uses a different EXE for the subprocesses.
// With this configuration it's not necessary to have the

1
demos/Delphi_VCL/ConsoleBrowser/OSRSubProcess.dpr
View File

@ -78,7 +78,6 @@ begin
GlobalCEFApp.SetCurrentDir := True;
GlobalCEFApp.ExternalMessagePump := False;
GlobalCEFApp.MultiThreadedMessageLoop := False;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
GlobalCEFApp.StartSubProcess;
GlobalCEFApp.Free;

1
demos/Delphi_VCL/CookieVisitor/uCookieVisitor.pas
View File

@ -146,7 +146,6 @@ uses
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
//GlobalCEFApp.LogFile := 'cef.log';
//GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
end;

1
demos/Delphi_VCL/CustomResourceBrowser/uMainForm.dfm
View File

@ -12,7 +12,6 @@ object MainForm: TMainForm
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnShow = FormShow

8
demos/Delphi_VCL/CustomResourceBrowser/uMainForm.pas
View File

@ -63,7 +63,6 @@ type
procedure FormCreate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
@ -113,7 +112,6 @@ uses
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
//GlobalCEFApp.LogFile := 'cef.log';
//GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
end;
@ -123,11 +121,6 @@ begin
ChromiumWindow1.LoadURL(Edit1.Text);
end;
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FHandler := nil;
end;
procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := FCanClose;
@ -136,6 +129,7 @@ begin
begin
FClosing := True;
Visible := False;
FHandler := nil;
ChromiumWindow1.CloseBrowser(True);
end;
end;

1
demos/Delphi_VCL/DLLBrowser/DLLBrowser.dpr
View File

@ -100,7 +100,6 @@ begin
GlobalCEFApp.UserDataPath := 'cef\User Data';
}
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
GlobalCEFApp.SetCurrentDir := True;
GlobalCEFApp.BrowserSubprocessPath := 'SubProcess.exe';

1
demos/Delphi_VCL/DLLBrowser/SubProcess.dpr
View File

@ -70,7 +70,6 @@ begin
GlobalCEFApp.UserDataPath := 'cef\User Data';
}
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
GlobalCEFApp.SetCurrentDir := True;
GlobalCEFApp.StartSubProcess;

1
demos/Delphi_VCL/DOMVisitor/uDOMVisitor.pas
View File

@ -343,7 +343,6 @@ begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.RemoteDebuggingPort := 9000;
GlobalCEFApp.OnProcessMessageReceived := GlobalCEFApp_OnProcessMessageReceived;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
// Enabling the debug log file for then DOM visitor demo.
// This adds lots of warnings to the console, specially if you run this inside VirtualBox.

5
demos/Delphi_VCL/EditorBrowser/uEditorBrowser.pas
View File

@ -174,8 +174,9 @@ uses
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
GlobalCEFApp := TCefApplication.Create;
//GlobalCEFApp.LogFile := 'cef.log';
//GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
end;
procedure TForm1.FillColorBtnClick(Sender: TObject);

1
demos/Delphi_VCL/ExternalPumpBrowser/uExternalPumpBrowser.pas
View File

@ -128,7 +128,6 @@ begin
GlobalCEFApp.ExternalMessagePump := True;
GlobalCEFApp.MultiThreadedMessageLoop := False;
GlobalCEFApp.OnScheduleMessagePumpWork := GlobalCEFApp_OnScheduleMessagePumpWork;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TExternalPumpBrowserFrm.FormCreate(Sender: TObject);

1
demos/Delphi_VCL/FullScreenBrowser/uMainForm.pas
View File

@ -115,7 +115,6 @@ uses
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
//GlobalCEFApp.LogFile := 'cef.log';
//GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
end;

3
demos/Delphi_VCL/JavaScript/JSDialog/uJSDialogBrowser.pas
View File

@ -44,7 +44,7 @@ interface
uses
{$IFDEF DELPHI16_UP}
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, System.SyncObjs,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, System.SyncObjs, System.UITypes,
{$ELSE}
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ExtCtrls, SyncObjs,
@ -119,7 +119,6 @@ uses
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
//GlobalCEFApp.LogFile := 'cef.log';
//GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
end;

1
demos/Delphi_VCL/JavaScript/JSEval/uJSEval.pas
View File

@ -524,7 +524,6 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnProcessMessageReceived := RenderProcessHandler_OnProcessMessageReceivedEvent;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TJSEvalFrm.Chromium1ProcessMessageReceived( Sender : TObject;

1
demos/Delphi_VCL/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.pas
View File

@ -174,7 +174,6 @@ begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.OnProcessMessageReceived := GlobalCEFApp_OnProcessMessageReceived;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TJSExecutingFunctionsFrm.GoBtnClick(Sender: TObject);

1
demos/Delphi_VCL/JavaScript/JSExtension/uJSExtension.pas
View File

@ -315,7 +315,6 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitialized;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
{$IFDEF DEBUG}
GlobalCEFApp.LogFile := 'debug.log';
GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO;

1
demos/Delphi_VCL/JavaScript/JSExtensionWithFunction/uJSExtensionWithFunction.pas
View File

@ -152,7 +152,6 @@ begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnWebKitInitialized := {$IFNDEF DELPHI12_UP}TJSSimpleExtensionFrm.{$ENDIF}
GlobalCEFApp_OnWebKitInitializedEvent;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TJSExtensionWithFunctionFrm.GoBtnClick(Sender: TObject);

1
demos/Delphi_VCL/JavaScript/JSExtensionWithObjectParameter/uJSExtensionWithObjectParameter.pas
View File

@ -155,7 +155,6 @@ begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnWebKitInitialized := {$IFNDEF DELPHI12_UP}TJSSimpleExtensionFrm.{$ENDIF}
GlobalCEFApp_OnWebKitInitializedEvent;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TJSExtensionWithObjectParameterFrm.GoBtnClick(Sender: TObject);

1
demos/Delphi_VCL/JavaScript/JSRTTIExtension/uJSRTTIExtension.pas
View File

@ -173,7 +173,6 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitialized;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
{$IFDEF DEBUG}
GlobalCEFApp.LogFile := 'debug.log';
GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO;

1
demos/Delphi_VCL/JavaScript/JSSimpleExtension/uJSSimpleExtension.pas
View File

@ -142,7 +142,6 @@ begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnWebKitInitialized := {$IFNDEF DELPHI12_UP}TJSSimpleExtensionFrm.{$ENDIF}
GlobalCEFApp_OnWebKitInitializedEvent;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TJSSimpleExtensionFrm.GoBtnClick(Sender: TObject);

1
demos/Delphi_VCL/JavaScript/JSSimpleWindowBinding/uJSSimpleWindowBinding.pas
View File

@ -130,7 +130,6 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TJSSimpleWindowBindingFrm.GoBtnClick(Sender: TObject);

1
demos/Delphi_VCL/JavaScript/JSWindowBindingSubProcess/SubProcess.dpr
View File

@ -68,7 +68,6 @@ end;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
// The main process and the subprocess *MUST* have the same FrameworkDirPath, ResourcesDirPath,
// LocalesDirPath, cache, cookies and UserDataPath paths

1
demos/Delphi_VCL/JavaScript/JSWindowBindingSubProcess/uJSSimpleWindowBinding.pas
View File

@ -129,7 +129,6 @@ begin
// 4. Run this demo : JSSimpleWindowBinding
GlobalCEFApp.BrowserSubprocessPath := 'SubProcess.exe';
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
//GlobalCEFApp.LogFile := 'cef.log';
//GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
end;

1
demos/Delphi_VCL/JavaScript/JSWindowBindingWithArrayBuffer/uJSWindowBindingWithArrayBuffer.pas
View File

@ -155,7 +155,6 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TJSWindowBindingWithArrayBufferFrm.GoBtnClick(Sender: TObject);

1
demos/Delphi_VCL/JavaScript/JSWindowBindingWithFunction/uJSWindowBindingWithFunction.pas
View File

@ -135,7 +135,6 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TJSWindowBindingWithFunctionFrm.GoBtnClick(Sender: TObject);

1
demos/Delphi_VCL/JavaScript/JSWindowBindingWithObject/uJSWindowBindingWithObject.pas
View File

@ -136,7 +136,6 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TJSWindowBindingWithObjectFrm.GoBtnClick(Sender: TObject);

1
demos/Delphi_VCL/KioskOSRBrowser/uKioskOSRBrowser.pas
View File

@ -174,7 +174,6 @@ begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.WindowlessRenderingEnabled := True;
GlobalCEFApp.EnableHighDPISupport := True;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TForm1.AppEventsMessage(var Msg: tagMSG; var Handled: Boolean);

1
demos/Delphi_VCL/MDIBrowser/uMainForm.pas
View File

@ -116,7 +116,6 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextInitialized := GlobalCEFApp_OnContextInitialized;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TMainForm.CreateMDIChild(const Name: string);

1
demos/Delphi_VCL/MDIExternalPumpBrowser/uMainForm.pas
View File

@ -129,7 +129,6 @@ begin
GlobalCEFApp.MultiThreadedMessageLoop := False;
GlobalCEFApp.OnScheduleMessagePumpWork := GlobalCEFApp_OnScheduleMessagePumpWork;
GlobalCEFApp.OnContextInitialized := GlobalCEFApp_OnContextInitialized;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TMainForm.CreateMDIChild(const Name: string);

10
demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas
View File

@ -290,11 +290,11 @@ uses
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
GlobalCEFApp.LogFile := 'debug.log';
GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO;
GlobalCEFApp.cache := 'cache';
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.LogFile := 'debug.log';
GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO;
GlobalCEFApp.cache := 'cache';
GlobalCEFApp.EnablePrintPreview := True;
//GlobalCEFApp.RemoteDebuggingPort := 19999;
end;

1
demos/Delphi_VCL/OSRExternalPumpBrowser/uOSRExternalPumpBrowser.pas
View File

@ -187,7 +187,6 @@ begin
GlobalCEFApp.EnableHighDPISupport := True;
GlobalCEFApp.ExternalMessagePump := True;
GlobalCEFApp.MultiThreadedMessageLoop := False;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
GlobalCEFApp.OnScheduleMessagePumpWork := GlobalCEFApp_OnScheduleMessagePumpWork;
end;

1
demos/Delphi_VCL/PopupBrowser/uMainForm.pas
View File

@ -149,7 +149,6 @@ begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.WindowlessRenderingEnabled := True;
GlobalCEFApp.EnableHighDPISupport := True;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
//GlobalCEFApp.LogFile := 'debug.log';
//GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO;
end;

1
demos/Delphi_VCL/PopupBrowser2/uMainForm.pas
View File

@ -146,7 +146,6 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.EnableHighDPISupport := True;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
//GlobalCEFApp.LogFile := 'cef.log';
//GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
end;

2
demos/Delphi_VCL/PostInspectorBrowser/uPostInspectorBrowser.pas
View File

@ -146,7 +146,6 @@ uses
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
//GlobalCEFApp.LogFile := 'cef.log';
//GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
end;
@ -256,6 +255,7 @@ var
i : integer;
begin
TempArray := nil;
try
try
TempPostData := request.PostData;

1
demos/Delphi_VCL/ResponseFilterBrowser/uResponseFilterBrowser.pas
View File

@ -192,7 +192,6 @@ uses
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
GlobalCEFApp.LogFile := 'cef.log';
GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
end;

1
demos/Delphi_VCL/SchemeRegistrationBrowser/uSchemeRegistrationBrowser.pas
View File

@ -146,7 +146,6 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnRegCustomSchemes := GlobalCEFApp_OnRegCustomSchemes;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
// GlobalCEFApp.LogFile := 'debug.log';
// GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;

3
demos/Delphi_VCL/SimpleBrowser/SimpleBrowser.dpr
View File

@ -68,9 +68,6 @@ begin
GlobalCEFApp.UserDataPath := 'cef\User Data';
}
// Disabling some features to improve stability
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
// You *MUST* call GlobalCEFApp.StartMainProcess in a if..then clause
// with the Application initialization inside the begin..end.
// Read this https://www.briskbard.com/index.php?lang=en&pageid=cef

3
demos/Delphi_VCL/SimpleBrowser2/SimpleBrowser2.dpr
View File

@ -70,9 +70,6 @@ begin
GlobalCEFApp.UserDataPath := 'cef\User Data';
}
// Disabling some features to improve stability
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
// You *MUST* call GlobalCEFApp.StartMainProcess in a if..then clause
// with the Application initialization inside the begin..end.
// Read this https://www.briskbard.com/index.php?lang=en&pageid=cef

1
demos/Delphi_VCL/SimpleExternalPumpBrowser/uSimpleExternalPumpBrowser.pas
View File

@ -120,7 +120,6 @@ begin
GlobalCEFApp.ExternalMessagePump := True;
GlobalCEFApp.MultiThreadedMessageLoop := False;
GlobalCEFApp.OnScheduleMessagePumpWork := GlobalCEFApp_OnScheduleMessagePumpWork;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TSimpleExternalPumpBrowserFrm.FormCreate(Sender: TObject);

1
demos/Delphi_VCL/SimpleOSRBrowser/uSimpleOSRBrowser.pas
View File

@ -181,7 +181,6 @@ begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.WindowlessRenderingEnabled := True;
GlobalCEFApp.EnableHighDPISupport := True;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
// If you need transparency leave the GlobalCEFApp.BackgroundColor property
// with the default value or set the alpha channel to 0

60
demos/Delphi_VCL/SimpleServer/uSimpleServer.pas
View File

@ -195,37 +195,55 @@ end;
procedure TSimpleServerFrm.ShowPostDataInfo(const aPostData : ICefPostData);
var
i, j : integer;
i : integer;
TempLen : NativeUInt;
TempList : IInterfaceList;
TempElement : ICefPostDataElement;
TempBytes : TBytes;
TempArray : TCefPostDataElementArray;
begin
if (aPostData = nil) then exit;
TempArray := nil;
i := 0;
j := aPostData.GetCount;
TempList := aPostData.GetElements(j);
while (i < j) do
begin
TempElement := TempList.Items[i] as ICefPostDataElement;
if (TempElement.GetBytesCount > 0) then
try
try
if (aPostData <> nil) and (aPostData.GetElementCount > 0) then
begin
SetLength(TempBytes, TempElement.GetBytesCount);
TempLen := TempElement.GetBytes(TempElement.GetBytesCount, @TempBytes[0]);
aPostData.GetElements(aPostData.GetElementCount, TempArray);
if (TempLen > 0) then
i := 0;
while (i < length(TempArray)) do
begin
ConnectionLogMem.Lines.Add('Post contents length : ' + inttostr(TempLen));
ConnectionLogMem.Lines.Add('Post contents sample : ' + BufferToString(TempBytes));
if (TempArray[i].GetBytesCount > 0) then
begin
SetLength(TempBytes, TempArray[i].GetBytesCount);
TempLen := TempArray[i].GetBytes(TempArray[i].GetBytesCount, @TempBytes[0]);
if (TempLen > 0) then
begin
ConnectionLogMem.Lines.Add('Post contents length : ' + inttostr(TempLen));
ConnectionLogMem.Lines.Add('Post contents sample : ' + BufferToString(TempBytes));
end;
end;
inc(i);
end;
i := 0;
while (i < length(TempArray)) do
begin
TempArray[i] := nil;
inc(i);
end;
end;
inc(i);
except
on e : exception do
if CustomExceptionHandler('TSimpleServerFrm.ShowPostDataInfo', e) then raise;
end;
finally
if (TempArray <> nil) then
begin
Finalize(TempArray);
TempArray := nil;
end;
end;
end;
function TSimpleServerFrm.BufferToString(const aBuffer : TBytes) : string;

1
demos/Delphi_VCL/SubProcess/SubProcess.dpr
View File

@ -53,7 +53,6 @@ uses
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
// The main process and the subprocess *MUST* have the same GlobalCEFApp
// properties and events, specially FrameworkDirPath, ResourcesDirPath,

1
demos/Delphi_VCL/SubProcess/uCEFLoader.pas
View File

@ -65,7 +65,6 @@ begin
GlobalCEFApp.UserDataPath := 'cef\User Data';
}
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
GlobalCEFApp.BrowserSubprocessPath := 'SubProcess.exe';
// This demo uses a different EXE for the subprocesses.

1
demos/Delphi_VCL/TabbedBrowser/uMainForm.pas
View File

@ -156,7 +156,6 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextInitialized := GlobalCEFApp_OnContextInitialized;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TMainForm.AddTabBtnClick(Sender: TObject);

1
demos/Delphi_VCL/ToolBoxBrowser/uMainForm.pas
View File

@ -112,7 +112,6 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextInitialized := GlobalCEFApp_OnContextInitialized;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TMainForm.CreateToolboxChild(const ChildCaption, URL: string);

3
demos/Delphi_VCL/URLRequest/uURLRequest.pas
View File

@ -143,7 +143,8 @@ uses
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
//GlobalCEFApp.LogFile := 'cef.log';
//GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
end;
procedure TURLRequestFrm.DownloadBtnClick(Sender: TObject);

9
demos/Lazarus/CookieVisitor/CookieVisitor.lps
View File

@ -20,9 +20,10 @@
<ComponentName Value="CookieVisitorFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="139"/>
<CursorPos X="69" Y="149"/>
<CursorPos X="58" Y="150"/>
<UsageCount Value="22"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -41,12 +42,10 @@
</Unit2>
<Unit3>
<Filename Value="C:\lazarus\lcl\interfaces\win32\win32object.inc"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<TopLine Value="355"/>
<EditorIndex Value="-1"/>
<TopLine Value="354"/>
<CursorPos Y="413"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit3>
</Units>
<JumpHistory Count="12" HistoryIndex="11">

2
demos/Lazarus/CookieVisitor/uCookieVisitor.lfm
View File

@ -15,7 +15,7 @@ object CookieVisitorFrm: TCookieVisitorFrm
OnDestroy = FormDestroy
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.2.0'
LCLVersion = '2.0.4.0'
object AddressBarPnl: TPanel
Left = 0
Height = 21

3
demos/Lazarus/CookieVisitor/uCookieVisitor.pas
View File

@ -146,7 +146,8 @@ uses
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
//GlobalCEFApp.LogFile := 'cef.log';
//GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
end;
// This function is called in the IO thread.

2
demos/Lazarus/CustomResourceBrowser/CRBrowser.lps
View File

@ -23,7 +23,7 @@
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="100"/>
<CursorPos X="66" Y="115"/>
<CursorPos Y="115"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

2
demos/Lazarus/CustomResourceBrowser/uMainForm.lfm
View File

@ -14,7 +14,7 @@ object MainForm: TMainForm
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.2.0'
LCLVersion = '2.0.4.0'
object ChromiumWindow1: TChromiumWindow
Left = 0
Height = 637

1
demos/Lazarus/CustomResourceBrowser/uMainForm.pas
View File

@ -112,7 +112,6 @@ uses
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
//GlobalCEFApp.LogFile := 'cef.log';
//GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
end;

2
demos/Lazarus/DOMVisitor/DOMVisitor.lps
View File

@ -23,7 +23,7 @@
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="294"/>
<CursorPos X="74" Y="305"/>
<CursorPos Y="305"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

2
demos/Lazarus/DOMVisitor/uDOMVisitor.lfm
View File

@ -14,7 +14,7 @@ object DOMVisitorFrm: TDOMVisitorFrm
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.2.0'
LCLVersion = '2.0.4.0'
object CEFWindowParent1: TCEFWindowParent
Left = 0
Height = 539

1
demos/Lazarus/DOMVisitor/uDOMVisitor.pas
View File

@ -302,7 +302,6 @@ begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.RemoteDebuggingPort := 9000;
GlobalCEFApp.OnProcessMessageReceived := GlobalCEFApp_OnProcessMessageReceived;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
// Enabling the debug log file for then DOM visitor demo.
// This adds lots of warnings to the console, specially if you run this inside VirtualBox.

2
demos/Lazarus/EditorBrowser/EditorBrowser.lps
View File

@ -21,7 +21,7 @@
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="151"/>
<CursorPos X="70" Y="174"/>
<CursorPos X="58" Y="175"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

2
demos/Lazarus/EditorBrowser/uEditorBrowser.lfm
View File

@ -14,7 +14,7 @@ object Form1: TForm1
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.2.0'
LCLVersion = '2.0.4.0'
object CEFWindowParent1: TCEFWindowParent
Left = 0
Height = 599

3
demos/Lazarus/EditorBrowser/uEditorBrowser.pas
View File

@ -171,7 +171,8 @@ uses
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
//GlobalCEFApp.LogFile := 'cef.log';
//GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
end;
procedure TForm1.FillColorBtnClick(Sender: TObject);

2
demos/Lazarus/ExternalPumpBrowser/ExternalPumpBrowser.lps
View File

@ -23,7 +23,7 @@
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="106"/>
<CursorPos X="75" Y="134"/>
<CursorPos Y="134"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

2
demos/Lazarus/ExternalPumpBrowser/uExternalPumpBrowser.lfm
View File

@ -14,7 +14,7 @@ object ExternalPumpBrowserFrm: TExternalPumpBrowserFrm
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.2.0'
LCLVersion = '2.0.4.0'
object AddressPnl: TPanel
Left = 0
Height = 21

1
demos/Lazarus/ExternalPumpBrowser/uExternalPumpBrowser.pas
View File

@ -131,7 +131,6 @@ begin
GlobalCEFApp.FlashEnabled := False;
GlobalCEFApp.ExternalMessagePump := True;
GlobalCEFApp.MultiThreadedMessageLoop := False;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
GlobalCEFApp.OnScheduleMessagePumpWork := GlobalCEFApp_OnScheduleMessagePumpWork;
end;

4
demos/Lazarus/FullScreenBrowser/FullScreenBrowser.lps
View File

@ -22,8 +22,8 @@
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="92"/>
<CursorPos X="69" Y="120"/>
<TopLine Value="95"/>
<CursorPos Y="122"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

6
demos/Lazarus/FullScreenBrowser/uMainForm.lfm
View File

@ -1,7 +1,7 @@
object MainForm: TMainForm
Left = -8
Left = 165
Height = 673
Top = 0
Top = 130
Width = 1364
BorderIcons = []
BorderStyle = bsNone
@ -16,7 +16,7 @@ object MainForm: TMainForm
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnShow = FormShow
LCLVersion = '2.0.2.0'
LCLVersion = '2.0.4.0'
WindowState = wsMaximized
object CEFWindowParent1: TCEFWindowParent
Left = 0

5
demos/Lazarus/FullScreenBrowser/uMainForm.pas
View File

@ -116,8 +116,9 @@ uses
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
GlobalCEFApp := TCefApplication.Create;
//GlobalCEFApp.LogFile := 'cef.log';
//GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
end;
procedure TMainForm.HandleKeyUp(const aMsg : TMsg; var aHandled : boolean);

2
demos/Lazarus/JavaScript/JSDialog/JSDialogBrowser.lps
View File

@ -23,7 +23,7 @@
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="103"/>
<CursorPos X="69" Y="122"/>
<CursorPos X="58" Y="123"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

2
demos/Lazarus/JavaScript/JSDialog/uJSDialogBrowser.lfm
View File

@ -15,7 +15,7 @@ object JSDialogBrowserFrm: TJSDialogBrowserFrm
OnDestroy = FormDestroy
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.2.0'
LCLVersion = '2.0.4.0'
object ChromiumWindow1: TChromiumWindow
Left = 0
Height = 603

3
demos/Lazarus/JavaScript/JSDialog/uJSDialogBrowser.pas
View File

@ -119,7 +119,8 @@ uses
procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
//GlobalCEFApp.LogFile := 'cef.log';
//GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
end;
procedure TJSDialogBrowserFrm.FormCreate(Sender: TObject);

2
demos/Lazarus/JavaScript/JSEval/JSEval.lps
View File

@ -23,7 +23,7 @@
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<TopLine Value="538"/>
<CursorPos X="74" Y="542"/>
<CursorPos Y="542"/>
<UsageCount Value="21"/>
<Bookmarks Count="1">
<Item0 X="85" Y="477" ID="1"/>

2
demos/Lazarus/JavaScript/JSEval/uJSEval.lfm
View File

@ -13,7 +13,7 @@ object JSEvalFrm: TJSEvalFrm
OnCloseQuery = FormCloseQuery
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.2.0'
LCLVersion = '2.0.4.0'
object CEFWindowParent1: TCEFWindowParent
Left = 0
Height = 550

1
demos/Lazarus/JavaScript/JSEval/uJSEval.pas
View File

@ -539,7 +539,6 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnProcessMessageReceived := RenderProcessHandler_OnProcessMessageReceivedEvent;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TJSEvalFrm.Chromium1ProcessMessageReceived(Sender : TObject;

2
demos/Lazarus/JavaScript/JSExecutingFunctions/uJSExecutingFunctions.lfm
View File

@ -15,7 +15,7 @@ object JSExecutingFunctionsFrm: TJSExecutingFunctionsFrm
OnDestroy = FormDestroy
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.2.0'
LCLVersion = '2.0.4.0'
object NavControlPnl: TPanel
Left = 0
Height = 21

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

@ -176,7 +176,6 @@ begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.OnProcessMessageReceived := GlobalCEFApp_OnProcessMessageReceived;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TJSExecutingFunctionsFrm.GoBtnClick(Sender: TObject);

2
demos/Lazarus/JavaScript/JSExtension/JSExtension.lps
View File

@ -23,7 +23,7 @@
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="303"/>
<CursorPos X="11" Y="326"/>
<CursorPos Y="322"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

1
demos/Lazarus/JavaScript/JSExtension/uJSExtension.pas
View File

@ -319,7 +319,6 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitialized;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
{$IFDEF DEBUG}
GlobalCEFApp.LogFile := 'debug.log';
GlobalCEFApp.LogSeverity := LOGSEVERITY_INFO;

2
demos/Lazarus/JavaScript/JSExtensionWithFunction/JSExtensionWithFunction.lps
View File

@ -23,7 +23,7 @@
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="149"/>
<CursorPos X="69" Y="153"/>
<CursorPos Y="153"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

2
demos/Lazarus/JavaScript/JSExtensionWithFunction/uJSExtensionWithFunction.lfm
View File

@ -14,7 +14,7 @@ object JSExtensionWithFunctionFrm: TJSExtensionWithFunctionFrm
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.2.0'
LCLVersion = '2.0.4.0'
object NavControlPnl: TPanel
Left = 0
Height = 21

1
demos/Lazarus/JavaScript/JSExtensionWithFunction/uJSExtensionWithFunction.pas
View File

@ -150,7 +150,6 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitializedEvent;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TJSExtensionWithFunctionFrm.GoBtnClick(Sender: TObject);

2
demos/Lazarus/JavaScript/JSExtensionWithObjectParameter/JSExtensionWithObjectParameter.lps
View File

@ -23,7 +23,7 @@
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="133"/>
<CursorPos X="69" Y="156"/>
<CursorPos Y="156"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

2
demos/Lazarus/JavaScript/JSExtensionWithObjectParameter/uJSExtensionWithObjectParameter.lfm
View File

@ -14,7 +14,7 @@ object JSExtensionWithObjectParameterFrm: TJSExtensionWithObjectParameterFrm
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.2.0'
LCLVersion = '2.0.4.0'
object NavControlPnl: TPanel
Left = 0
Height = 21

1
demos/Lazarus/JavaScript/JSExtensionWithObjectParameter/uJSExtensionWithObjectParameter.pas
View File

@ -153,7 +153,6 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitializedEvent;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TJSExtensionWithObjectParameterFrm.GoBtnClick(Sender: TObject);

2
demos/Lazarus/JavaScript/JSSimpleExtension/JSSimpleExtension.lps
View File

@ -23,7 +23,7 @@
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="122"/>
<CursorPos X="69" Y="143"/>
<CursorPos Y="143"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

2
demos/Lazarus/JavaScript/JSSimpleExtension/uJSSimpleExtension.lfm
View File

@ -14,7 +14,7 @@ object JSSimpleExtensionFrm: TJSSimpleExtensionFrm
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.2.0'
LCLVersion = '2.0.4.0'
object NavControlPnl: TPanel
Left = 0
Height = 21

1
demos/Lazarus/JavaScript/JSSimpleExtension/uJSSimpleExtension.pas
View File

@ -140,7 +140,6 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitializedEvent;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TJSSimpleExtensionFrm.GoBtnClick(Sender: TObject);

2
demos/Lazarus/JavaScript/JSSimpleWindowBinding/JSSimpleWindowBinding.lps
View File

@ -23,7 +23,7 @@
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="110"/>
<CursorPos X="66" Y="135"/>
<CursorPos Y="135"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

2
demos/Lazarus/JavaScript/JSSimpleWindowBinding/uJSSimpleWindowBinding.lfm
View File

@ -14,7 +14,7 @@ object JSSimpleWindowBindingFrm: TJSSimpleWindowBindingFrm
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.2.0'
LCLVersion = '2.0.4.0'
object NavControlPnl: TPanel
Left = 0
Height = 21

1
demos/Lazarus/JavaScript/JSSimpleWindowBinding/uJSSimpleWindowBinding.pas
View File

@ -132,7 +132,6 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TJSSimpleWindowBindingFrm.GoBtnClick(Sender: TObject);

1
demos/Lazarus/JavaScript/JSWindowBindingSubProcess/JSSimpleWindowBinding.lpr
View File

@ -65,7 +65,6 @@ begin
// 4. Run this demo : JSSimpleWindowBinding
GlobalCEFApp.BrowserSubprocessPath := 'SubProcess.exe';
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
if GlobalCEFApp.StartMainProcess then
begin

4
demos/Lazarus/JavaScript/JSWindowBindingSubProcess/JSSimpleWindowBinding.lps
View File

@ -9,8 +9,8 @@
<Filename Value="JSSimpleWindowBinding.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<TopLine Value="53"/>
<CursorPos X="71" Y="68"/>
<TopLine Value="52"/>
<CursorPos Y="68"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>

1
demos/Lazarus/JavaScript/JSWindowBindingSubProcess/SubProcess.lpr
View File

@ -70,7 +70,6 @@ end;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
// The main process and the subprocess *MUST* have the same FrameworkDirPath, ResourcesDirPath,
// LocalesDirPath, cache and UserDataPath paths

4
demos/Lazarus/JavaScript/JSWindowBindingSubProcess/SubProcess.lps
View File

@ -9,8 +9,8 @@
<Filename Value="SubProcess.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<TopLine Value="65"/>
<CursorPos X="27" Y="76"/>
<TopLine Value="64"/>
<CursorPos Y="73"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>

4
demos/Lazarus/JavaScript/JSWindowBindingWithArrayBuffer/JSWindowBindingWithArrayBuffer.lps
View File

@ -22,8 +22,8 @@
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="184"/>
<CursorPos X="45" Y="216"/>
<TopLine Value="142"/>
<CursorPos Y="160"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

1
demos/Lazarus/JavaScript/JSWindowBindingWithArrayBuffer/uJSWindowBindingWithArrayBuffer.pas
View File

@ -157,7 +157,6 @@ procedure CreateGlobalCEFApp;
begin
GlobalCEFApp := TCefApplication.Create;
GlobalCEFApp.OnContextCreated := GlobalCEFApp_OnContextCreated;
GlobalCEFApp.DisableFeatures := 'NetworkService,OutOfBlinkCors';
end;
procedure TJSWindowBindingWithArrayBufferFrm.GoBtnClick(Sender: TObject);

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

@ -23,7 +23,7 @@
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="119"/>
<CursorPos X="66" Y="140"/>
<CursorPos Y="140"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

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

@ -14,7 +14,7 @@ object JSWindowBindingWithFunctionFrm: TJSWindowBindingWithFunctionFrm
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.2.0'
LCLVersion = '2.0.4.0'
object NavControlPnl: TPanel
Left = 0
Height = 21

Some files were not shown because too many files have changed in this diff Show More