From 1de3f25a3f2482ff692543f2e1cf70e81bfb8a0a Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Tue, 17 Jul 2012 17:25:16 +0100
Subject: TfpgWidget now consumes the F1 keypress to invoke context sensitive
 help.

---
 src/corelib/fpg_widget.pas | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src')

diff --git a/src/corelib/fpg_widget.pas b/src/corelib/fpg_widget.pas
index 440645c4..dc7fd53d 100644
--- a/src/corelib/fpg_widget.pas
+++ b/src/corelib/fpg_widget.pas
@@ -964,6 +964,11 @@ begin
           dir := -1
         else
           dir := 1;
+    keyF1:
+      begin
+        InvokeHelp;
+        consumed := True;
+      end;
 {
     keyReturn,
     keyDown,
-- 
cgit v1.2.3-70-g09d2