TGridColumns

type TGridColumns = class(TCollection)

protected

  function GetOwner; override;

  procedure Update(); override;

  procedure TitleFontChanged;

  procedure FontChanged;

  procedure RemoveColumn();

  procedure MoveColumn(); virtual;

  procedure ExchangeColumn();

  procedure InsertColumn();

public

  constructor Create();

  function Add;

  procedure Clear;

  function ColumnByTitle();

  function RealIndex();

  function IndexOf();

  function IsDefault;

  function HasIndex();

  function VisibleIndex();

  property Grid: TCustomGrid; [r]

  property Items []: TGridColumn; default; [rw]

  property VisibleCount: Integer; [r]

  property Enabled: Boolean; [r]

end;

TGridColumns

TObject