Class TCalendarX (unit CalImpl)

Inherits from

TActiveXPropBag

ICalendarX

Descend from TActiveXPropBag to get automatic streaming of properties via IPersistPropertyBag and Delphi's native RTTI

Constructors



Functions

procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage);


procedure EventSinkChanged(const EventSink: IUnknown);


function Get_BorderStyle: TxBorderStyle;

Define property pages here.

function Get_CalendarDate: TDateTime;


function Get_Color: TColor;


function Get_Ctl3D: WordBool;


function Get_Cursor: Smallint;


function Get_Day: Integer;


function Get_Enabled: WordBool;


function Get_Font: Font;


function Get_GridLineWidth: Integer;


function Get_Month: Integer;


function Get_ParentColor: WordBool;


function Get_ReadOnly: WordBool;


function Get_StartOfWeek: Smallint;


function Get_UseCurrentDate: WordBool;


function Get_Visible: WordBool;


function Get_Year: Integer;


procedure InitializeControl;

Protected declarations

TCalendarX


procedure NextMonth;


procedure NextYear;


procedure PrevMonth;


procedure PrevYear;


procedure Set_BorderStyle(Value: TxBorderStyle);


procedure Set_CalendarDate(Value: TDateTime);


procedure Set_Color(Value: TColor);


procedure Set_Ctl3D(Value: WordBool);


procedure Set_Cursor(Value: Smallint);


procedure Set_Day(Value: Integer);


procedure Set_Enabled(Value: WordBool);


procedure Set_Font(const Value: Font);


procedure Set_GridLineWidth(Value: Integer);


procedure Set_Month(Value: Integer);


procedure Set_ParentColor(Value: WordBool);


procedure Set_ReadOnly(Value: WordBool);


procedure Set_StartOfWeek(Value: Smallint);


procedure Set_UseCurrentDate(Value: WordBool);


procedure Set_Visible(Value: WordBool);


procedure Set_Year(Value: Integer);


procedure UpdateCalendar;


procedure ChangeEvent(Sender: TObject);


procedure ClickEvent(Sender: TObject);


procedure DblClickEvent(Sender: TObject);


procedure KeyPressEvent(Sender: TObject; var Key: Char);


Properties

Events

Variables

FDelphiControl : TCalendar;

Private declarations

FEvents : ICalendarXEvents;



Constructors


Functions


procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage);


procedure EventSinkChanged(const EventSink: IUnknown);


function Get_BorderStyle: TxBorderStyle;

Define property pages here. Property pages are defined by calling DefinePropertyPage with the class id of the page. For example, DefinePropertyPage(Class_CalendarXPage);


function Get_CalendarDate: TDateTime;


function Get_Color: TColor;


function Get_Ctl3D: WordBool;


function Get_Cursor: Smallint;


function Get_Day: Integer;


function Get_Enabled: WordBool;


function Get_Font: Font;


function Get_GridLineWidth: Integer;


function Get_Month: Integer;


function Get_ParentColor: WordBool;


function Get_ReadOnly: WordBool;


function Get_StartOfWeek: Smallint;


function Get_UseCurrentDate: WordBool;


function Get_Visible: WordBool;


function Get_Year: Integer;


procedure InitializeControl;

Protected declarations

TCalendarX


procedure NextMonth;


procedure NextYear;


procedure PrevMonth;


procedure PrevYear;


procedure Set_BorderStyle(Value: TxBorderStyle);


procedure Set_CalendarDate(Value: TDateTime);


procedure Set_Color(Value: TColor);


procedure Set_Ctl3D(Value: WordBool);


procedure Set_Cursor(Value: Smallint);


procedure Set_Day(Value: Integer);


procedure Set_Enabled(Value: WordBool);


procedure Set_Font(const Value: Font);


procedure Set_GridLineWidth(Value: Integer);


procedure Set_Month(Value: Integer);


procedure Set_ParentColor(Value: WordBool);


procedure Set_ReadOnly(Value: WordBool);


procedure Set_StartOfWeek(Value: Smallint);


procedure Set_UseCurrentDate(Value: WordBool);


procedure Set_Visible(Value: WordBool);


procedure Set_Year(Value: Integer);


procedure UpdateCalendar;


procedure ChangeEvent(Sender: TObject);


procedure ClickEvent(Sender: TObject);


procedure DblClickEvent(Sender: TObject);


procedure KeyPressEvent(Sender: TObject; var Key: Char);


Properties


Events


Variables


FDelphiControl : TCalendar;

Private declarations


FEvents : ICalendarXEvents;