You've already forked CEF4Delphi
mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2025-06-12 22:07:39 +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:
@ -22,8 +22,8 @@
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<TopLine Value="94"/>
|
||||
<CursorPos X="37" Y="125"/>
|
||||
<TopLine Value="116"/>
|
||||
<CursorPos X="31" Y="127"/>
|
||||
<UsageCount Value="20"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
@ -37,7 +37,7 @@
|
||||
<DefaultSyntaxHighlighter Value="Delphi"/>
|
||||
</Unit2>
|
||||
</Units>
|
||||
<JumpHistory Count="6" HistoryIndex="5">
|
||||
<JumpHistory Count="11" HistoryIndex="10">
|
||||
<Position1>
|
||||
<Filename Value="uJSExtensionWithObjectParameter.pas"/>
|
||||
</Position1>
|
||||
@ -61,6 +61,26 @@
|
||||
<Filename Value="uJSExtensionWithObjectParameter.pas"/>
|
||||
<Caret Line="161" TopLine="138"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="uJSExtensionWithObjectParameter.pas"/>
|
||||
<Caret Line="125" Column="37" TopLine="94"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="uJSExtensionWithObjectParameter.pas"/>
|
||||
<Caret Line="124" Column="37" TopLine="95"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="uJSExtensionWithObjectParameter.pas"/>
|
||||
<Caret Line="111" Column="104" TopLine="95"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="uJSExtensionWithObjectParameter.pas"/>
|
||||
<Caret Line="128" Column="69" TopLine="104"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="uJSExtensionWithObjectParameter.pas"/>
|
||||
<Caret Line="227" TopLine="204"/>
|
||||
</Position11>
|
||||
</JumpHistory>
|
||||
<RunParams>
|
||||
<FormatVersion Value="2"/>
|
||||
|
@ -14,7 +14,7 @@ object JSExtensionWithObjectParameterFrm: TJSExtensionWithObjectParameterFrm
|
||||
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 JSExtensionWithObjectParameterFrm: TJSExtensionWithObjectParameterFrm
|
||||
left = 32
|
||||
top = 288
|
||||
end
|
||||
object CEFSentinel1: TCEFSentinel
|
||||
OnClose = CEFSentinel1Close
|
||||
left = 32
|
||||
top = 360
|
||||
end
|
||||
end
|
||||
|
@ -59,7 +59,6 @@ type
|
||||
{ TJSExtensionWithObjectParameterFrm }
|
||||
|
||||
TJSExtensionWithObjectParameterFrm = class(TForm)
|
||||
CEFSentinel1: TCEFSentinel;
|
||||
NavControlPnl: TPanel;
|
||||
Edit1: TEdit;
|
||||
GoBtn: TButton;
|
||||
@ -125,8 +124,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_OnWebKitInitializedEvent;
|
||||
var
|
||||
@ -174,7 +172,8 @@ end;
|
||||
procedure TJSExtensionWithObjectParameterFrm.Chromium1BeforeClose(
|
||||
Sender: TObject; const browser: ICefBrowser);
|
||||
begin
|
||||
CEFSentinel1.Start;
|
||||
FCanClose := True;
|
||||
PostMessage(Handle, WM_CLOSE, 0, 0);
|
||||
end;
|
||||
|
||||
procedure TJSExtensionWithObjectParameterFrm.Chromium1BeforePopup(
|
||||
@ -225,8 +224,7 @@ end;
|
||||
|
||||
procedure TJSExtensionWithObjectParameterFrm.CEFSentinel1Close(Sender: TObject);
|
||||
begin
|
||||
FCanClose := True;
|
||||
PostMessage(Handle, WM_CLOSE, 0, 0);
|
||||
|
||||
end;
|
||||
|
||||
procedure TJSExtensionWithObjectParameterFrm.WMMove(var aMessage : TWMMove);
|
||||
|
Reference in New Issue
Block a user