pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions 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

23
source/uCEFJsDialogHandler.pas
View File

@ -173,14 +173,15 @@ begin
inherited Destroy;
end;
function TCustomJsDialogHandler.OnBeforeUnloadDialog(const browser: ICefBrowser;
const messageText: ustring; isReload: Boolean;
const callback: ICefJsDialogCallback): Boolean;
function TCustomJsDialogHandler.OnBeforeUnloadDialog(const browser : ICefBrowser;
const messageText : ustring;
isReload : Boolean;
const callback : ICefJsDialogCallback): Boolean;
begin
if (FEvent <> nil) then
Result := FEvent.doOnBeforeUnloadDialog(browser, messageText, isReload, callback)
else
Result := inherited;
Result := inherited OnBeforeUnloadDialog(browser, messageText, isReload, callback);
end;
procedure TCustomJsDialogHandler.OnDialogClosed(const browser: ICefBrowser);
@ -188,16 +189,18 @@ begin
if (FEvent <> nil) then FEvent.doOnDialogClosed(browser);
end;
function TCustomJsDialogHandler.OnJsdialog(const browser: ICefBrowser;
const originUrl: ustring; dialogType: TCefJsDialogType;
const messageText, defaultPromptText: ustring;
const callback: ICefJsDialogCallback;
out suppressMessage: Boolean): Boolean;
function TCustomJsDialogHandler.OnJsdialog(const browser : ICefBrowser;
const originUrl : ustring;
dialogType : TCefJsDialogType;
const messageText : ustring;
const defaultPromptText : ustring;
const callback : ICefJsDialogCallback;
out suppressMessage : Boolean): Boolean;
begin
if (FEvent <> nil) then
Result := FEvent.doOnJsdialog(browser, originUrl, dialogType, messageText, defaultPromptText, callback, suppressMessage)
else
Result := inherited;
Result := inherited OnJsdialog(browser, originUrl, dialogType, messageText, defaultPromptText, callback, suppressMessage);
end;
procedure TCustomJsDialogHandler.OnResetDialogState(const browser: ICefBrowser);