Source position: jvtfdays.pas line 240
type TJvTFDrawApptEvent = procedure(
Sender: TObject;
ACanvas: TCanvas;
ARect: TRect;
Appt: TJvTFAppt;
Selected: Boolean
) of object;