TJvTFControl

type TJvTFControl = class(TJvCustomControl)

protected

  FDateFormat: string;

  FTimeFormat: string;

  FDragInfo: TJvTFDragInfo;

  FShift: TShiftState;

  procedure Notification(); override;

  procedure SetDateFormat(); virtual;

  procedure SetTimeFormat(); virtual;

  procedure Notify(); virtual;

  procedure ReqSchedNotification(); virtual;

  procedure RelSchedNotification(); virtual;

  procedure NotifyManager();

  procedure CNRequestRefresh(); message;

  procedure RefreshControl; dynamic;

  property DateFormat: string; [rw]

  property TimeFormat: string; [rw]

  procedure DestroyApptNotification(); virtual;

  procedure DestroySchedNotification(); virtual;

  procedure DoStartDrag(); override;

  procedure DoEndDrag(); override;

  procedure MouseDown(); override;

  procedure Navigate(); virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  function ScheduleCount;

  property Schedules []: TJvTFSched; [r]

  function FindSchedule();

  function RetrieveSchedule();

  procedure ReleaseSchedule(); virtual;

  procedure ReleaseSchedules;

  property DragInfo: TJvTFDragInfo; [r]

  procedure ProcessBatches;

published

  property ScheduleManager: TJvTFScheduleManager; [rw]

end;

TJvTFControl

TJvExCustomControl

TObject