1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2024-12-04 09:26:52 +02:00

Update to CEF 3.3578.1867.g0f6d65a

- Removed obsolete properties in TCefApplication
- TabbedBrowser demo now closes when there are no tabs
This commit is contained in:
Salvador Díaz Fau 2019-01-29 10:16:58 +01:00
parent 2a82206be3
commit f2e452c02e
5 changed files with 29 additions and 33 deletions

View File

@ -70,6 +70,20 @@ object FMXExternalPumpBrowserFrm: TFMXExternalPumpBrowserFrm
end end
end end
end end
object Timer1: TTimer
Enabled = False
Interval = 300
OnTimer = Timer1Timer
Left = 40
Top = 137
end
object SaveDialog1: TSaveDialog
DefaultExt = 'bmp'
Filter = 'Bitmap files (*.bmp)|*.BMP'
Title = 'Save snapshot'
Left = 40
Top = 201
end
object Panel1: TFMXBufferPanel object Panel1: TFMXBufferPanel
Align = Client Align = Client
TabOrder = 0 TabOrder = 0
@ -90,20 +104,6 @@ object FMXExternalPumpBrowserFrm: TFMXExternalPumpBrowserFrm
OnKeyUp = Panel1KeyUp OnKeyUp = Panel1KeyUp
OnKeyDown = Panel1KeyDown OnKeyDown = Panel1KeyDown
end end
object Timer1: TTimer
Enabled = False
Interval = 300
OnTimer = Timer1Timer
Left = 40
Top = 137
end
object SaveDialog1: TSaveDialog
DefaultExt = 'bmp'
Filter = 'Bitmap files (*.bmp)|*.BMP'
Title = 'Save snapshot'
Left = 40
Top = 201
end
object chrmosr: TFMXChromium object chrmosr: TFMXChromium
OnTooltip = chrmosrTooltip OnTooltip = chrmosrTooltip
OnBeforePopup = chrmosrBeforePopup OnBeforePopup = chrmosrBeforePopup

View File

@ -58,13 +58,13 @@ type
TFMXExternalPumpBrowserFrm = class(TForm) TFMXExternalPumpBrowserFrm = class(TForm)
AddressPnl: TPanel; AddressPnl: TPanel;
AddressEdt: TEdit; AddressEdt: TEdit;
Panel1: TFMXBufferPanel;
chrmosr: TFMXChromium; chrmosr: TFMXChromium;
Timer1: TTimer; Timer1: TTimer;
Panel2: TPanel; Panel2: TPanel;
GoBtn: TButton; GoBtn: TButton;
SnapshotBtn: TButton; SnapshotBtn: TButton;
SaveDialog1: TSaveDialog; SaveDialog1: TSaveDialog;
Panel1: TFMXBufferPanel;
procedure GoBtnClick(Sender: TObject); procedure GoBtnClick(Sender: TObject);
procedure GoBtnEnter(Sender: TObject); procedure GoBtnEnter(Sender: TObject);

View File

@ -141,6 +141,7 @@ object MiniBrowserFrm: TMiniBrowserFrm
'http://www.adobe.com/software/flash/about/' 'http://www.adobe.com/software/flash/about/'
'http://isflashinstalled.com/' 'http://isflashinstalled.com/'
'http://html5test.com/' 'http://html5test.com/'
'https://test.webrtc.org/'
'https://www.w3schools.com/' 'https://www.w3schools.com/'
'http://webglsamples.org/' 'http://webglsamples.org/'
'https://get.webgl.org/' 'https://get.webgl.org/'

View File

@ -205,17 +205,20 @@ begin
if FClosingTab then if FClosingTab then
CanClose := False CanClose := False
else else
begin if (PageControl1.PageCount = 0) then
CanClose := FCanClose; CanClose := True
else
begin
CanClose := FCanClose;
if not(FClosing) then if not(FClosing) then
begin begin
FClosing := True; FClosing := True;
Visible := False; Visible := False;
CloseAllBrowsers; CloseAllBrowsers;
end; end;
end; end;
end; end;
procedure TMainForm.CloseAllBrowsers; procedure TMainForm.CloseAllBrowsers;

View File

@ -59,7 +59,7 @@ uses
const const
CEF_SUPPORTED_VERSION_MAJOR = 3; CEF_SUPPORTED_VERSION_MAJOR = 3;
CEF_SUPPORTED_VERSION_MINOR = 3578; CEF_SUPPORTED_VERSION_MINOR = 3578;
CEF_SUPPORTED_VERSION_RELEASE = 1863; CEF_SUPPORTED_VERSION_RELEASE = 1867;
CEF_SUPPORTED_VERSION_BUILD = 0; CEF_SUPPORTED_VERSION_BUILD = 0;
CEF_CHROMEELF_VERSION_MAJOR = 71; CEF_CHROMEELF_VERSION_MAJOR = 71;
@ -114,8 +114,6 @@ type
FCustomCommandLines : TStringList; FCustomCommandLines : TStringList;
FCustomCommandLineValues : TStringList; FCustomCommandLineValues : TStringList;
FFlashEnabled : boolean; FFlashEnabled : boolean;
FEnableMediaStream : boolean;
FEnableSpeechInput : boolean;
FEnableGPU : boolean; FEnableGPU : boolean;
FCheckCEFFiles : boolean; FCheckCEFFiles : boolean;
FLibLoaded : boolean; FLibLoaded : boolean;
@ -354,8 +352,6 @@ type
property DeleteCache : boolean read FDeleteCache write FDeleteCache; property DeleteCache : boolean read FDeleteCache write FDeleteCache;
property DeleteCookies : boolean read FDeleteCookies write FDeleteCookies; property DeleteCookies : boolean read FDeleteCookies write FDeleteCookies;
property FlashEnabled : boolean read FFlashEnabled write FFlashEnabled; property FlashEnabled : boolean read FFlashEnabled write FFlashEnabled;
property EnableMediaStream : boolean read FEnableMediaStream write FEnableMediaStream;
property EnableSpeechInput : boolean read FEnableSpeechInput write FEnableSpeechInput;
property EnableGPU : boolean read FEnableGPU write FEnableGPU; property EnableGPU : boolean read FEnableGPU write FEnableGPU;
property CheckCEFFiles : boolean read FCheckCEFFiles write FCheckCEFFiles; property CheckCEFFiles : boolean read FCheckCEFFiles write FCheckCEFFiles;
property ShowMessageDlg : boolean read FShowMessageDlg write FShowMessageDlg; property ShowMessageDlg : boolean read FShowMessageDlg write FShowMessageDlg;
@ -528,8 +524,6 @@ begin
FDeleteCache := False; FDeleteCache := False;
FDeleteCookies := False; FDeleteCookies := False;
FFlashEnabled := True; FFlashEnabled := True;
FEnableMediaStream := True;
FEnableSpeechInput := True;
FEnableGPU := False; FEnableGPU := False;
FCustomCommandLines := nil; FCustomCommandLines := nil;
FCustomCommandLineValues := nil; FCustomCommandLineValues := nil;
@ -1480,8 +1474,6 @@ begin
commandLine.AppendSwitch('--enable-system-flash'); commandLine.AppendSwitch('--enable-system-flash');
end; end;
commandLine.AppendSwitchWithValue('--enable-media-stream', IntToStr(Ord(FEnableMediaStream)));
commandLine.AppendSwitchWithValue('--enable-speech-input', IntToStr(Ord(FEnableSpeechInput)));
if not(FEnableGPU) then if not(FEnableGPU) then
begin begin