diff options
| -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, |