paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 14:09:31 +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

71
lcl/controls.pp
View File

@ -234,41 +234,47 @@ const
type type
TWndMethod = procedure(var Message : TLMessage) of Object; TWndMethod = procedure(var Message : TLMessage) of Object;
TControlStyle = set of (csAcceptsControls, TControlStyleType = (
csCaptureMouse, csAcceptsControls,
csDesignInteractive, csCaptureMouse,
csClickEvents, csDesignInteractive,
csFramed, csClickEvents,
csSetCaption, csFramed,
csOpaque, csSetCaption,
csDoubleClicks,// control understands mouse double clicks csOpaque,
csTripleClicks,// control understands mouse triple clicks csDoubleClicks,// control understands mouse double clicks
csQuadClicks, // control understands mouse quad clicks csTripleClicks,// control understands mouse triple clicks
csFixedWidth, csQuadClicks, // control understands mouse quad clicks
csFixedHeight, csFixedWidth,
csNoDesignVisible, csFixedHeight,
csReplicatable, csNoDesignVisible,
csNoStdEvents, csReplicatable,
csDisplayDragImage, csNoStdEvents,
csReflector, csDisplayDragImage,
csActionClient, csReflector,
csMenuEvents, csActionClient,
csNoFocus); csMenuEvents,
csNoFocus);
TControlStyle = set of TControlStyleType;
const const
csMultiClicks = [csDoubleClicks,csTripleClicks,csQuadClicks]; csMultiClicks = [csDoubleClicks,csTripleClicks,csQuadClicks];
type type
TControlState = set of (csLButtonDown, TControlStateType = (
csClicked, csLButtonDown,
csPalette, csClicked,
csReadingState, csPalette,
csAlignmentNeeded, csReadingState,
csFocusing, csAlignmentNeeded,
csCreating, csFocusing,
csPaintCopy, csCreating,
csCustomPaint, csPaintCopy,
csDestroyingHandle, csCustomPaint,
csDocking); csDestroyingHandle,
csDocking);
TControlState = set of TControlStateType;
@ -1328,6 +1334,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.64 2002/09/01 16:11:21 lazarus
MG: double, triple and quad clicks now works MG: double, triple and quad clicks now works