From e8331bc25520bcc383595e4e7787c75ac2f5d657 Mon Sep 17 00:00:00 2001
From: Marc Durdin <marc@keyman.com>
Date: Thu, 5 Jul 2018 14:07:08 +0700
Subject: [PATCH] [developer] Enable support for Developer Tools in CEF

---
 windows/src/developer/TIKE/project/UfrmProject.dfm | 4 ----
 windows/src/developer/TIKE/project/UfrmProject.pas | 4 ++++
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/windows/src/developer/TIKE/project/UfrmProject.dfm b/windows/src/developer/TIKE/project/UfrmProject.dfm
index 43be438638..acee6c1a76 100644
--- a/windows/src/developer/TIKE/project/UfrmProject.dfm
+++ b/windows/src/developer/TIKE/project/UfrmProject.dfm
@@ -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]
diff --git a/windows/src/developer/TIKE/project/UfrmProject.pas b/windows/src/developer/TIKE/project/UfrmProject.pas
index 17c03d6ce3..25b702c6a4 100644
--- a/windows/src/developer/TIKE/project/UfrmProject.pas
+++ b/windows/src/developer/TIKE/project/UfrmProject.pas
@@ -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;