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

Added GlobalCEFApp.SitePerProcess property

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-01-05 12:26:56 +01:00
parent 079e2011a2
commit f9ea47984b
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/uCEFApplication.pas
View File

@ -123,6 +123,7 @@ type
FShowMessageDlg : boolean; FShowMessageDlg : boolean;
FSetCurrentDir : boolean; FSetCurrentDir : boolean;
FGlobalContextInitialized : boolean; FGlobalContextInitialized : boolean;
FSitePerProcess : boolean;
FChromeVersionInfo : TFileVersionInfo; FChromeVersionInfo : TFileVersionInfo;
FLibHandle : THandle; FLibHandle : THandle;
FOnRegisterCustomSchemes : TOnRegisterCustomSchemes; FOnRegisterCustomSchemes : TOnRegisterCustomSchemes;
@ -325,6 +326,7 @@ type
property LibLoaded : boolean read FLibLoaded; property LibLoaded : boolean read FLibLoaded;
property EnableHighDPISupport : boolean read FEnableHighDPISupport write FEnableHighDPISupport; property EnableHighDPISupport : boolean read FEnableHighDPISupport write FEnableHighDPISupport;
property MuteAudio : boolean read FMuteAudio write FMuteAudio; property MuteAudio : boolean read FMuteAudio write FMuteAudio;
property SitePerProcess : boolean read FSitePerProcess write FSitePerProcess;
property ReRaiseExceptions : boolean read FReRaiseExceptions write FReRaiseExceptions; property ReRaiseExceptions : boolean read FReRaiseExceptions write FReRaiseExceptions;
property DeviceScaleFactor : single read FDeviceScaleFactor; property DeviceScaleFactor : single read FDeviceScaleFactor;
property CheckDevToolsResources : boolean read FCheckDevToolsResources write FCheckDevToolsResources; property CheckDevToolsResources : boolean read FCheckDevToolsResources write FCheckDevToolsResources;
@ -440,6 +442,7 @@ begin
FOnRegisterCustomSchemes := nil; FOnRegisterCustomSchemes := nil;
FEnableHighDPISupport := False; FEnableHighDPISupport := False;
FMuteAudio := False; FMuteAudio := False;
FSitePerProcess := True;
FReRaiseExceptions := False; FReRaiseExceptions := False;
FLibLoaded := False; FLibLoaded := False;
FShowMessageDlg := True; FShowMessageDlg := True;
@ -1135,6 +1138,9 @@ begin
if FMuteAudio then if FMuteAudio then
commandLine.AppendSwitch('--mute-audio'); commandLine.AppendSwitch('--mute-audio');
if FSitePerProcess then
commandLine.AppendSwitch('--site-per-process');
if (FCustomCommandLines <> nil) and if (FCustomCommandLines <> nil) and
(FCustomCommandLineValues <> nil) and (FCustomCommandLineValues <> nil) and
(FCustomCommandLines.Count = FCustomCommandLineValues.Count) then (FCustomCommandLines.Count = FCustomCommandLineValues.Count) then