summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2012-08-16 17:19:45 +0100
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2012-08-16 17:19:45 +0100
commit06273b1aa7b4bdb5ff175a6af0dc28cee3b30424 (patch)
treed437cd84dd61b7ec874925959056cced7c010e8a
parent9d330c022369a6761d2d51f336eb1d740e90cb2c (diff)
downloadfpGUI-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.
-rw-r--r--src/corelib/fpg_widget.pas11
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,