Source position: jvtfdays.pas line 250
type TJvTFDrawCornerEvent = procedure(
Sender: TObject;
ACanvas: TCanvas;
ARect: TRect;
Corner: TJvTFDaysCorner
) of object;