TD2Calendar

type TD2Calendar = class(TD2Control)

protected

  FDisableDayChange: Integer;

  procedure DoPrevClick();

  procedure DoNextClick();

  procedure DoTodayClick();

  procedure DoDayChange();

  procedure DoMonthChange();

  procedure DoYearChange();

  procedure FillList;

  function GetData; override;

  procedure SetData(); override;

  procedure MouseWheel(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Realign; override;

  property DateTime: TDateTime; [rw]

published

  property BindingSource: TD2Control;

  property Date: TDate; [rw]

  property FirstDayOfWeek: TD2CalDayOfWeek; [rw]

  property TodayDefault: Boolean; [rw]

  property WeekNumbers: Boolean; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnDayChange: TNotifyEvent; [rw]

end;

TD2Calendar

TD2Control

TD2VisualObject

TD2Object

TObject