События компонента DrawGrid

Событие OnColumnMoved возникает при перемещении столбца. Оно происходит только тогда, когда подсвойство goColMoving равно True. Заголовок обработчика этого события имеет вид:

procedure TForml.DrawGridlColumnMoved(Sender:TObject; Fromlndex, Tolndex:Integer);

Параметр FromIndex содержит «старый» индекс столбца, а ToIndex - - «новый» индекс перемещаемого столбца.

Событие OnRowMoved возникает при перемещении строки. Оно происходит только тогда, когда goRowMoving включено в свойство Options. Заголовок обработчика этого события имеет вид:

procedure TForml.StringGridlRowMoved(Sender:TObject; Fromlndex, Tolndex: Integer);

Событие OnTopLeftChanged происходит при изменении зна­чения TopRow или LeftCol в результате прокрутки рабочей зоны:

procedure TForml.DrawGridlTopLeftChanged(Sender:TObject);

Событие OnSelectCell возникает при попытке выделить ячейку с табличными координатами (ACol, ARow). В параметре CanSelect обработчик сообщает о возможности выделения ячейки. Установите его значение равным False, чтобы пользователь не мог выделять ячейку. Событие описывается следующим образом:

procedure TForml.DrawGridlSelectCell (Sender:TObject; ACol, ARow:Integer; var CanSelect:Boolean);

Событие OnSetEditText возникает по завершении редактирования ячейки с координатами (ACol, ARow). В параметре Value обработчик получает результат ввода или редактирования текста. Событие произойдет только в том случае, когда свойство Options содержит значение go Editing. Описывается событие так:

procedure TForml.DrawGridlSetEditText(Sender:TObject; ACol, ARow:Integer; const Value:String);

События OnGetMaskEdit и OnGetEditText возникают при редактировании текста в ячейке с табличными координатами (ACol, ARow). В параметре Value первого события обработчик должен вернуть шаблон для редактора TEditMask. Параметр Value для события OnGetEditText должен содержать текстовую информацию для редактора TEditMask. Описание событий выглядит следующим образом:

procedure TForml.DrawGridlGetEditMask(Sender:TObject;

ACol, ARow:Integer; varValue:string);

procedure TForml.DrawGridlGetEditText(Sender:TObject;

ACol, ARow:Integer; var Value:String);

Событие OnDrawCell происходит всякий раз, когда необходимо прорисовать ячейку таблицы. Обработчик данного события полностью берет на себя ответственность за размещение в каждой ячейке нужных данных. Описывается следующим образом:

procedure TForml.DrawGridlDrawCell (Sender:TObject; ACol, ARow: Integer; Rect:TRect; State:TGridDrawState);

Событие происходит в случае необходимости перерисовки ячейки с номером столбца ACol и номером строки ARow. Параметр Rect определяет прямоугольник прорисовки, a State — состояние ячейки (gdSelected — ячейка выделена, gdFocused — ячейка сфокусирована, gdFixed — ячейка принадлежит фиксированной зоне таблицы). Для прорисовки используется свойство Canvas.

ЗАДАЧА Приложение для просмотра шрифтов.

Создайте приложение, которое позволяет просматривать символы системных шрифтов.