Unit Enhcalnd

***************************************************** TCalendarLabel Component The TRngSelCalendar component is an improved version of the calendar provided on the Samples page of Delphi 1.02. Improvements include the ability to store strings in the cells, provide foreground color for occupied cells and drag/drop abilities. The TCalendarLabel component attaches to a TRngSelCalendar and displays the month and year. TCalLabel responds to the HookEvent event. See unit EList.pas for details. Paul Warren HomeGrown Software Development (c) 1997 Langley British Columbia. (604) 856-6523 e-mail: hg_soft@uniserve.com Home page: http://users.uniserve.com/~hg_soft *****************************************************

Classes

TBaseCalendar -
TCalendarLabel -
TRngSelCalendar -
TStringsCalendar -

Functions

Register - register components

Types

TCalendarStrings
TCellDragOver
TDateChange
TDayOfWeek
TDroppedCell
TMonthChange
TNeedStrings
TYearChange

Constants

Variables


Functions


procedure Register;

register components

Types


TCalendarStrings = array[0..6, 0..6] of TStringList;
Published declarations
TCellDragOver = procedure(Sender, Source: TObject; X, Y: Integer;
    State: TDragState; var Accept: Boolean) of object

TDateChange = procedure(Sender: TObject; NewDate: TDateTime) of object

TDayOfWeek = 0..6

TDroppedCell = procedure(Sender: TObject; ACol, ARow: LongInt;
    var Value: string) of object

TMonthChange = procedure(Sender: TObject; Month: Integer) of object

TNeedStrings = procedure(Sender: TObject; ACol, ARow: LongInt;
    ADate: TDateTime; var Value: TStringList) of object

TYearChange = procedure(Sender: TObject; Year: Integer) of object

Constants


Variables