Se declanșează după ce titlul
grupului specificat de Index este exportat
Descriere
type TDataToXLSAfterGroupEvent = procedure(Sender: TObject; Index: Integer; Cell: IXLSRange) of object;
Sintaxă
TAfterGroup =
procedure (Sender: TObject; GroupIndex: Integer; GroupRow:
IXLSRange; GroupCell:
IXLSRange) of object;
| Sender |
TObject. Specifică componenta TDataToXLS care a declanșat evenimentul |
| GroupIndex |
Integer. Indexul grupului, bazat pe 1 |
| GroupRow |
IXLSRange. Reprezintă un interval care conține întreaga zonă a titlului grupului |
| GroupCell |
IXLSRange. Reprezintă o celulă care conține valoarea grupului |
Exemplu
Acest exemplu aplică formatare suplimentară pentru zona titlului grupului
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;