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

Update to CEF 3.3325.1746.ge81cdf2

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-03-08 11:47:04 +01:00
parent 381f43394b
commit 368479b0eb
33 changed files with 30 additions and 3364 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/uCEFMiscFunctions.pas
View File

@@ -53,7 +53,7 @@ uses
{$ELSE}
Windows, Classes, SysUtils, Controls, ActiveX, Math,
{$ENDIF}
uCEFTypes, uCEFInterfaces, uCEFLibFunctions, uCEFResourceHandler, uCEFGetGeolocationCallback,
uCEFTypes, uCEFInterfaces, uCEFLibFunctions, uCEFResourceHandler,
uCEFRegisterCDMCallback;
const
@@ -192,8 +192,6 @@ procedure LogicalToDevice(var aRect : TCEFRect; const aDeviceScaleFactor : doubl
function GetScreenDPI : integer;
function GetDeviceScaleFactor : single;
function CefGetGeolocation(const aCallbackFunction : TOnLocationUpdate) : boolean;
procedure CefRegisterWidevineCdm(const path: ustring; const callback: ICefRegisterCdmCallback);
procedure CefFastRegisterWidevineCdm(const path: ustring; const callback: TCefRegisterCDMProc);
@@ -1238,14 +1236,6 @@ begin
cef_load_crlsets_file(@TempPath);
end;
function CefGetGeolocation(const aCallbackFunction : TOnLocationUpdate) : boolean;
var
TempGeoCallBack : ICefGetGeolocationCallback;
begin
TempGeoCallBack := TCefFastGetGeolocationCallback.Create(aCallbackFunction);
Result := (cef_get_geolocation(TempGeoCallBack.Wrap) <> 0);
end;
function CefIsKeyDown(aWparam : WPARAM) : boolean;
begin
Result := (GetKeyState(aWparam) < 0);