Turbo Calendar
Copyright (c) 1990 by Borland International, Inc.
This unit provide a objects for creating a simple calendar.
Common usage in a aplication would be:
Procedure ShowCalendar;
Var
CalendarWindow: PCalendarWindow;
Begin
CalendarWindow := New(PCalendarWindow, Init(New(PDayDialog,Init)));
DeskTop^.Insert(CalendarWindow);
End;
The DayDialog object has four virtual methods that me wish to be change
to fit the needs of a specific users application.
Function IsSpecial(Day, Month, Year: Word): Boolean;
Procedure GetActiveDays;
Function ReadDay: PCollection;
Procedure WriteDay(Collection: PCollection);
|