Ocorre após o campo especificado por FieldIndex do registro atual ser salvo na célula
Descrição
Você pode usar este evento para aplicar formatação condicional a qualquer célula exportada na área de detalhe
Sintaxe
TAfterCell =
procedure (Sender: TObject; Cell:
IXLSRange; RowIndex, FieldIndex: Integer; Field: TField) of object;
| Sender |
TObject. Especifica TDataToXLS componente que triggered evento |
| Cell |
IXLSRange. Representa a célula exportada |
| RowIndex |
Integer. Índice da linha atual |
| FieldIndex |
Inteiro. índice de field |
| Field |
TField. Um objeto que representa o campo do conjunto de dados |
Exemplo
Este exemplo define a cor interior para colunas ímpares como prata
procedure TForm1.DataToXLS1AfterCell(Sender: TObject;
Cell: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);
begin
if Odd(FieldIndex + 1) then Cell.Interior.Color := ColorToRGB(clSilver);
end;