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

18
source/uCEFContextMenuHandler.pas
View File

@ -172,22 +172,24 @@ begin
inherited Destroy;
end;
procedure TCustomContextMenuHandler.OnBeforeContextMenu(
const browser: ICefBrowser; const frame: ICefFrame;
const params: ICefContextMenuParams; const model: ICefMenuModel);
procedure TCustomContextMenuHandler.OnBeforeContextMenu(const browser : ICefBrowser;
const frame : ICefFrame;
const params : ICefContextMenuParams;
const model : ICefMenuModel);
begin
if (FEvent <> nil) then FEvent.doOnBeforeContextMenu(browser, frame, params, model);
end;
function TCustomContextMenuHandler.OnContextMenuCommand(
const browser: ICefBrowser; const frame: ICefFrame;
const params: ICefContextMenuParams; commandId: Integer;
eventFlags: TCefEventFlags): Boolean;
function TCustomContextMenuHandler.OnContextMenuCommand(const browser : ICefBrowser;
const frame : ICefFrame;
const params : ICefContextMenuParams;
commandId : Integer;
eventFlags : TCefEventFlags): Boolean;
begin
if (FEvent <> nil) then
Result := FEvent.doOnContextMenuCommand(browser, frame, params, commandId, eventFlags)
else
Result := inherited;
Result := inherited OnContextMenuCommand(browser, frame, params, commandId, eventFlags);
end;
procedure TCustomContextMenuHandler.OnContextMenuDismissed(const browser: ICefBrowser; const frame: ICefFrame);