Class TRCACalendar (unit Rcacal) |
Inherits from
TCustomControl
constructor Create(AOwner: TComponent);
-
TODO
{**************************************************************
main methods
**************************************************************
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);
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
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;
constructor Create(AOwner: TComponent);
TODO
{**************************************************************
main methods
**************************************************************
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);
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
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;