Unit ComCtl2

Classes

CoDataObject -
CoDataObjectFiles -
DAnimationEvents - Event interface for Animation control
DDTPickerEvents -
DFlatSBEvents -
DMonthViewEvents -
DUpDownEvents - Event interface for UpDown control
IAnimation - Animation Control
IAnimationDisp - DispInterface declaration for Dual Interface IAnimation
IDTPicker - Microsoft Date and Time Picker Control
IDTPickerDisp - DispInterface declaration for Dual Interface IDTPicker
IFlatSB - Microsoft Flat Scrollbar Control
IFlatSBDisp - DispInterface declaration for Dual Interface IFlatSB
IMonthView - Microsoft MonthView Control
IMonthViewDisp - DispInterface declaration for Dual Interface IMonthView
IUpDown - UpDown Control
IUpDownDisp - DispInterface declaration for Dual Interface IUpDown
IVBDataObject -
IVBDataObjectDisp - DispInterface declaration for Dual Interface IVBDataObject
IVBDataObjectFiles -
IVBDataObjectFilesDisp - DispInterface declaration for Dual Interface IVBDataObjectFiles
TMSAnimation -
TMSDTPicker -
TMSFlatScrollBar - Microsoft Flat Scrollbar Control
TMSMonthView -
TMSUpDown -

Functions

Register -

Types

AlignmentConstants
Animation
AppearanceConstants
ArrowsConstants
BackStyleConstants
BorderStyleConstants
ClipBoardConstants
DataObject
DataObjectFiles
DayConstants
DragOverConstants
DTPicker
ErrorConstants
FlatScrollBar
FlatScrollBarAppearanceConstants
FormatConstants
MonthConstants
MonthView
MonthViewHitTestAreas
MousePointerConstants
OLEDropConstants
OLEDropEffectConstants
OrientationConstants
TMSAnimationOLECompleteDrag
TMSAnimationOLEDragDrop
TMSAnimationOLEDragOver
TMSAnimationOLEGiveFeedback
TMSAnimationOLESetData
TMSAnimationOLEStartDrag
TMSDTPickerCallbackKeyDown
TMSDTPickerFormat
TMSDTPickerFormatSize
TMSDTPickerOLECompleteDrag
TMSDTPickerOLEDragDrop
TMSDTPickerOLEDragOver
TMSDTPickerOLEGiveFeedback
TMSDTPickerOLESetData
TMSDTPickerOLEStartDrag
TMSMonthViewDateClick
TMSMonthViewDateDblClick
TMSMonthViewGetDayBold
TMSMonthViewOLECompleteDrag
TMSMonthViewOLEDragDrop
TMSMonthViewOLEDragOver
TMSMonthViewOLEGiveFeedback
TMSMonthViewOLESetData
TMSMonthViewOLEStartDrag
TMSMonthViewSelChange
TMSUpDownOLECompleteDrag
TMSUpDownOLEDragDrop
TMSUpDownOLEDragOver
TMSUpDownOLEGiveFeedback
TMSUpDownOLESetData
TMSUpDownOLEStartDrag
UpDown

Constants

cc23D
cc2AlignmentLeft
cc2AlignmentRight
cc2Arrow
cc2ArrowHourglass
cc2ArrowQuestion
cc2AutoBuddyNotSet
cc2BackstyleOpaque
cc2BackstyleTransparent
cc2BadFileNameOrNumber
cc2Both
cc2BuddyNotASibling
cc2CantStopAutoPlay
cc2CFBitmap
cc2CFDIB
cc2CFEMetafile
cc2CFFiles
cc2CFMetafile
cc2CFPalette
cc2CFRTF
cc2CFText
cc2Cross
cc2Custom
cc2DataNotSetForFormat
cc2DataObjectLocked
cc2DateOutOfRange
cc2Default
cc2DTPickerError
cc2Enter
cc2ErrorClosingVideo
cc2ErrorDuringSet
cc2ErrorOpeningVideo
cc2ErrorPlayingVideo
cc2ErrorStoppingVideo
cc2ExpectedAnArgument
cc2FileNotFound
cc2FixedSingle
cc2Flat
cc2FormatNotByteArray
cc2GetNotSupported
cc2Hourglass
cc2IBeam
cc2Icon
cc2InconsistentObject
cc2InvalidMaxDate
cc2InvalidMaxDateMin
cc2InvalidMinDate
cc2InvalidMinDateMax
cc2InvalidObjectUse
cc2InvalidProcedureCall
cc2InvalidPropertyValue
cc2InvalidRange
cc2InvalidRowColTotal
cc2InvalidRowColValue
cc2Leave
cc2LeftUp
cc2MonthViewError
cc2NoDrop
cc2None
cc2NoUpDownAsBuddy
cc2NoValidBuddyCtl
cc2NullValueNotAllowed
cc2OLEDropEffectCopy
cc2OLEDropEffectMove
cc2OLEDropEffectNone
cc2OLEDropEffectScroll
cc2OLEDropManual
cc2OLEDropNone
cc2OrientationHorizontal
cc2OrientationVertical
cc2Over
cc2RecursiveOleDrag
cc2RightDown
cc2ScrollValueOutOfRange
cc2SetDayMultiSelectOn
cc2SetDayOfWeekMultiSelectOn
cc2SetMaxSelCountMultiSelectOff
cc2SetMonthMultiSelectOn
cc2SetNotSupported
cc2SetNotSupportedAtRuntime
cc2SetSelEndMultiSelectOff
cc2SetSelStartMultiSelectOff
cc2SetWeekMultiSelectOn
cc2SetYearMultiSelectOn
cc2Size
cc2SizeAll
cc2SizeEW
cc2SizeNESW
cc2SizeNS
cc2SizeNWSE
cc2UpArrow
cc2VideoNotOpen
cc2WrongClipboardFormat
Class_Animation
Class_DataObject
Class_DataObjectFiles
Class_DTPicker
Class_FlatScrollBar
Class_MonthView
Class_UpDown
dtpCustom
dtpLongDate
dtpShortDate
dtpTime
fsb3D
fsbFlat
fsbTrack3D
LIBID_ComCtl2
mvwApril
mvwAugust
mvwCalendarBack
mvwCalendarDate
mvwCalendarDateNext
mvwCalendarDatePrev
mvwCalendarDay
mvwCalendarWeekNum
mvwDecember
mvwFebruary
mvwFriday
mvwJanuary
mvwJuly
mvwJune
mvwMarch
mvwMay
mvwMonday
mvwNovember
mvwNoWhere
mvwOctober
mvwSaturday
mvwSeptember
mvwSunday
mvwThursday
mvwTitleBack
mvwTitleBtnNext
mvwTitleBtnPrev
mvwTitleMonth
mvwTitleYear
mvwTodayLink
mvwTuesday
mvwWednesday

Variables


Functions


procedure Register;


Types


AlignmentConstants = TOleEnum

Animation = IAnimation

AppearanceConstants = TOleEnum

ArrowsConstants = TOleEnum

BackStyleConstants = TOleEnum

BorderStyleConstants = TOleEnum

ClipBoardConstants = TOleEnum

DataObject = IVBDataObject
Forward declarations: CoClasses
DataObjectFiles = IVBDataObjectFiles

DayConstants = TOleEnum

DragOverConstants = TOleEnum

DTPicker = IDTPicker

ErrorConstants = TOleEnum

FlatScrollBar = IFlatSB

FlatScrollBarAppearanceConstants = TOleEnum

FormatConstants = TOleEnum

MonthConstants = TOleEnum

MonthView = IMonthView

MonthViewHitTestAreas = TOleEnum

MousePointerConstants = TOleEnum

OLEDropConstants = TOleEnum
Forward declarations: Enums
OLEDropEffectConstants = TOleEnum

OrientationConstants = TOleEnum

TMSAnimationOLECompleteDrag = procedure(Sender: TObject; var Effect: Integer)
    of object

TMSAnimationOLEDragDrop = procedure(Sender: TObject; var Data: DataObject; var
    Effect: Integer; var Button, Shift: Smallint; var x, y: Single) of object

TMSAnimationOLEDragOver = procedure(Sender: TObject; var Data: DataObject; var
    Effect: Integer; var Button, Shift: Smallint; var x, y: Single; var State:
    Smallint) of object

TMSAnimationOLEGiveFeedback = procedure(Sender: TObject; var Effect: Integer;
    var DefaultCursors: WordBool) of object

TMSAnimationOLESetData = procedure(Sender: TObject; var Data: DataObject; var
    DataFormat: Smallint) of object

TMSAnimationOLEStartDrag = procedure(Sender: TObject; var Data: DataObject; var
    AllowedEffects: Integer) of object
Animation Control
TMSDTPickerCallbackKeyDown = procedure(Sender: TObject; KeyCode, Shift:
    Smallint; const CallbackField: WideString; var CallbackDate: TDateTime) of
    object
Microsoft Date and Time Picker Control
TMSDTPickerFormat = procedure(Sender: TObject; const CallbackField:
    WideString; out FormattedString: WideString) of object

TMSDTPickerFormatSize = procedure(Sender: TObject; const CallbackField:
    WideString; out Size: Smallint) of object

TMSDTPickerOLECompleteDrag = procedure(Sender: TObject; var Effect: Integer) of
    object

TMSDTPickerOLEDragDrop = procedure(Sender: TObject; var Data: DataObject; var
    Effect: Integer; var Button, Shift: Smallint; var x, y: Single) of object

TMSDTPickerOLEDragOver = procedure(Sender: TObject; var Data: DataObject; var
    Effect: Integer; var Button, Shift: Smallint; var x, y: Single; var State:
    Smallint) of object

TMSDTPickerOLEGiveFeedback = procedure(Sender: TObject; var Effect: Integer;
    var DefaultCursors: WordBool) of object

TMSDTPickerOLESetData = procedure(Sender: TObject; var Data: DataObject; var
    DataFormat: Smallint) of object

TMSDTPickerOLEStartDrag = procedure(Sender: TObject; var Data: DataObject; var
    AllowedEffects: Integer) of object

TMSMonthViewDateClick = procedure(Sender: TObject; DateClicked: TDateTime) of
    object
Microsoft MonthView Control
TMSMonthViewDateDblClick = procedure(Sender: TObject; DateDblClicked:
    TDateTime) of object

TMSMonthViewGetDayBold = procedure(Sender: TObject; StartDate: TDateTime;
    Count: Smallint; var State: OleVariant) of object

TMSMonthViewOLECompleteDrag = procedure(Sender: TObject; var Effect: Integer)
    of object

TMSMonthViewOLEDragDrop = procedure(Sender: TObject; var Data: DataObject; var
    Effect: Integer; var Button, Shift: Smallint; var x, y: Single) of object

TMSMonthViewOLEDragOver = procedure(Sender: TObject; var Data: DataObject; var
    Effect: Integer; var Button, Shift: Smallint; var x, y: Single; var State:
    Smallint) of object

TMSMonthViewOLEGiveFeedback = procedure(Sender: TObject; var Effect: Integer;
    var DefaultCursors: WordBool) of object

TMSMonthViewOLESetData = procedure(Sender: TObject; var Data: DataObject; var
    DataFormat: Smallint) of object

TMSMonthViewOLEStartDrag = procedure(Sender: TObject; var Data: DataObject; var
    AllowedEffects: Integer) of object

TMSMonthViewSelChange = procedure(Sender: TObject; StartDate, EndDate:
    TDateTime; out Cancel: WordBool) of object

TMSUpDownOLECompleteDrag = procedure(Sender: TObject; var Effect: Integer) of
    object

TMSUpDownOLEDragDrop = procedure(Sender: TObject; var Data: DataObject; var
    Effect: Integer; var Button, Shift: Smallint; var x, y: Single) of object

TMSUpDownOLEDragOver = procedure(Sender: TObject; var Data: DataObject; var
    Effect: Integer; var Button, Shift: Smallint; var x, y: Single; var State:
    Smallint) of object

TMSUpDownOLEGiveFeedback = procedure(Sender: TObject; var Effect: Integer; var
    DefaultCursors: WordBool) of object

TMSUpDownOLESetData = procedure(Sender: TObject; var Data: DataObject; var
    DataFormat: Smallint) of object

TMSUpDownOLEStartDrag = procedure(Sender: TObject; var Data: DataObject; var
    AllowedEffects: Integer) of object
UpDown Control
UpDown = IUpDown

Constants

cc23D = 1

cc2AlignmentLeft = 0

Alignments } { AlignmentConstants

cc2AlignmentRight = 1

cc2Arrow = 1

cc2ArrowHourglass = 13

cc2ArrowQuestion = 14

cc2AutoBuddyNotSet = 35756

cc2BackstyleOpaque = 1

cc2BackstyleTransparent = 0

Background Style Constants } { BackStyleConstants

cc2BadFileNameOrNumber = 52

Error Constants } { ErrorConstants

cc2Both = 0

Arrows Constants } { ArrowsConstants

cc2BuddyNotASibling = 35760

cc2CantStopAutoPlay = 35759

cc2CFBitmap = 2

cc2CFDIB = 8

cc2CFEMetafile = 14

cc2CFFiles = 15

cc2CFMetafile = 3

cc2CFPalette = 9

cc2CFRTF = -16639

cc2CFText = 1

Clipboard format constants. } { ClipBoardConstants

cc2Cross = 2

cc2Custom = 99

cc2DataNotSetForFormat = 676

cc2DataObjectLocked = 672

cc2DateOutOfRange = 35773

cc2Default = 0

MousePointer constants } { MousePointerConstants

cc2DTPickerError = 35788

cc2Enter = 0

State transition constants for the DragOver and OLEDragOver events. } { DragOverConstants

cc2ErrorClosingVideo = 35758

cc2ErrorDuringSet = 35751

cc2ErrorOpeningVideo = 35752

cc2ErrorPlayingVideo = 35753

cc2ErrorStoppingVideo = 35757

cc2ExpectedAnArgument = 673

cc2FileNotFound = 53

cc2FixedSingle = 1

cc2Flat = 0

Appearance constants } { AppearanceConstants

cc2FormatNotByteArray = 675

cc2GetNotSupported = 394

cc2Hourglass = 11

cc2IBeam = 3

cc2Icon = 4

cc2InconsistentObject = 35750

cc2InvalidMaxDate = 35771

cc2InvalidMaxDateMin = 35774

cc2InvalidMinDate = 35772

cc2InvalidMinDateMax = 35775

cc2InvalidObjectUse = 425

cc2InvalidProcedureCall = 5

cc2InvalidPropertyValue = 380

cc2InvalidRange = 35770

cc2InvalidRowColTotal = 35777

cc2InvalidRowColValue = 35776

cc2Leave = 1

cc2LeftUp = 1

cc2MonthViewError = 35778

cc2NoDrop = 12

cc2None = 0

BorderStyle constants } { BorderStyleConstants

cc2NoUpDownAsBuddy = 35761

cc2NoValidBuddyCtl = 35754

cc2NullValueNotAllowed = 35787

cc2OLEDropEffectCopy = 1

cc2OLEDropEffectMove = 2

cc2OLEDropEffectNone = 0

Drop effect constants for OLE drag and drop events. } { OLEDropEffectConstants

cc2OLEDropEffectScroll = $80000000

cc2OLEDropManual = 1

cc2OLEDropNone = 0

Constants for the OLEDropMode property (but not the DragMode or OLEDragMode properties). } { OLEDropConstants

cc2OrientationHorizontal = 1

cc2OrientationVertical = 0

Orientations } { OrientationConstants

cc2Over = 2

cc2RecursiveOleDrag = 674

cc2RightDown = 2

cc2ScrollValueOutOfRange = 35789

cc2SetDayMultiSelectOn = 35779

cc2SetDayOfWeekMultiSelectOn = 35780

cc2SetMaxSelCountMultiSelectOff = 35784

cc2SetMonthMultiSelectOn = 35781

cc2SetNotSupported = 383

cc2SetNotSupportedAtRuntime = 382

cc2SetSelEndMultiSelectOff = 35785

cc2SetSelStartMultiSelectOff = 35786

cc2SetWeekMultiSelectOn = 35782

cc2SetYearMultiSelectOn = 35783

cc2Size = 5

cc2SizeAll = 15

cc2SizeEW = 9

cc2SizeNESW = 6

cc2SizeNS = 7

cc2SizeNWSE = 8

cc2UpArrow = 10

cc2VideoNotOpen = 35755

cc2WrongClipboardFormat = 461

Class_Animation = '{B09DE715-87C1-11D1-8BE3-0000F8754DA1}'

Class_DataObject = '{2334D2B2-713E-11CF-8AE5-00AA00C00905}'

Component class GUIDs

Class_DataObjectFiles = '{2334D2B4-713E-11CF-8AE5-00AA00C00905}'

Class_DTPicker = '{20DD1B9E-87C4-11D1-8BE3-0000F8754DA1}'

Class_FlatScrollBar = '{FE38753A-44A3-11D1-B5B7-0000C09000C4}'

Class_MonthView = '{232E456A-87C3-11D1-8BE3-0000F8754DA1}'

Class_UpDown = '{603C7E80-87C2-11D1-8BE3-0000F8754DA1}'

dtpCustom = 3

dtpLongDate = 0

Format Constants } { FormatConstants

dtpShortDate = 1

dtpTime = 2

fsb3D = 0

Flat Scrollbar Appearance Constants } { FlatScrollBarAppearanceConstants

fsbFlat = 1

fsbTrack3D = 2

LIBID_ComCtl2 = '{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}'

Microsoft Windows Common Controls-2 6.0 } { Version 2.0 } //DMonthViewEvents.GetDayBold parameter State of type PSafeArray was written as OleVariant. //DMonthViewEvents.GetDayBold parameter State of type PSafeArray was written as OleVariant.

mvwApril = 4

mvwAugust = 8

mvwCalendarBack = 0

HitTest Constants } { MonthViewHitTestAreas

mvwCalendarDate = 1

mvwCalendarDateNext = 2

mvwCalendarDatePrev = 3

mvwCalendarDay = 4

mvwCalendarWeekNum = 5

mvwDecember = 12

mvwFebruary = 2

mvwFriday = 6

mvwJanuary = 1

Month Constants } { MonthConstants

mvwJuly = 7

mvwJune = 6

mvwMarch = 3

mvwMay = 5

mvwMonday = 2

mvwNovember = 11

mvwNoWhere = 6

mvwOctober = 10

mvwSaturday = 7

mvwSeptember = 9

mvwSunday = 1

Day Constants } { DayConstants

mvwThursday = 5

mvwTitleBack = 7

mvwTitleBtnNext = 8

mvwTitleBtnPrev = 9

mvwTitleMonth = 10

mvwTitleYear = 11

mvwTodayLink = 12

mvwTuesday = 3

mvwWednesday = 4


Variables