TcxSchedulerIsWorkTimeEvent = procedure(Sender: TObject; AResource: TcxSchedulerStorageResourceItem; const ATime: TDateTime; var AIsWork: Boolean) of object;