TCellList

type TCellList = class(TObjectList)

public

  RowHeight: Integer;

  SpecRowHeight: TSpecWidth;

  RowSpanHeight: Integer;

  BkGnd: Boolean;

  BkColor: TColor;

  BkImage: ThtString;

  APRec: PtPositionRec;

  BreakBefore: Boolean;

  BreakAfter: Boolean;

  KeepIntact: Boolean;

  RowType: TRowType;

  constructor Create();

  constructor CreateCopy();

  procedure Initialize;

  function DrawLogicA();

  procedure DrawLogicB();

  function Draw();

  procedure Add();

  property Items []: TCellObjBase; default; [r]

end;

TCellList

TObject