Возникает после того, как поле с индексом FieldIndex текущей записи сохранено в ячейку
Описание
Используется для условного форматирования любой экспортируемой ячейки в области данных
Синтаксис
TAfterCell =
procedure (Sender: TObject; Cell:
IXLSRange; RowIndex, FieldIndex: Integer; Field: TField) of object;
| Sender |
TObject. Указывает TDataToXLS компонент который triggered событие |
| Cell |
IXLSRange. Представляет экспортируемую ячейку |
| RowIndex |
Integer. Индекс текущей строки |
| FieldIndex |
Integer. индекс для field |
| Field |
TField. Объект, представляющий поле набора данных |
Пример
Задаёт цвет заливки для нечётных столбцов серебристым
procedure TForm1.DataToXLS1AfterCell(Sender: TObject;
Cell: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);
begin
if Odd(FieldIndex + 1) then Cell.Interior.Color := ColorToRGB(clSilver);
end;