paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

published TControl help properties

Browse Source 
git-svn-id: trunk@4040 -
This commit is contained in:
mattias 2003-04-11 08:09:26 +00:00
parent 08d31aa5fa
commit 26455f257f
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

@ -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)