pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions 1 Releases Activity

Update to CEF 3.3112.1659.gfef43e0

Browse Source 
- Update to CEF 3.3112.1659.gfef43e0
- Bug Fix #49
- Added longer error messages if the CEF binaries are not available.
- Added the AfterCreated event in TChromiumWindow.
- Added a 'Take a snapshot' button in the OSR demo.
This commit is contained in:
Salvador Díaz Fau
2017-09-07 10:58:09 +02:00
parent 60cc22a063
commit 379272e643
65 changed files with 1546 additions and 1300 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
source/uCEFChromiumWindow.pas
View File

@@ -57,14 +57,17 @@ uses
type
TChromiumWindow = class(TCEFWindowParent)
protected
FChromium : TChromium;
FOnClose : TNotifyEvent;
FChromium : TChromium;
FOnClose : TNotifyEvent;
FOnAfterCreated : TNotifyEvent;
function GetChildWindowHandle : THandle; override;
procedure OnCloseMsg(var aMessage : TMessage); message CEF_DOONCLOSE;
procedure OnAfterCreatedMsg(var aMessage : TMessage); message CEF_AFTERCREATED;
procedure WebBrowser_OnClose(Sender: TObject; const browser: ICefBrowser; out Result: Boolean);
procedure WebBrowser_OnAfterCreated(Sender: TObject; const browser: ICefBrowser);
public
constructor Create(AOwner: TComponent); override;
@@ -76,7 +79,8 @@ type
property ChromiumBrowser : TChromium read FChromium;
published
property OnClose : TNotifyEvent read FOnClose write FOnClose;
property OnClose : TNotifyEvent read FOnClose write FOnClose;
property OnAfterCreated : TNotifyEvent read FOnAfterCreated write FOnAfterCreated;
end;
implementation
@@ -92,8 +96,9 @@ constructor TChromiumWindow.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FChromium := nil;
FOnClose := nil;
FChromium := nil;
FOnClose := nil;
FOnAfterCreated := nil;
end;
procedure TChromiumWindow.AfterConstruction;
@@ -102,8 +107,9 @@ begin
if not(csDesigning in ComponentState) then
begin
FChromium := TChromium.Create(self);
FChromium.OnClose := WebBrowser_OnClose;
FChromium := TChromium.Create(self);
FChromium.OnClose := WebBrowser_OnClose;
FChromium.OnAfterCreated := WebBrowser_OnAfterCreated;
end;
end;
@@ -119,18 +125,28 @@ procedure TChromiumWindow.WebBrowser_OnClose(Sender: TObject; const browser: ICe
begin
if assigned(FOnClose) then
begin
PostMessage(self.Handle, CEF_DOONCLOSE, 0, 0);
PostMessage(Handle, CEF_DOONCLOSE, 0, 0);
Result := True;
end
else
Result := False;
end;
procedure TChromiumWindow.WebBrowser_OnAfterCreated(Sender: TObject; const browser: ICefBrowser);
begin
PostMessage(Handle, CEF_AFTERCREATED, 0, 0);
end;
procedure TChromiumWindow.OnCloseMsg(var aMessage : TMessage);
begin
if assigned(FOnClose) then FOnClose(self);
end;
procedure TChromiumWindow.OnAfterCreatedMsg(var aMessage : TMessage);
begin
if assigned(FOnAfterCreated) then FOnAfterCreated(self);
end;
procedure TChromiumWindow.CreateBrowser;
begin
if not(csDesigning in ComponentState) and (FChromium <> nil) then