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 |
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 |