Виникає після збереження поля, вказаного FieldIndex поточного запису, до комірки
Опис
Ви можете використовувати цю подію для застосування умовного форматування до будь-якої експортованої комірки в детальній зоні
Синтаксис
TAfterCell =
procedure (Sender: TObject; Cell:
IXLSRange; RowIndex, FieldIndex: Integer; Field: TField) of object;
| Sender |
TObject. Вказує на компонент TDataToXLS, який спричинив подію |
| Cell |
IXLSRange. Представляє комірку, яку експортовано |
| RowIndex |
Integer. Індекс поточного рядка |
| FieldIndex |
Integer. Індекс поля |
| 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;