Se produce después de que el título del
grupo especificado por Index se haya exportado
Descripción
Puede usar este evento para aplicar formato adicional al área del título de grupo
Sintaxis
TAfterGroup =
procedure (Sender: TObject; GroupIndex: Integer; GroupRow:
IXLSRange; GroupCell:
IXLSRange) of object;
| Sender |
TObject. Especifica TDataToXLS componente que triggered evento |
| GroupIndex |
Integer. Índice basado en 1 del grupo |
| GroupRow |
IXLSRange. Representa un rango que contiene el área completa del título de grupo |
| GroupCell |
IXLSRange. Representa una celda que contiene el valor del grupo |
Ejemplo
Este ejemplo aplica formato adicional al área del título de 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;