pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-12-03 21:44:45 +02:00
Code Issues Actions 1 Releases Activity

Complete inherited commands for backward compatibility

Browse Source
This commit is contained in:
Salvador Diaz Fau
2017-06-11 20:36:14 +02:00
parent 830117e0ca
commit 062c045fa2
24 changed files with 442 additions and 399 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
source/uCEFGeolocationHandler.pas
View File

@@ -140,14 +140,15 @@ begin
FEvent.doOnCancelGeolocationPermission(browser, requestId);
end;
function TCustomGeolocationHandler.OnRequestGeolocationPermission(
const browser: ICefBrowser; const requestingUrl: ustring; requestId: Integer;
const callback: ICefGeolocationCallback): Boolean;
function TCustomGeolocationHandler.OnRequestGeolocationPermission(const browser : ICefBrowser;
const requestingUrl : ustring;
requestId : Integer;
const callback : ICefGeolocationCallback): Boolean;
begin
if (FEvent <> nil) then
Result := FEvent.doOnRequestGeolocationPermission(browser, requestingUrl, requestId, callback)
else
Result := inherited;
Result := inherited OnRequestGeolocationPermission(browser, requestingUrl, requestId, callback);
end;
end.