| Class TVrCalendar (unit vrcal) |
TCustomControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
function ChangeDate(AYear, AMonth, ADay: Word): Boolean;
function DayofTheYear: Integer;
function DaysThisMonth: Integer;
destructor Destroy;
function GetAsDateTime: TDateTime;
function GetAsString(Format: String): String;
procedure NextMonth;
procedure NextYear;
procedure PrevMonth;
procedure PrevYear;
function WeekOfTheYear: Integer;
procedure AnalyseMonth;
procedure BuildStruct;
procedure CalcPaintParams(DoRepaint: Boolean);
procedure Change;
procedure Clear;
procedure DrawCell(Wich: Integer; Contents: string);
procedure FocusCell(Wich: Integer);
function IsDayName(I: Integer): Boolean;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Paint;
procedure UpdateCells;
function GetCellFromPos(X, Y: Integer): Integer;
procedure GetCellRect(Wich: Integer; var R: TRect);
function GetCount: Integer;
function GetFirstCell: Integer;
function GetItem(Index: Integer): TVrCalendarItem;
function GetLastCell: Integer;
procedure SetBorderWidth(Value: Integer);
procedure SetDaysColor(Value: TColor);
procedure SetDaysFont(Value: TFont);
procedure SetDaysVisible(Value: Boolean);
procedure SetFocusColor(Value: TColor);
procedure SetGridColor(Value: TColor);
procedure SetPassiveColor(Value: TColor);
procedure SetStyle(Value: TVrCalendarStyle);
procedure WMGetDlgCode(var Message: TWMGetDlgCode);
procedure WMKillFocus(var Message: TWMKillFocus);
procedure WMSetFocus(var Message: TWMSetFocus);
procedure WMSize(var Message: TWMSize);| Properties |
property Align :
property BorderWidth : Integer
property Color :
property DaysColor : TColor
property DaysFont : TFont
property DaysVisible : boolean
property DragCursor :
property DragMode :
property Enabled :
property FocusColor : TColor
property Font :
property GridColor : TColor
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PassiveColor : TColor
property PopUpMenu :
property ReadOnly : Boolean
property ShowHint :
property Style : TVrCalendarStyle
property TabOrder :
property TabStop :
property Visible :
property Day : Word
property Month : Word
property Year : Word
property Count : Integer
property Items : TVrCalendarItem| Events |
event OnChange : TNotifyEvent
event OnClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FBorderWidth : Integer;
FButton : TMouseButton;
FButtonDown : Boolean;
FCellXSize : Integer;
FCellYSize : Integer;
FColumns : Integer;
FCurrent : Integer;
FDay : Word;
FDaysColor : TColor;
FDaysFont : TFont;
FDaysVisible : Boolean;
FFocusColor : TColor;
FGridColor : TColor;
FHasFocus : Boolean;
FItems : TList;
FMonth : Word;
FMonthOffset : Integer;
FOnChange : TNotifyEvent;
FPassiveColor : TColor;
FReadOnly : Boolean;
FRows : Integer;
FStyle : TVrCalendarStyle;
FYear : Word;| Constructors |
constructor Create(AOwner: TComponent);TVrCalendar
| Functions |
function ChangeDate(AYear, AMonth, ADay: Word): Boolean;
function DayofTheYear: Integer;
function DaysThisMonth: Integer;
destructor Destroy;
function GetAsDateTime: TDateTime;
function GetAsString(Format: String): String;
procedure NextMonth;
procedure NextYear;
procedure PrevMonth;
procedure PrevYear;
function WeekOfTheYear: Integer;
procedure AnalyseMonth;
procedure BuildStruct;
procedure CalcPaintParams(DoRepaint: Boolean);
procedure Change;
procedure Clear;
procedure DrawCell(Wich: Integer; Contents: string);
procedure FocusCell(Wich: Integer);
function IsDayName(I: Integer): Boolean;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Paint;Case
procedure UpdateCells;
function GetCellFromPos(X, Y: Integer): Integer;
procedure GetCellRect(Wich: Integer; var R: TRect);
function GetCount: Integer;
function GetFirstCell: Integer;
function GetItem(Index: Integer): TVrCalendarItem;
function GetLastCell: Integer;
procedure SetBorderWidth(Value: Integer);
procedure SetDaysColor(Value: TColor);
procedure SetDaysFont(Value: TFont);
procedure SetDaysVisible(Value: Boolean);
procedure SetFocusColor(Value: TColor);
procedure SetGridColor(Value: TColor);
procedure SetPassiveColor(Value: TColor);
procedure SetStyle(Value: TVrCalendarStyle);
procedure WMGetDlgCode(var Message: TWMGetDlgCode);
procedure WMKillFocus(var Message: TWMKillFocus);
procedure WMSetFocus(var Message: TWMSetFocus);
procedure WMSize(var Message: TWMSize);| Properties |
property Align :
property BorderWidth : Integer
property Color :
property DaysColor : TColor
property DaysFont : TFont
property DaysVisible : boolean
property DragCursor :
property DragMode :
property Enabled :
property FocusColor : TColor
property Font :
property GridColor : TColor
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PassiveColor : TColor
property PopUpMenu :
property ReadOnly : Boolean
property ShowHint :
property Style : TVrCalendarStyle
property TabOrder :
property TabStop :
property Visible :
property Day : Word
property Month : Word
property Year : Word
property Count : Integer
property Items : TVrCalendarItem| Events |
event OnChange : TNotifyEvent
event OnClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FBorderWidth : Integer;
FButton : TMouseButton;
FButtonDown : Boolean;
FCellXSize : Integer;
FCellYSize : Integer;
FColumns : Integer;
FCurrent : Integer;
FDay : Word;
FDaysColor : TColor;
FDaysFont : TFont;
FDaysVisible : Boolean;
FFocusColor : TColor;
FGridColor : TColor;
FHasFocus : Boolean;
FItems : TList;
FMonth : Word;
FMonthOffset : Integer;
FOnChange : TNotifyEvent;
FPassiveColor : TColor;
FReadOnly : Boolean;
FRows : Integer;
FStyle : TVrCalendarStyle;
FYear : Word;