TCustomDateTimePicker

type TCustomDateTimePicker = class(TCustomControl)

protected

  procedure WMKillFocus(); message;

  procedure WMSize(); message;

  class function GetControlClassDefaultSize; override;

  procedure ConfirmChanges; virtual;

  procedure UndoChanges; virtual;

  procedure DropDownCalendarForm; virtual;

  procedure ShowCalendarForm(); virtual;

  function GetCheckBoxRect();

  function GetDateTimePartFromTextPart();

  function GetSelectedDateTimePart;

  procedure FontChanged(); override;

  function GetTextOrigin();

  procedure KeyDown(); override;

  procedure KeyPress(); override;

  procedure SelectTextPartUnderMouse();

  procedure MouseLeave; override;

  procedure MouseMove(); override;

  procedure MouseDown(); override;

  function DoMouseWheel(); override;

  procedure UpdateDate(); virtual;

  procedure DoEnter; override;

  procedure DoExit; override;

  procedure Click; override;

  procedure DblClick; override;

  procedure MouseUp(); override;

  procedure KeyUp(); override;

  procedure UTF8KeyPress(); override;

  procedure CalculatePreferredSize(); override;

  procedure SetBiDiMode(); override;

  procedure Loaded; override;

  procedure IncreaseCurrentTextPart;

  procedure DecreaseCurrentTextPart;

  procedure IncreaseMonth;

  procedure IncreaseYear;

  procedure IncreaseDay;

  procedure DecreaseMonth;

  procedure DecreaseYear;

  procedure DecreaseDay;

  procedure IncreaseHour;

  procedure IncreaseMinute;

  procedure IncreaseSecond;

  procedure IncreaseMiliSec;

  procedure DecreaseHour;

  procedure DecreaseMinute;

  procedure DecreaseSecond;

  procedure DecreaseMiliSec;

  procedure ChangeAMPM;

  procedure SelectDay;

  procedure SelectMonth;

  procedure SelectYear;

  procedure SelectHour;

  procedure SelectMinute;

  procedure SelectSecond;

  procedure SelectMiliSec;

  procedure SelectAMPM;

  procedure SetEnabled(); override;

  procedure SetAutoSize(); override;

  procedure CreateWnd; override;

  procedure SetDateTimeJumpMinMax();

  procedure ArrangeCtrls; virtual;

  procedure Change; virtual;

  procedure CheckBoxChange; virtual;

  procedure DoDropDown; virtual;

  procedure DoCloseUp; virtual;

  procedure DoAutoCheck; virtual;

  procedure DoAutoAdjustLayout(); override;

  procedure AddHandlerOnChange(); virtual;

  procedure AddHandlerOnCheckBoxChange(); virtual;

  procedure RemoveHandlerOnChange(); virtual;

  procedure RemoveHandlerOnCheckBoxChange(); virtual;

  property EffectiveHideDateTimeParts: TEffectiveDateTimeParts; [r]

  property EffectiveDateDisplayOrder: TDateDisplayOrder; [r]

  property BorderStyle;

  property AutoSize;

  property TabStop;

  property ParentColor;

  property CenturyFrom: Word; [rw]

  property DateDisplayOrder: TDateDisplayOrder; [rw]

  property MaxDate: TDate; [rw]

  property MinDate: TDate; [rw]

  property DateTime: TDateTime; [rw]

  property TrailingSeparator: Boolean; [rw]

  property ReadOnly: Boolean; [rw]

  property LeadingZeros: Boolean; [rw]

  property TextForNullDate: TCaption; [rw]

  property NullInputAllowed: Boolean; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnCheckBoxChange: TNotifyEvent; [rw]

  property OnDropDown: TNotifyEvent; [rw]

  property OnCloseUp: TNotifyEvent; [rw]

  property ShowCheckBox: Boolean; [rw]

  property Checked: Boolean; [rw]

  property ArrowShape: TArrowShape; [rw]

  property Kind: TDateTimeKind; [rw]

  property DateSeparator: string; [rws]

  property TimeSeparator: string; [rws]

  property DecimalSeparator: string; [rws]

  property UseDefaultSeparators: Boolean; [rw]

  property TimeFormat: TTimeFormat; [rw]

  property TimeDisplay: TTimeDisplay; [rw]

  property Time: TTime; [rw]

  property Date: TDate; [rw]

  property DateMode: TDTDateMode; [rw]

  property Cascade: Boolean; [rw]

  property AutoButtonSize: Boolean; [rw]

  property AutoAdvance: Boolean; [rw]

  property HideDateTimeParts: TDateTimeParts; [rw]

  property CalendarWrapperClass: TCalendarControlWrapperClass; [rw]

  property MonthDisplay: TMonthDisplay; [rw]

  property MonthNames: string; [rw]

  property CustomMonthNames: TStrings; [rw]

  property ShowMonthNames: Boolean; [rw]

  property DroppedDown: Boolean; [r]

  property CalAlignment: TDTCalAlignment; [rw]

  property Alignment: TAlignment; [rw]

  property Options: TDateTimePickerOptions; [rw]

  property CalendarForm: TCustomForm; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  function DateIsNull;

  procedure SelectDate;

  procedure SelectTime;

  procedure SendExternalKey();

  procedure SendExternalKeyCode();

  procedure RemoveAllHandlersOfObject(); override;

  procedure Paint; override;

  procedure EditingDone; override;

end;

TCustomDateTimePicker

TObject