| Class TCalendarX (unit CalImpl) |
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;
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;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;
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;