TJvTFGlanceCell

type TJvTFGlanceCell = class(TCollectionItem)

protected

  FDestroying: Boolean;

  FCellCollection: TJvTFGlanceCells;

  function GetDisplayName; override;

  procedure InternalSetCellDate();

  procedure SetCellDate();

  procedure SetColIndex();

  procedure SetRowIndex();

  procedure Change; virtual;

  procedure SetTitleText();

  procedure Split;

  procedure Combine;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

  property CellCollection: TJvTFGlanceCells; [r]

  function ScheduleCount;

  property Schedules []: TJvTFSched; [r]

  function IndexOfSchedule();

  function IndexOfSchedObj();

  procedure CheckConnections;

  function IsSchedUsed();

  property TitleText: string; [r]

  property SplitOrientation: TJvTFSplitOrientation; [rw]

  property SplitRef: TJvTFGlanceCell; [r]

  function IsParent;

  function IsSubCell;

  function IsSplit;

  property ParentCell: TJvTFGlanceCell; [r]

  property SubCell: TJvTFGlanceCell; [r]

published

  property Color: TColor; [rw]

  property CellDate: TDate; [rw]

  property ColIndex: Integer; [r]

  property RowIndex: Integer; [r]

  property CellPics: TJvTFCellPics; [rw]

  property CanSelect: Boolean; [rw]

end;

TJvTFGlanceCell

TObject