Class TRCACalendar (unit Rcacal)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);

TODO {************************************************************** main methods **************************************************************


Functions

procedure Clear;


function DateToNumber (AMonth, ADay : Integer) : Integer;


function DaysPerMonth (AYear, AMonth : Integer) : Integer;


destructor Destroy;

set up rest

procedure DrawOntoBitmap (var BMP : TBitmap);

************************************************************ support methods **************************************************************

function GetDateColor (ADate : Integer) : TColor;


function IsLeapYear (AYear : Integer) : Boolean;


function IsSelected (Number : Integer) : Boolean;

************************************************************ public support methods **************************************************************

function NumberToDate (Number : Integer) : TDateTime;


procedure SetDateColor (ADate : Integer; Color : TColor; Update : Boolean);


procedure DoEnter;


procedure DoExit;


procedure KeyDown (var Key:Word; Shift:TShiftSTate);


procedure MouseDown (Button:TMouseButton; Shift:TShiftState; X, Y: Integer);

if

procedure Paint;


procedure DoPaint (Sender : TObject);

with

function MouseToDate (X, Y : Integer) : Integer;


procedure SetBorderStyle (BorderStyle : TBorderStyle);

************************************************************ property editor methods **************************************************************

procedure SetCellHeight (CellHeight : Integer);


procedure SetCellWidth (CellWidth : Integer);


procedure SetFocusedColor (Color : TColor);


procedure SetGutter (Gutter : Integer);


procedure SetHeightWidth;

swap days over if needed

procedure SetSelectedColor (Color : TColor);


procedure SetStartStop (SetStop : Boolean);

get grid pos

procedure SetYear (Year : TYear);


procedure WMGetDlgCode(var Message: TWMGetDlgCode);


Properties

property BorderStyle : TBorderStyle


property CellHeight : Integer


property CellWidth : Integer


property Color :


property Cursor :


property DayFont : TFont


property DragCursor :


property DragMode :


property Enabled :


property FocusedColor : TColor


property Font :


property Gutter : Integer


property MonthFont : TFont


property ParentShowHint :


property PopUpMenu :


property SelectedColor : TColor


property SelectionCount : TSelection


property ShowHint :


property TabOrder :


property Visible :


property Year : TYear


property FocusedDay : Integer


property StartDay : Integer


property StopDay : Integer


Events

Variables

FBorderStyle : TBorderStyle;


FCellHeight : Integer;


FCellWidth : Integer;


FDayColorArray : array [0..MaxDays] of TColor;


FDayFont : TFont;


FFocused : Boolean;


FFocusedColor : TColor;


FFocusedDay : Integer;


FGutter : Integer;


FMonthFont : TFont;


FMonthHeight : Integer;


FMonthWidth : Integer;


FSelectedColor : TColor;


FSelectionCount : TSelection;


FStartDay : Integer;


FStopDay : Integer;


FYear : TYear;



Constructors


constructor Create(AOwner: TComponent);

TODO {************************************************************** main methods **************************************************************


Functions


procedure Clear;


function DateToNumber (AMonth, ADay : Integer) : Integer;


function DaysPerMonth (AYear, AMonth : Integer) : Integer;


destructor Destroy;

set up rest


procedure DrawOntoBitmap (var BMP : TBitmap);

************************************************************ support methods **************************************************************


function GetDateColor (ADate : Integer) : TColor;


function IsLeapYear (AYear : Integer) : Boolean;


function IsSelected (Number : Integer) : Boolean;

************************************************************ public support methods **************************************************************


function NumberToDate (Number : Integer) : TDateTime;


procedure SetDateColor (ADate : Integer; Color : TColor; Update : Boolean);


procedure DoEnter;


procedure DoExit;


procedure KeyDown (var Key:Word; Shift:TShiftSTate);


procedure MouseDown (Button:TMouseButton; Shift:TShiftState; X, Y: Integer);

if


procedure Paint;


procedure DoPaint (Sender : TObject);

with


function MouseToDate (X, Y : Integer) : Integer;


procedure SetBorderStyle (BorderStyle : TBorderStyle);

************************************************************ property editor methods **************************************************************


procedure SetCellHeight (CellHeight : Integer);


procedure SetCellWidth (CellWidth : Integer);


procedure SetFocusedColor (Color : TColor);


procedure SetGutter (Gutter : Integer);


procedure SetHeightWidth;

swap days over if needed


procedure SetSelectedColor (Color : TColor);


procedure SetStartStop (SetStop : Boolean);

get grid pos


procedure SetYear (Year : TYear);


procedure WMGetDlgCode(var Message: TWMGetDlgCode);


Properties


property BorderStyle : TBorderStyle


property CellHeight : Integer


property CellWidth : Integer


property Color :


property Cursor :


property DayFont : TFont


property DragCursor :


property DragMode :


property Enabled :


property FocusedColor : TColor


property Font :


property Gutter : Integer


property MonthFont : TFont


property ParentShowHint :


property PopUpMenu :


property SelectedColor : TColor


property SelectionCount : TSelection


property ShowHint :


property TabOrder :


property Visible :


property Year : TYear


property FocusedDay : Integer


property StartDay : Integer


property StopDay : Integer


Events


Variables


FBorderStyle : TBorderStyle;


FCellHeight : Integer;


FCellWidth : Integer;


FDayColorArray : array [0..MaxDays] of TColor;


FDayFont : TFont;


FFocused : Boolean;


FFocusedColor : TColor;


FFocusedDay : Integer;


FGutter : Integer;


FMonthFont : TFont;


FMonthHeight : Integer;


FMonthWidth : Integer;


FSelectedColor : TColor;


FSelectionCount : TSelection;


FStartDay : Integer;


FStopDay : Integer;


FYear : TYear;