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

fix(windows): add active page check to btnhelp

Browse source
This commit is contained in:
rc-swag 2024-11-08 20:29:24 +10:00
parent 1053c941b5
commit 6caee57972
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
windows/src/engine/keyman/viskbd/UfrmVisualKeyboard.pas
View file

@ -1,4 +1,4 @@
(*
(*
Name: UfrmVisualKeyboard
Copyright: Copyright (C) SIL International.
Documentation:
@ -1546,7 +1546,12 @@ end;
procedure TfrmVisualKeyboard.BtnHelpClick(Sender: TObject);
begin
TKeymanDesktopShell.OpenHelpJump('context/toolbox-onscreenkeyboard', frmKeyman7Main.ActiveKeyboard);
case ActivePage of
apKeyboard: TKeymanDesktopShell.OpenHelpJump('context/toolbox-onscreenkeyboard', frmKeyman7Main.ActiveKeyboard);
apCharacterMap: TKeymanDesktopShell.OpenHelpJump('context/toolbox-charactermap', frmKeyman7Main.ActiveKeyboard);
apFontHelper: TKeymanDesktopShell.OpenHelpJump('context/toolbox-_fonthelper', frmKeyman7Main.ActiveKeyboard);
apEntryHelper: TKeymanDesktopShell.OpenHelpJump('index', frmKeyman7Main.ActiveKeyboard);
end;
end;
procedure TfrmVisualKeyboard.BtnHideHint(Sender: TObject);