UPD: Main window - open help index by F1 key

This commit is contained in:
Alexander Koblov 2023-02-28 20:10:01 +03:00
commit b0b901287d

View file

@ -172,7 +172,7 @@ type
const
{ Default hotkey list version number }
hkVersion = 57;
hkVersion = 58;
// 54 - In "Viewer" context, added the "W" for "cm_WrapText", "4" for "cm_ShowAsDec", "8" for "cm_ShowOffice".
// 53 - In "Main" context, change shortcut "Alt+`" to "Alt+0" for the "cm_ActivateTabByIndex".
// 52 - In "Main" context, add shortcut "Ctrl+Shift+B" for "cm_FlatViewSel".
@ -1032,7 +1032,16 @@ begin
HMForm := HotMan.Forms.FindOrCreate('Main');
with HMForm.Hotkeys do
begin
AddIfNotExists(['F1'],[],'cm_About');
if HotMan.Version < 58 then
begin
HMHotKey:= FindByCommand('cm_About');
if Assigned(HMHotKey) and HMHotKey.SameShortcuts(['F1']) then
begin
Remove(HMHotKey);
end;
end;
AddIfNotExists(['F1'],[],'cm_HelpIndex');
AddIfNotExists(['F2','','',
'Shift+F6','',''],'cm_RenameOnly');
AddIfNotExists(['F3'],[],'cm_View');