From 26455f257f8b8d98636e63eaeb1f46265b496a11 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 11 Apr 2003 08:09:26 +0000
Subject: [PATCH] published TControl help properties

git-svn-id: trunk@4040 -
---
 lcl/forms.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lcl/forms.pp b/lcl/forms.pp
index f1da1b628d..e188eacb7d 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -242,6 +242,8 @@ type
   TCloseEvent = procedure(Sender: TObject; var Action: TCloseAction) of object;
   TCloseQueryEvent = procedure(Sender : TObject;
                                var CanClose : boolean) of object;
+  THelpEvent = function(Command: Word; Data: Longint;
+    var CallHelp: Boolean): Boolean of object;
 
   TFormStateType = (
     fsCreating,  // initializing (form streaming)