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

Update to CEF 3.3538.1848.g1d1fe01

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-10-26 10:32:10 +02:00
parent 87e0dcbd84
commit 627a77e8d2
7 changed files with 115 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
source/uFMXChromium.pas
View File

@ -319,6 +319,7 @@ type
function GetParentForm : TCustomForm;
{$IFDEF MSWINDOWS}
procedure InitializeWindowInfo(aParentHandle : HWND; aParentRect : TRect; const aWindowName : ustring); virtual;
procedure FreeAndNilStub(var aStub : pointer);
procedure CreateStub(const aMethod : TWndMethod; var aStub : Pointer);
procedure BrowserCompWndProc(var aMessage: TMessage);
@ -1085,11 +1086,7 @@ begin
CreateClientHandler(aParentHandle = 0) then
begin
GetSettings(FBrowserSettings);
if FIsOSR then
WindowInfoAsWindowless(FWindowInfo, 0, aWindowName)
else
WindowInfoAsChild(FWindowInfo, aParentHandle, aParentRect, aWindowName);
InitializeWindowInfo(aParentHandle, aParentRect, aWindowName);
if (aContext <> nil) and (length(aCookiesPath) > 0) then
@ -1112,6 +1109,16 @@ begin
if CustomExceptionHandler('TFMXChromium.CreateBrowser', e) then raise;
end;
end;
procedure TFMXChromium.InitializeWindowInfo( aParentHandle : HWND;
aParentRect : TRect;
const aWindowName : ustring);
begin
if FIsOSR then
WindowInfoAsWindowless(FWindowInfo, 0, aWindowName)
else
WindowInfoAsChild(FWindowInfo, aParentHandle, aParentRect, aWindowName);
end;
{$ENDIF}
function TFMXChromium.ShareRequestContext(var aContext : ICefRequestContext;