[developer] Enable support for Developer Tools in CEF

This commit is contained in:
Marc Durdin 2018-07-05 14:07:08 +07:00
parent ee600c467b
commit e8331bc255
2 changed files with 4 additions and 4 deletions

View file

@ -21,10 +21,6 @@ inherited frmProject: TfrmProject
OnClose = cefClose
OnBeforeClose = cefBeforeClose
OnAfterCreated = cefAfterCreated
ExplicitLeft = 8
ExplicitTop = 8
ExplicitWidth = 457
ExplicitHeight = 505
end
object dlgOpenFile: TOpenDialog
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]

View file

@ -691,6 +691,10 @@ begin
Result := True;
frmKeymanDeveloper.HelpTopic(Self);
end
else if event.windows_key_code = VK_F12 then
begin
cef.ChromiumBrowser.ShowDevTools(Point(Low(Integer),Low(Integer)), nil);
end
else if SendMessage(Application.Handle, CM_APPKEYDOWN, event.windows_key_code, 0) = 1 then
begin
isKeyboardShortcut := True;