Class TVrCalendar (unit vrcal)

Inherits from

TCustomControl

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;



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;