1
0
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:
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

View File

@ -22,15 +22,15 @@
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="235"/>
<CursorPos X="51" Y="233"/>
<TopLine Value="253"/>
<CursorPos X="45" Y="271"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit1>
</Units>
<JumpHistory Count="11" HistoryIndex="10">
<JumpHistory Count="13" HistoryIndex="12">
<Position1>
<Filename Value="JSDialogBrowser.lpr"/>
</Position1>
@ -74,6 +74,14 @@
<Filename Value="uJSDialogBrowser.pas"/>
<Caret Line="93" Column="59" TopLine="82"/>
</Position11>
<Position12>
<Filename Value="uJSDialogBrowser.pas"/>
<Caret Line="233" Column="51" TopLine="234"/>
</Position12>
<Position13>
<Filename Value="uJSDialogBrowser.pas"/>
<Caret Line="232" Column="51" TopLine="232"/>
</Position13>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>

View File

@ -15,7 +15,7 @@ object JSDialogBrowserFrm: TJSDialogBrowserFrm
OnDestroy = FormDestroy
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.4.0'
LCLVersion = '2.0.6.0'
object ChromiumWindow1: TChromiumWindow
Left = 0
Height = 603
@ -65,9 +65,4 @@ object JSDialogBrowserFrm: TJSDialogBrowserFrm
left = 56
top = 88
end
object CEFSentinel1: TCEFSentinel
OnClose = CEFSentinel1Close
left = 128
top = 88
end
end

View File

@ -60,7 +60,6 @@ type
{ TJSDialogBrowserFrm }
TJSDialogBrowserFrm = class(TForm)
CEFSentinel1: TCEFSentinel;
ChromiumWindow1: TChromiumWindow;
AddressPnl: TPanel;
AddressEdt: TEdit;
@ -259,13 +258,18 @@ end;
procedure TJSDialogBrowserFrm.ChromiumWindow1BeforeClose(Sender: TObject);
begin
CEFSentinel1.Start;
FCanClose := True;
PostMessage(Handle, WM_CLOSE, 0, 0);
end;
procedure TJSDialogBrowserFrm.ChromiumWindow1Close(Sender: TObject);
begin
// DestroyChildWindow will destroy the child window created by CEF at the top of the Z order.
if not(ChromiumWindow1.DestroyChildWindow) then CEFSentinel1.Start;
if not(ChromiumWindow1.DestroyChildWindow) then
begin
FCanClose := True;
PostMessage(Handle, WM_CLOSE, 0, 0);
end;
end;
procedure TJSDialogBrowserFrm.Chromium_OnBeforePopup(Sender: TObject;