Tritt auf, nachdem der durch Index angegebene
Gruppen-Titel exportiert wurde
Beschreibung
Sie können dieses Ereignis verwenden, um zusätzliche Formatierungen auf den Gruppenüberschriftsbereich anzuwenden
Syntax
TDBGridAfterGroup =
procedure (Sender: TObject; GroupIndex: Integer; GroupRow:
IXLSRange; GroupCell:
IXLSRange) of object;
| Sender |
TObject. Gibt TGridToXLS Komponente dass triggered Ereignis |
| GroupIndex |
Integer. Einsbasierter Index der Gruppe |
| GroupRow |
IXLSRange. Repräsentiert einen Bereich, der den gesamten Gruppen-Titelbereich enthält |
| GroupCell |
IXLSRange. Repräsentiert eine Zelle, die den Gruppenwert enthält |
Beispiel
Dieses Beispiel wendet zusätzliche Formatierungen auf den Gruppenüberschriftsbereich an
procedure TForm1.GridToXLS1AfterGroup(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;
else Font.Size := 12;
end;
end;
end;