Ocorre depois de o campo especificado por FieldIndex do registo actual ser guardado na célula
Descrição
Pode utilizar 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 o componente TDataToXLS que desencadeou o evento |
| Cell |
IXLSRange. Representa a célula exportada |
| RowIndex |
Integer. O índice da linha atual |
| FieldIndex |
Integer. O índice do campo |
| Field |
TField. Objeto que representa o campo do conjunto de dados |
Exemplo
This example sets the interior color for odd columns to silver
procedure TForm1.DataToXLS1AfterCell(Sender: TObject;
Cell: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);
begin
if Odd(FieldIndex + 1) then Cell.Interior.Color := ColorToRGB(clSilver);
end;