From da8d7eff4fbff69424a10deb51ea21b505763d54 Mon Sep 17 00:00:00 2001
From: Marc Durdin <marc@durdin.net>
Date: Mon, 31 Aug 2026 13:34:35 +0200
Subject: [PATCH] fix(developer): open context help when F1 pressed in Project
 window

Fixes: #11052
Test-bot: skip
---
 .../project/Keyman.Developer.UI.Project.UfrmProject.pas    | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/developer/src/tike/project/Keyman.Developer.UI.Project.UfrmProject.pas b/developer/src/tike/project/Keyman.Developer.UI.Project.UfrmProject.pas
index aad4e9e57b..f609001c21 100644
--- a/developer/src/tike/project/Keyman.Developer.UI.Project.UfrmProject.pas
+++ b/developer/src/tike/project/Keyman.Developer.UI.Project.UfrmProject.pas
@@ -76,6 +76,7 @@ type
     procedure cefBeforeBrowse(Sender: TObject; const Url: string; isPopup, wasHandled: Boolean);
     procedure cefBeforeBrowseSync(Sender: TObject; const Url: string; isPopup: Boolean; out Handled: Boolean);
     procedure cefCommand(Sender: TObject; const command: string; params: TStringList);
+    procedure cefHelpTopic(Sender: TObject);
 
     procedure ProjectRefresh(Sender: TObject);
     procedure ProjectRefreshCaption(Sender: TObject);
@@ -189,6 +190,7 @@ begin
   cef.OnBeforeBrowseSync := cefBeforeBrowseSync;
   cef.OnCommand := cefCommand;
   cef.OnLoadEnd := cefLoadEnd;
+  cef.OnHelpTopic := cefHelpTopic;
   RefreshHTML;
 end;
 
@@ -288,6 +290,11 @@ begin
   WebCommand(LowerCase(command), params);
 end;
 
+procedure TfrmProject.cefHelpTopic(Sender: TObject);
+begin
+  frmKeymanDeveloper.HelpTopic(Self);
+end;
+
 procedure TfrmProject.CompileAll;
 var
   i: Integer;