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

16
source/uCEFKeyboardHandler.pas
View File

@ -132,23 +132,25 @@ begin
inherited Destroy;
end;
function TCustomKeyboardHandler.OnKeyEvent(const browser: ICefBrowser;
const event: PCefKeyEvent; osEvent: TCefEventHandle): Boolean;
function TCustomKeyboardHandler.OnKeyEvent(const browser : ICefBrowser;
const event : PCefKeyEvent;
osEvent : TCefEventHandle): Boolean;
begin
if (FEvent <> nil) then
Result := FEvent.doOnKeyEvent(browser, event, osEvent)
else
Result := inherited;
Result := inherited OnKeyEvent(browser, event, osEvent);
end;
function TCustomKeyboardHandler.OnPreKeyEvent(const browser: ICefBrowser;
const event: PCefKeyEvent; osEvent: TCefEventHandle;
out isKeyboardShortcut: Boolean): Boolean;
function TCustomKeyboardHandler.OnPreKeyEvent(const browser : ICefBrowser;
const event : PCefKeyEvent;
osEvent : TCefEventHandle;
out isKeyboardShortcut : Boolean): Boolean;
begin
if (FEvent <> nil) then
Result := FEvent.doOnPreKeyEvent(browser, event, osEvent, isKeyboardShortcut)
else
Result := inherited;
Result := inherited OnPreKeyEvent(browser, event, osEvent, isKeyboardShortcut);
end;
end.