Source position: fpg_popupcalendar.pas line 61
type TfpgOnDateSetEvent = procedure(
Sender: TObject;
const ADate: TDateTime
) of object;