1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-22 22:17:48 +02:00

Update to CEF 80.0.4

- Added GlobalCEFApp.DisableNewBrowserInfoTimeout property
- Removed remaining TCEFSentinel from all the demos.
- Fixed mouse coordinates in FMX demos with OSR browsers before sending a mouse wheel event.
This commit is contained in:
Salvador Díaz Fau
2020-02-26 13:28:29 +01:00
parent a20752eb53
commit feaeb772cb
149 changed files with 7651 additions and 929 deletions
README.md
demos
Delphi_FMX
FMXExternalPumpBrowser
FMXTabbedOSRBrowser
Delphi_VCL
ConsoleBrowser
FullScreenBrowser
JavaScript
KioskOSRBrowser
MDIExternalPumpBrowser
OSRExternalPumpBrowser
PopupBrowser
PopupBrowser2
SimpleExternalPumpBrowser
SimpleOSRBrowser
SimpleServer
ToolBoxBrowser
Lazarus
DOMVisitor
EditorBrowser
ExternalPumpBrowser
FullScreenBrowser
JavaScript
OSRExternalPumpBrowser
PopupBrowser
PopupBrowser2
PostInspectorBrowser
SchemeRegistrationBrowser
SimpleBrowser
SimpleBrowser2
SimpleExternalPumpBrowser
SimpleOSRBrowser
SimpleServer
SubProcess
TabbedBrowser
TabbedBrowser2
ToolBoxBrowser
URLRequest
packages
source
update_CEF4Delphi.json

@ -20,9 +20,10 @@
<ComponentName Value="JSWindowBindingWithObjectFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="120"/>
<CursorPos X="82" Y="126"/>
<TopLine Value="158"/>
<CursorPos Y="181"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -31,7 +32,6 @@
<Unit2>
<Filename Value="uMyV8Accessor.pas"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<TopLine Value="34"/>
<CursorPos X="5" Y="90"/>
@ -40,7 +40,7 @@
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit2>
</Units>
<JumpHistory Count="7" HistoryIndex="6">
<JumpHistory Count="10" HistoryIndex="9">
<Position1>
<Filename Value="uJSWindowBindingWithObject.pas"/>
</Position1>
@ -68,6 +68,18 @@
<Filename Value="uJSWindowBindingWithObject.pas"/>
<Caret Line="146" TopLine="131"/>
</Position7>
<Position8>
<Filename Value="uJSWindowBindingWithObject.pas"/>
<Caret Line="126" Column="82" TopLine="120"/>
</Position8>
<Position9>
<Filename Value="uJSWindowBindingWithObject.pas"/>
<Caret Line="125" Column="82" TopLine="119"/>
</Position9>
<Position10>
<Filename Value="uJSWindowBindingWithObject.pas"/>
<Caret Line="124" Column="72" TopLine="104"/>
</Position10>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>

@ -1,7 +1,7 @@
object JSWindowBindingWithObjectFrm: TJSWindowBindingWithObjectFrm
Left = 106
Left = 434
Height = 589
Top = 133
Top = 137
Width = 978
Caption = 'Initializing browser. Please wait...'
ClientHeight = 589
@ -14,7 +14,7 @@ object JSWindowBindingWithObjectFrm: TJSWindowBindingWithObjectFrm
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.4.0'
LCLVersion = '2.0.6.0'
object NavControlPnl: TPanel
Left = 0
Height = 21
@ -69,9 +69,4 @@ object JSWindowBindingWithObjectFrm: TJSWindowBindingWithObjectFrm
left = 32
top = 288
end
object CEFSentinel1: TCEFSentinel
OnClose = CEFSentinel1Close
left = 32
top = 360
end
end

@ -59,7 +59,6 @@ type
{ TJSWindowBindingWithObjectFrm }
TJSWindowBindingWithObjectFrm = class(TForm)
CEFSentinel1: TCEFSentinel;
NavControlPnl: TPanel;
Edit1: TEdit;
GoBtn: TButton;
@ -122,8 +121,7 @@ uses
// =================
// 1. FormCloseQuery sets CanClose to FALSE calls TChromium.CloseBrowser which triggers the TChromium.OnClose event.
// 2. TChromium.OnClose sends a CEFBROWSER_DESTROY message to destroy CEFWindowParent1 in the main thread, which triggers the TChromium.OnBeforeClose event.
// 3. TChromium.OnBeforeClose calls TCEFSentinel.Start, which will trigger TCEFSentinel.OnClose when the renderer processes are closed.
// 4. TCEFSentinel.OnClose sets FCanClose := True and sends WM_CLOSE to the form.
// 3. TChromium.OnBeforeClose sets FCanClose := True and sends WM_CLOSE to the form.
procedure GlobalCEFApp_OnContextCreated(const browser: ICefBrowser; const frame: ICefFrame; const context: ICefv8Context);
var
@ -180,8 +178,7 @@ end;
procedure TJSWindowBindingWithObjectFrm.CEFSentinel1Close(Sender: TObject);
begin
FCanClose := True;
PostMessage(Handle, WM_CLOSE, 0, 0);
end;
procedure TJSWindowBindingWithObjectFrm.WMMove(var aMessage : TWMMove);
@ -230,7 +227,8 @@ end;
procedure TJSWindowBindingWithObjectFrm.Chromium1BeforeClose(
Sender: TObject; const browser: ICefBrowser);
begin
CEFSentinel1.Start;
FCanClose := True;
PostMessage(Handle, WM_CLOSE, 0, 0);
end;
procedure TJSWindowBindingWithObjectFrm.Chromium1Close(