1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-07-02 22:26:53 +02:00

Update to CEF 73.1.12

- Added context menu option in JSDemo to get the vertical scroll position.
- Now TChromium uses the same keyboard events for the browser and the DevTools.
- Fixed a MiniBrowser issue with the F12 keyboard shortcut. Now you can press F12 to hide and show the DevTools correctly.
This commit is contained in:
Salvador Díaz Fau
2019-03-22 13:12:44 +01:00
parent 15ac7120e4
commit 4682fe3a19
5 changed files with 37 additions and 13 deletions

View File

@ -573,8 +573,6 @@ var
begin
Result := False;
if not(Chromium1.IsSameBrowser(browser)) then exit;
if (event <> nil) and (osEvent <> nil) then
case osEvent.Message of
WM_KEYUP :
@ -728,8 +726,7 @@ procedure TMiniBrowserFrm.Chromium1PreKeyEvent(Sender: TObject;
begin
Result := False;
if Chromium1.IsSameBrowser(browser) and
(event <> nil) and
if (event <> nil) and
(event.kind in [KEYEVENT_KEYDOWN, KEYEVENT_KEYUP]) and
(event.windows_key_code = VK_F12) then
isKeyboardShortcut := True;
@ -940,6 +937,7 @@ end;
procedure TMiniBrowserFrm.HideDevToolsMsg(var aMessage : TMessage);
begin
HideDevTools;
Chromium1.SetFocus(True);
end;
procedure TMiniBrowserFrm.Inczoom1Click(Sender: TObject);