Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   Дата и Время    >>    calunit
   
 
 Turbo Calendar - Calendar Unit  Borland Int 17.09.1990

Простой модуль для создания календаря.
This unit provide a objects for creating a simple calendar.



5k 
 

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