| Class TRCACalendar (unit Rcacal) |
TCustomControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Clear;
function DateToNumber (AMonth, ADay : Integer) : Integer;
function DaysPerMonth (AYear, AMonth : Integer) : Integer;
destructor Destroy;
procedure DrawOntoBitmap (var BMP : TBitmap);
function GetDateColor (ADate : Integer) : TColor;
function IsLeapYear (AYear : Integer) : Boolean;
function IsSelected (Number : Integer) : Boolean;
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);
procedure Paint;
procedure DoPaint (Sender : TObject);
function MouseToDate (X, Y : Integer) : Integer;
procedure SetBorderStyle (BorderStyle : TBorderStyle);
procedure SetCellHeight (CellHeight : Integer);
procedure SetCellWidth (CellWidth : Integer);
procedure SetFocusedColor (Color : TColor);
procedure SetGutter (Gutter : Integer);
procedure SetHeightWidth;
procedure SetSelectedColor (Color : TColor);
procedure SetStartStop (SetStop : Boolean);
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;