Ocorre após o título de coluna especificado por ColumnIndex ser guardado na célula
Descrição
Pode utilizar este evento para aplicar formatação condicional à célula de cabeçalho
Sintaxe
TDBGridAfterTitle =
procedure(Sender: TObject; Cell:
IXLSRange; ColumnIndex: Integer; Column: TColumn) of object;
| Sender |
TObject. Especifica o componente TGridToXLS que desencadeou o evento |
| Cell |
IXLSRange que representa a célula com o título da coluna |
| ColumnIndex |
Integer. O índice da coluna |
| Column |
TColumn. Objeto que representa a coluna |
Exemplo
Este exemplo define a largura da coluna com o índice 3
procedure TForm1.GridToXLS1AfterTitle(Sender: TObject;
Cell: IXLSRange; ColumnIndex: Integer; Column: TColumn);
begin
if ColumnIndex = 3 then Cell.ColumnWidth := 30;
end;
Este exemplo mostra como alterar o texto do título de coluna
procedure TForm1.GridToXLS1AfterTitle(Sender: TObject;
Cell: IXLSRange; ColumnIndex: Integer; Column: TColumn);
begin
Cell.Value := StringReplace(Cell.Value, '_', ' ', [rfReplaceAll]);
end;