TJvTFAppt

type TJvTFAppt = class(TPersistent)

protected

  FID: string;

  FModified: Boolean;

  FScheduleManager: TJvTFScheduleManager;

  FConnections: TStringList;

  FSchedules: TStringList;

  FDeleting: Boolean;

  FUpdating: Boolean;

  procedure Notify();

  procedure NotifyManager();

  procedure NotifySchedule();

  function GetConnection();

  function GetSchedule();

  procedure CheckConnections;

  procedure Connect();

  procedure Disconnect();

  procedure Change;

  procedure InternalClearSchedules;

  procedure DeleteApptNotification;

  procedure PostApptNotification;

  procedure RefreshNotification;

  property Destroying: Boolean; [r]

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure Assign(); override;

  procedure SetStartEnd();

  procedure SetModified;

  function Modified; dynamic;

  property ScheduleManager: TJvTFScheduleManager; [r]

  function ConnectionCount;

  property Connections []: TJvTFSched; [r]

  function ScheduleCount;

  property Schedules []: string; [r]

  procedure AddSchedule();

  procedure RemoveSchedule();

  procedure AssignSchedules();

  procedure ClearSchedules;

  function IndexOfSchedule();

  function Shared;

  procedure Post;

  procedure Refresh;

  procedure Delete;

  procedure BeginUpdate;

  procedure EndUpdate;

  property Updating: Boolean; [r]

  property ImageMap: TJvTFCustomImageMap; [rw]

  procedure RefreshControls;

  property Refreshed: Boolean; [rw]

published

  property ID: string; [r]

  property StartDate: TDate; [r]

  property EndDate: TDate; [r]

  property StartTime: TTime; [r]

  property EndTime: TTime; [r]

  property StartDateTime: TDateTime; [r]

  property EndDateTime: TDateTime; [r]

  property Description: string; [rw]

  property AlarmEnabled: Boolean; [rw]

  property AlarmAdvance: Integer; [rw]

  property Data: Integer; [rw]

  property Persistent: Boolean; [rw]

  property Color: TColor; [rw]

  property BarColor: TColor; [rw]

  property Glyph: TPicture; [rw]

end;

TJvTFAppt

TObject