You've already forked CEF4Delphi
mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2025-12-03 21:44:45 +02:00
Update to CEF 3.3497.1840.gcd24143
- Added process information in the log file when you compile in DEBUG mode. - Now TCefApplication checks if the subprocess executable is present.
This commit is contained in:
@@ -49,7 +49,8 @@ uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics,
|
||||
Controls, Forms, Dialogs, StdCtrls, ExtCtrls,
|
||||
{$ENDIF}
|
||||
uCEFChromium, uCEFWindowParent, uCEFChromiumWindow, uCEFTypes, uCEFInterfaces;
|
||||
uCEFChromium, uCEFWindowParent, uCEFChromiumWindow, uCEFTypes, uCEFInterfaces,
|
||||
uCEFWinControl;
|
||||
|
||||
type
|
||||
TForm1 = class(TForm)
|
||||
@@ -113,14 +114,19 @@ uses
|
||||
|
||||
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||
begin
|
||||
CanClose := FCanClose;
|
||||
|
||||
if not(FClosing) then
|
||||
if GlobalCEFApp.LibLoaded then
|
||||
begin
|
||||
FClosing := True;
|
||||
Visible := False;
|
||||
ChromiumWindow1.CloseBrowser(True);
|
||||
end;
|
||||
CanClose := FCanClose;
|
||||
|
||||
if not(FClosing) then
|
||||
begin
|
||||
FClosing := True;
|
||||
Visible := False;
|
||||
ChromiumWindow1.CloseBrowser(True);
|
||||
end;
|
||||
end
|
||||
else
|
||||
CanClose := True;
|
||||
end;
|
||||
|
||||
procedure TForm1.FormShow(Sender: TObject);
|
||||
|
||||
Reference in New Issue
Block a user