diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-08-16 17:19:45 +0100 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-08-16 17:19:45 +0100 |
commit | 06273b1aa7b4bdb5ff175a6af0dc28cee3b30424 (patch) | |
tree | d437cd84dd61b7ec874925959056cced7c010e8a /src/corelib | |
parent | 9d330c022369a6761d2d51f336eb1d740e90cb2c (diff) | |
download | fpGUI-06273b1aa7b4bdb5ff175a6af0dc28cee3b30424.tar.xz |
F1 is not hard-coded as the help key any more.
fpgApplication.HelpKey is now actually used in fpGUI, and it will invoke the help.
Diffstat (limited to 'src/corelib')
-rw-r--r-- | src/corelib/fpg_widget.pas | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/corelib/fpg_widget.pas b/src/corelib/fpg_widget.pas index dc7fd53d..50bb0295 100644 --- a/src/corelib/fpg_widget.pas +++ b/src/corelib/fpg_widget.pas @@ -958,17 +958,18 @@ begin dir := 0; + if not consumed and (keycode = fpgApplication.HelpKey) then + begin + InvokeHelp; + consumed := True; + end; + case keycode of keyTab: if (ssShift in shiftstate) then dir := -1 else dir := 1; - keyF1: - begin - InvokeHelp; - consumed := True; - end; { keyReturn, keyDown, |