Az Index által meghatározott
csoport cím exportálása után következik be
Szintaxis
Ezt az eseményt a csoport cím terület további formázásához használhatja
Leírás
TAfterGroup =
procedure (Sender: TObject; GroupIndex: Integer; GroupRow:
IXLSRange; GroupCell:
IXLSRange) of object;
| Sender |
TObject. Meghatározza azt a TDataToXLS komponenst, amely kiváltotta az eseményt |
| GroupIndex |
Integer. A csoport 1-alapú indexe |
| GroupRow |
IXLSRange. A teljes csoportcím-területet tartalmazó tartományt jelöli |
| GroupCell |
IXLSRange. A csoportértéket tartalmazó cellát jelöli |
Példa
Ez a példa további formázást alkalmaz a csoport cím területre
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;