erabo/spiegel-keyman
1
0
Fork 0
mirror of https://github.com/keymanapp/keyman.git synced 2026-09-03 14:17:40 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 14

fix(developer): open context help when F1 pressed in Project window

Browse source 
Fixes: #11052
Test-bot: skip
This commit is contained in:
Marc Durdin 2026-08-31 13:34:35 +02:00
parent f8a5164c57
commit da8d7eff4f
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
developer/src/tike/project/Keyman.Developer.UI.Project.UfrmProject.pas
View file

@ -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;