pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-22 22:17:48 +02:00
Code Issues Actions Releases Activity

Update to CEF 3.2987.1596.gc2b4638

Browse Source 
* New properties in TCEFApplication :  SmoothScrolling, FastUnload,
DisableSafeBrowsing.
* Bug fix in CefResponseFilter. Thanks to Zdravko Gabrovski!
* MiniBrowser now has a context menu option to visit the DOM.
This commit is contained in:
Salvador Diaz Fau
2017-03-22 15:22:11 +01:00
parent 68769fdda2
commit b5b9547d28
23 changed files with 456 additions and 301 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
source/uCEFApplication.pas
View File

@ -57,7 +57,7 @@ uses
const
CEF_SUPPORTED_VERSION_MAJOR = 3;
CEF_SUPPORTED_VERSION_MINOR = 2987;
CEF_SUPPORTED_VERSION_RELEASE = 1594;
CEF_SUPPORTED_VERSION_RELEASE = 1596;
CEF_SUPPORTED_VERSION_BUILD = 0;
CEF_CHROMEELF_VERSION_MAJOR = 57;
@ -68,13 +68,6 @@ const
type
TInternalApp = class;
TFileVersionInfo = record
MajorVer : uint16;
MinorVer : uint16;
Release : uint16;
Build : uint16;
end;
TCefApplication = class
protected
FMustShutDown : boolean;
@ -120,6 +113,9 @@ type
FEnableSpeechInput : boolean;
FCheckCEFFiles : boolean;
FLibLoaded : boolean;
FSmoothScrolling : boolean;
FFastUnload : boolean;
FDisableSafeBrowsing : boolean;
FChromeVersionInfo : TFileVersionInfo;
FLibHandle : THandle;
FOnRegisterCustomSchemes : TOnRegisterCustomSchemes;
@ -250,6 +246,9 @@ type
property ResourceBundleHandler : ICefResourceBundleHandler read FResourceBundleHandler write FResourceBundleHandler;
property BrowserProcessHandler : ICefBrowserProcessHandler read FBrowserProcessHandler write FBrowserProcessHandler;
property RenderProcessHandler : ICefRenderProcessHandler read FRenderProcessHandler write FRenderProcessHandler;
property SmoothScrolling : boolean read FSmoothScrolling write FSmoothScrolling;
property FastUnload : boolean read FFastUnload write FFastUnload;
property DisableSafeBrowsing : boolean read FDisableSafeBrowsing write FDisableSafeBrowsing;
property LibLoaded : boolean read FLibLoaded;
property LibCef : string read FLibCef write FLibCef;
end;
@ -350,6 +349,9 @@ begin
FCustomCommandLines := nil;
FCustomCommandLineValues := nil;
FCheckCEFFiles := True;
FSmoothScrolling := False;
FFastUnload := False;
FDisableSafeBrowsing := False;
FOnRegisterCustomSchemes := nil;
FResourceBundleHandler := nil;
FBrowserProcessHandler := nil;
@ -854,6 +856,19 @@ begin
commandLine.AppendSwitchWithValue('--enable-media-stream', IntToStr(Ord(FEnableMediaStream)));
commandLine.AppendSwitchWithValue('--enable-speech-input', IntToStr(Ord(FEnableSpeechInput)));
if FSmoothScrolling then
commandLine.AppendSwitch('--enable-smooth-scrolling');
if FFastUnload then
commandLine.AppendSwitch('--enable-fast-unload');
if FDisableSafeBrowsing then
begin
commandLine.AppendSwitch('--disable-client-side-phishing-detection');
commandLine.AppendSwitch('--safebrowsing-disable-auto-update');
commandLine.AppendSwitch('--safebrowsing-disable-download-protection');
end;
if (FCustomCommandLines <> nil) and
(FCustomCommandLineValues <> nil) and
(FCustomCommandLines.Count = FCustomCommandLineValues.Count) then