TcxSchedulerGetEventText = procedure(Sender: TObject; AEvent: TcxSchedulerControlEvent; var AText: string) of object;