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

Fixed issue #256

Browse Source 
Removed non working Linux demos for now.
This commit is contained in:
Salvador Diaz Fau
2020-12-30 19:40:07 +01:00
parent e7eae21105
commit 05680d5abc
24 changed files with 970 additions and 1895 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
source/uCEFChromium.pas
View File

@@ -123,10 +123,11 @@ implementation
uses
{$IFDEF DELPHI16_UP}
System.SysUtils, System.Math;
System.SysUtils, System.Math,
{$ELSE}
SysUtils, Math;
SysUtils, Math,
{$ENDIF}
uCEFMiscFunctions;
{ TChromium }
@@ -295,7 +296,7 @@ function TChromium.CreateBrowser(const aBrowserParent : TWinControl;
const aContext : ICefRequestContext;
const aExtraInfo : ICefDictionaryValue) : boolean;
var
TempHandle : HWND;
TempHandle : TCefWindowHandle;
TempRect : TRect;
begin
if (aBrowserParent <> nil) then
@@ -305,8 +306,8 @@ begin
end
else
begin
TempHandle := 0;
TempRect := rect(0, 0, 0, 0);
InitializeWindowHandle(TempHandle);
TempRect := rect(0, 0, 0, 0);
end;
Result := inherited CreateBrowser(TempHandle, TempRect, aWindowName, aContext, aExtraInfo);