Два метода класса могут оказаться полезными для процедуры прорисовки:

function CellRect(ACol, ARow:Longint): TRect;

Возвращает прямоугольник ячейки по номерам столбца A Col и ряда ARow.

i

procedure MouseToCell(X, Y: Integer; var ACol, ARow: Longint);

Возвращает табличные координаты ячейки ACol и ARow по экранным координатам (X, Y) точки.

TMovedEvent = procedure (Sender: TObject; Fromlndex, Tolndex: Longint) of object; property OnColumnMoved: TMovedEvent;

Возникает при перемещении столбца с индексом Fromlndex в положение, определяемое индексом Tolndex.

TGridDrawState = set of (gdSelected, gdFocused, gdFixed) ; TDrawCellEvent = procedure (Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState) of object; property OnDrawCell: TDrawCellEvent;

Возникает при необходимости перерисовать ячейку с табличными координатами (Col,Row): Rect - прямоугольник прорисовки; State -состояние ячейки (gdSelected - ячейка выделена; gdFocused - ячейка сфокусирована; gdFixed - ячейка принадлежит фиксированной зоне таблицы). Для прорисовки используется табличное свойство Canvas.

TGetEditEvent = procedure (Sender: TObject; ACol, ARow: Longint; var Value: String) of object; property OnGetEditMask: TGetEditEvent;

Возникает при редактировании текста в ячейке с табличными координатами (ACol,ARow). В параметре Value обработчик должен вернуть шаблон для редактора TEditMask.

property OnGetEditText: TGetEditEvent;

Возникает при редактировании текста в ячейке с табличными координатами (ACol,ARow). В параметре Value обработчик должен вернуть текст для редактора TEditMask (см. событие OmGetEditMask). •

property OnRowMoved: TMovedEvent;

Возникает при перемещении ряда с индексом Fromlndex в положение, определяемое индексом Tolndex (см. событие OnColMoved).

SelectCellEvent = procedure (Sender: TObject; Col, Row: Long-Int; var CanSelect: Boolean) of object/property OnSelectCell: TSe-lectCellEvent;

Возникает при попытке выделить ячейку с табличными координатами (Col,Row). В параметре CanSelect обработчик сообщает о возможности выделения ячейки.

TSetEditEvent = procedure (Sender: TObject; ACol, ARow: Longint; const Value: String) of object; property OnSetEditText: TSetEditEvent;

Возникает при завершении редактирования ячейки {ACol.ARow). В параметре Value обработчик получает результат ввода или редактирования текста.

property OnTopLeftChanged: TNoti-fyEvent;

Возникает после изменения значения TopRow или LeftCol в результате прокрутки рабочей зоны.

Свойство

Значение

Комментарий

Align

alClient

Таблица занимает всю клиентскую часть окна.

ColCount

2

В таблице 2 колонки.

FixedCols

0

Нет фиксированных колонок.

FixedRows

0

Нет фиксированных рядов.

Name

dgDraw

Имя таблицы.

Options.goEditing

True

Разрешено редактирование текста.

RowCount

2

В таблице 2 строки.

ScrollBars

sbNone

Не надо вставлять полосы прокрутки.