TVirtualGrid

type TVirtualGrid = class

protected

  procedure doDestroyItem();

  procedure doNewItem();

  procedure DeleteColRow();

  procedure MoveColRow();

  procedure ExchangeColRow();

  procedure InsertColRow();

  procedure DisposeCell(); virtual;

  procedure DisposeColRow(); virtual;

  function IsColumnIndexValid();

  function IsRowIndexValid();

public

  constructor Create;

  destructor Destroy; override;

  procedure Clear;

  function GetDefaultCell;

  function GetDefaultColRow;

  property ColCount: Integer; [rw]

  property RowCount: Integer; [rw]

  property Celda []: PCellProps; [rw]

  property Cols []: PColRowProps; [rw]

  property Rows []: PColRowProps; [rw]

end;

TVirtualGrid

TObject