pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-10-30 23:07:52 +02:00
Code Issues Actions 1 Releases Activity

Added v8_context_snapshot.bin to the cef binaries checking functions

Browse Source 
- Added v8_context_snapshot.bin to the cef binaries checking functions.
- Added a the Initialized property to TChromiumWindow and nowCreateBrowser is a function, not procedure.
This commit is contained in:
Salvador Díaz Fau
2017-10-28 18:48:53 +02:00
parent bb83979092
commit 74b1d6c52a
2 changed files with 20 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
source/uCEFChromiumWindow.pas
View File

@@ -62,6 +62,7 @@ type
FOnAfterCreated : TNotifyEvent;
function GetChildWindowHandle : THandle; override;
function GetBrowserInitialized : boolean;
procedure OnCloseMsg(var aMessage : TMessage); message CEF_DOONCLOSE;
procedure OnAfterCreatedMsg(var aMessage : TMessage); message CEF_AFTERCREATED;
@@ -72,11 +73,12 @@ type
public
constructor Create(AOwner: TComponent); override;
procedure AfterConstruction; override;
procedure CreateBrowser;
function CreateBrowser : boolean;
procedure CloseBrowser(aForceClose : boolean);
procedure LoadURL(const aURL : string);
property ChromiumBrowser : TChromium read FChromium;
property Initialized : boolean read GetBrowserInitialized;
published
property OnClose : TNotifyEvent read FOnClose write FOnClose;
@@ -121,6 +123,11 @@ begin
Result := 0;
end;
function TChromiumWindow.GetBrowserInitialized : boolean;
begin
Result := (FChromium <> nil) and FChromium.Initialized;
end;
procedure TChromiumWindow.WebBrowser_OnClose(Sender: TObject; const browser: ICefBrowser; out Result: Boolean);
begin
if assigned(FOnClose) then
@@ -148,10 +155,11 @@ begin
if assigned(FOnAfterCreated) then FOnAfterCreated(self);
end;
procedure TChromiumWindow.CreateBrowser;
function TChromiumWindow.CreateBrowser : boolean;
begin
if not(csDesigning in ComponentState) and (FChromium <> nil) then
FChromium.CreateBrowser(self, '');
Result := not(csDesigning in ComponentState) and
(FChromium <> nil) and
FChromium.CreateBrowser(self, '');
end;
procedure TChromiumWindow.CloseBrowser(aForceClose : boolean);

15
source/uCEFMiscFunctions.pas
View File

@@ -741,13 +741,14 @@ begin
Result := False;
try
Result := GetAbsoluteDirPath(aResourcesDirPath, TempDir) and
FileExists(TempDir + 'natives_blob.bin') and
FileExists(TempDir + 'snapshot_blob.bin') and
FileExists(TempDir + 'cef.pak') and
FileExists(TempDir + 'cef_100_percent.pak') and
FileExists(TempDir + 'cef_200_percent.pak') and
FileExists(TempDir + 'cef_extensions.pak') and
Result := GetAbsoluteDirPath(aResourcesDirPath, TempDir) and
FileExists(TempDir + 'natives_blob.bin') and
FileExists(TempDir + 'snapshot_blob.bin') and
FileExists(TempDir + 'v8_context_snapshot.bin') and
FileExists(TempDir + 'cef.pak') and
FileExists(TempDir + 'cef_100_percent.pak') and
FileExists(TempDir + 'cef_200_percent.pak') and
FileExists(TempDir + 'cef_extensions.pak') and
(not aCheckDevResources or FileExists(TempDir + 'devtools_resources.pak'));
except
on e : exception do