YOUSEFUL / DELPHI / COMPONENTS

`TAtlasGridColumns`

The grid's collection of columns.

Class Unit Atlas.VGrid · Inherits TOwnedCollection · Product Atlas Virtual Grid

Description

An owned collection of TAtlasGridColumn with the usual TCollection members (Count, Clear, Delete, BeginUpdate, EndUpdate). Wrap several changes in BeginUpdate/EndUpdate so the grid recomputes once. As a published collection it can be edited in the Object Inspector, but the design package has not been tested in the IDE.

Members

Member	Kind	What it does
`Add`	method	Adds a column with default settings (data column 0) and returns it.
`Items`	property	Column `Index`.

Properties

`Items` property

property Items[Index: Integer]: TAtlasGridColumn read GetItem; default;

Column Index. This is the default property, so Grid.Columns[1] works.

Methods

`Add` method

function Add: TAtlasGridColumn;

Adds a column with default settings (data column 0) and returns it.

Grid.Columns.Add.DataIndex := 2;

Examples

Replace the columns in one batch

Clears and rebuilds the columns inside BeginUpdate/EndUpdate.

uses Atlas.VGridData, Atlas.VGrid;

procedure ChooseColumns(Grid: TAtlasVirtualGrid; Orders: TAtlasMemoryData);
var Column: TAtlasGridColumn;
begin
  Grid.Columns.BeginUpdate;
  try
    Grid.Columns.Clear;
    Column := Grid.Columns.Add;
    Column.DataIndex := 0;                   // Customer
    Column.Width := 160;
    Column := Grid.Columns.Add;
    Column.DataIndex := 1;                   // Amount
    Column.Title := 'Amount (EUR)';
    Column.Format := '#,##0.00';
    Column.Alignment := caRight;
    Column.Total := tkSum;
  finally
    Grid.Columns.EndUpdate;
  end;
  Grid.Data := Orders;                       // existing columns are kept: Due and Paid stay hidden
end;

TAtlasGridColumn · TAtlasVirtualGrid

Also in Atlas Virtual Grid

TAtlasVirtualGrid · TAtlasMemoryData · TAtlasVirtualData · TAtlasPlotData

TAtlasGridColumns