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