Ocorre depois de o título da coluna especificado por FieldIndex ser guardado na célula
Descrição
Pode utilizar este evento para aplicar formatação condicional a qualquer célula de cabeçalho
Sintaxe
TAfterTitle =
procedure(Sender: TObject; Cell:
IXLSRange; FieldIndex: Integer; Field: TField) of object;
| Sender |
TObject. Especifica o componente TDataToXLS que desencadeou o evento |
| Cell |
IXLSRange que representa a célula com o título da coluna |
| FieldIndex |
Integer. O índice do campo |
| Field |
TField. Objeto que representa o campo do conjunto de dados |
Exemplo
Este exemplo mostra como alterar o texto do título da coluna
procedure TForm1.DataToXLS1AfterTitle(Sender: TObject;
Cell: IXLSRange; FieldIndex: Integer; Field: TField);
begin
if FieldIndex = 2 then Cell.ColumnWidth := 30;
end;
This example shows how to change the text of column title