| Class TfrmCalPop (unit Calpop) |
TForm
//// Calendar Form Type Definition /////
| Constructors |
constructor Create( AOwner: TComponent );| Functions |
procedure FormCancel;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormPaint(Sender: TObject);
function DaysInMonth(nMonth : Integer): Integer;
procedure DrawButtons;
procedure DrawCalendarBorder;
procedure DrawDates;
procedure DrawDaysHeader;
procedure DrawFocusFrame(nIndex : Integer);
procedure DrawMonthHeader;
function GetCalendarRect : TRect;
function GetIndexFromDate : Integer;
function GetIndexFromPoint(nLeft : Integer ; nTop : Integer) : Integer;
function GetLeftButtonRect : TRect;
function GetMonthBegin: Integer;
function GetRectFromIndex(nIndex : Integer): TRect;
function GetRightButtonRect : TRect;
function IsLeapYear: Boolean;
procedure LoadDateArray ;
procedure NextDay;
procedure NextMonth;
procedure NextWeek;
procedure NextYear;
procedure PrevDay;
procedure PrevMonth;
procedure PrevWeek;
procedure PrevYear;
procedure SetDate(nDays : Integer);| Properties |
| Events |
| Variables |
ctlParent : TComponent;
m_CurrentDateIndex : Integer;
m_CurrentDateSelected : TDateTime;
m_CurrentDay : Word;
m_CurrentMonth : Word;
m_CurrentYear : Word;
m_DateArray : array[1..42] of string[2];
m_FontHeight : Integer;
m_FontWidth : Integer;
m_MouseDown : BOOL;
m_PreviousDateIndex : Integer;
m_PreviousDateRect : TRect;
m_PreviousDay : Word;
m_PreviousMonth : Word;
m_PreviousYear : Word;| Constructors |
constructor Create( AOwner: TComponent );************************ Create ************************ ***** This procedure is used to initialize values ***** ***** for control owner, calendar position and ***** ***** other resources. *****
| Functions |
procedure FormCancel;******************* Form Cancel ************************
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);***************** Form Key Down ************************
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);******************** Form Mouse Down *******************
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);***************** Form Mouse Move **********************
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);***************** Form Mouse Up ************************
procedure FormPaint(Sender: TObject);******************** Form Paint ************************
function DaysInMonth(nMonth : Integer): Integer;******************** Days In Month ********************* ***** This function returns the number of days in ***** ***** the month specified in nMonth. *****
procedure DrawButtons;****************** Draw Butttons ***********************
procedure DrawCalendarBorder;************* Draw Calendar Border *********************
procedure DrawDates;********************* Draw Dates ***********************
procedure DrawDaysHeader;********************* Draw Days ************************
procedure DrawFocusFrame(nIndex : Integer);****************** Draw Focus Frame ********************
procedure DrawMonthHeader;****************** Draw Month Header *******************
function GetCalendarRect : TRect;******************** Get Calendar Rectangle ******************** ***** Get the rectangle used for the calendar section *****
function GetIndexFromDate : Integer;****************** Get Index From Date *****************
function GetIndexFromPoint(nLeft : Integer ; nTop : Integer) : Integer;**************** Get Index From Point ******************
function GetLeftButtonRect : TRect;******************* Get Left Button Rectangle ****************** ***** Get the rectangle used for the left button. *****
function GetMonthBegin: Integer;************************* Get Month Begin ************************** ***** This function Gets the index value of the first day of the ***** ***** month. ***** **********************************************************************
function GetRectFromIndex(nIndex : Integer): TRect;****************** Get Rectangle From Index ******************** ***** Get the rectangle used for the calendar section *****
function GetRightButtonRect : TRect;****************** Get Right Button Rectangle ****************** ***** Get the rectangle used for the right button. *****
function IsLeapYear: Boolean;******************** Is Leap Year **********************
procedure LoadDateArray ;******************** LoadDateArray *********************
procedure NextDay;******************* Get Next Day ***********************
procedure NextMonth;****************** Get Next Nonth **********************
procedure NextWeek;****************** Get Next Week ***********************
procedure NextYear;GetNextYear
procedure PrevDay;****************** Get Previous Day ********************
procedure PrevMonth;****************** GetPreviousMonth ********************
procedure PrevWeek;****************** Get Previous Week *******************
procedure PrevYear;***************** GetPrevious Year *********************
procedure SetDate(nDays : Integer);*************** Set Date ************************** **** This procedure adjusts the date by nDays **** **** nDays can be possitive or negative. It **** **** also populates the vars YEAR, MONTH and DAY ****
| Properties |
| Events |
| Variables |
ctlParent : TComponent;
m_CurrentDateIndex : Integer;
m_CurrentDateSelected : TDateTime;
m_CurrentDay : Word;
m_CurrentMonth : Word;
m_CurrentYear : Word;
m_DateArray : array[1..42] of string[2];
m_FontHeight : Integer;
m_FontWidth : Integer;
m_MouseDown : BOOL;
m_PreviousDateIndex : Integer;
m_PreviousDateRect : TRect;
m_PreviousDay : Word;
m_PreviousMonth : Word;
m_PreviousYear : Word;