TOvcTableColumns

type TOvcTableColumns = class(TPersistent)

protected

  FList: TList;

  FOnColumnChanged: TColChangeNotifyEvent;

  FFixups: TStringList;

  FTable: TOvcTableAncestor;

  tcColumnClass: TOvcTableColumnClass;

  function GetCol();

  function GetCount;

  function GetDefaultCell();

  function GetHidden();

  function GetWidth();

  procedure SetCol();

  procedure SetCount();

  procedure SetDefaultCell();

  procedure SetHidden();

  procedure SetWidth();

  procedure SetOnColumnChanged();

  procedure tcDoColumnChanged();

public

  procedure tcNotifyCellDeletion();

  function tcStartLoading;

  procedure tcStopLoading;

  property OnColumnChanged: TColChangeNotifyEvent; [w]

  constructor Create();

  destructor Destroy; override;

  procedure Append();

  procedure Clear;

  procedure Delete();

  procedure Exchange();

  procedure Insert();

  property Count: Integer; [rw]

  property DefaultCell []: TOvcBaseTableCell; [rw]

  property Hidden []: Boolean; [rw]

  property List []: TOvcTableColumn; default; [rw]

  property Table: TOvcTableAncestor; [rw]

  property Width []: Integer; [rw]

end;

TOvcTableColumns

TObject