paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 22:19:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: TNoteBook now starts with no Page and TPage has no auto names

Browse Source 
git-svn-id: trunk@1123 -
This commit is contained in:
lazarus 2002-02-09 01:47:54 +00:00
parent d7a033df4f
commit c18a775aaf
1 changed files with 40 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/controls.pp
View File

@ -234,7 +234,8 @@ const
type
TWndMethod = procedure(var Message : TLMessage) of Object;
TControlStyle = set of (csAcceptsControls,
TControlStyleType = (
csAcceptsControls,
csCaptureMouse,
csDesignInteractive,
csClickEvents,
@ -254,11 +255,15 @@ type
csActionClient,
csMenuEvents,
csNoFocus);
TControlStyle = set of TControlStyleType;
const
csMultiClicks = [csDoubleClicks,csTripleClicks,csQuadClicks];
type
TControlState = set of (csLButtonDown,
TControlStateType = (
csLButtonDown,
csClicked,
csPalette,
csReadingState,
@ -269,6 +274,7 @@ type
csCustomPaint,
csDestroyingHandle,
csDocking);
TControlState = set of TControlStateType;
@ -1328,6 +1334,9 @@ end.
{ =============================================================================
$Log$
Revision 1.65 2002/09/02 19:10:28 lazarus
MG: TNoteBook now starts with no Page and TPage has no auto names
Revision 1.64 2002/09/01 16:11:21 lazarus
MG: double, triple and quad clicks now works