TSpiderTable

type TSpiderTable = class(TComponent)

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetColumnCount();

  procedure SetHeader();

  procedure AddRow();

  function GetContent;

  procedure Clear;

  property Contents: string; [r]

published

  property Border: Byte; [rw]

  property TableExtraParams: string; [rw]

  property HeaderExtraParams: string; [rw]

  property ColumnCount: SmallInt; [rw]

  property HeaderColor: string; [rw]

  property DataSet: TDataSet; [rw]

  property RowColor: string; [rw]

  property OnDrawHeader: THeaderEvent; [rw]

  property OnDrawRow: TRowEvent; [rw]

  property OnDrawDataCell: TCellEvent; [rw]

end;

TSpiderTable

TObject