1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-12-03 21:44:45 +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

@@ -64,7 +64,6 @@ type
TMainForm = class(TForm)
ButtonPnl: TPanel;
CEFSentinel1: TCEFSentinel;
Edit1: TEdit;
Button1: TButton;
procedure CEFSentinel1Close(Sender: TObject);
@@ -107,8 +106,7 @@ uses
// Destruction steps
// =================
// 1. Destroy all child forms
// 2. Wait until all the child forms are closed before calling TCEFSentinel.Start, which will trigger TCEFSentinel.OnClose when all renderer processes are closed
// 3. TCEFSentinel.OnClose closes the main form.
// 2. Wait until all the child forms are closed before closing the main form.
procedure GlobalCEFApp_OnContextInitialized;
begin
@@ -140,8 +138,7 @@ end;
procedure TMainForm.CEFSentinel1Close(Sender: TObject);
begin
FCanClose := True;
PostMessage(Handle, WM_CLOSE, 0, 0);
end;
procedure TMainForm.CloseAllChildForms;
@@ -220,7 +217,11 @@ end;
procedure TMainForm.ChildDestroyedMsg(var aMessage : TMessage);
begin
// If there are no more child forms we start the sentinel
if FClosing and (ChildFormCount = 0) then CEFSentinel1.Start;
if FClosing and (ChildFormCount = 0) then
begin
FCanClose := True;
PostMessage(Handle, WM_CLOSE, 0, 0);
end;
end;
function TMainForm.CloseQuery: Boolean;