Ocorre após o título do
grupo especificado por Index ser exportado
Descrição
Você pode usar este evento para aplicar formatação adicional à área de título do grupo
Sintaxe
TAfterGroup =
procedure (Sender: TObject; GroupIndex: Integer; GroupRow:
IXLSRange; GroupCell:
IXLSRange) of object;
| Sender |
TObject. Especifica TDataToXLS componente que triggered evento |
| GroupIndex |
Integer. Índice do grupo baseado em 1 |
| GroupRow |
IXLSRange. Representa um intervalo que contém toda a área do título do grupo |
| GroupCell |
IXLSRange. Representa uma célula que contém o valor do grupo |
Exemplo
Este exemplo aplica formatação adicional para a área de título do grupo
procedure TForm1.DataToXLS1AfterGroup(Sender: TObject;
GroupIndex: Integer; GroupRow: IXLSRange; GroupCell: IXLSRange);
begin
GroupRow.Merge;
With GroupRow do begin
case GroupIndex of
1: Font.Size := 16;
2: Font.Size := 14;
3: Font.Size := 12;
else Font.Size := 10;
end;
end;
end;