Se produce después de que el campo especificado por FieldIndex del registro actual se haya guardado en la celda
Descripción
Puede usar este evento para aplicar formato condicional a cualquier celda exportada en el área de detalle
Sintaxis
TAfterCell =
procedure (Sender: TObject; Cell:
IXLSRange; RowIndex, FieldIndex: Integer; Field: TField) of object;
| Sender |
TObject. Especifica TDataToXLS componente que triggered evento |
| Cell |
IXLSRange. Representa la celda que se exporta |
| RowIndex |
Integer. Índice de la fila actual |
| FieldIndex |
Entero. índice de field |
| Field |
TField. Objeto que representa el campo del conjunto de datos |
Ejemplo
Este ejemplo establece el color interior de las columnas impares en plateado
procedure TForm1.DataToXLS1AfterCell(Sender: TObject;
Cell: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);
begin
if Odd(FieldIndex + 1) then Cell.Interior.Color := ColorToRGB(clSilver);
end;