Occurs after the
group title specified by Index is exported
Overview
You can employ this event to apply additional formatting to the group title area
Syntax
TDBGridAfterGroup =
procedure (Sender: TObject; GroupIndex: Integer; GroupRow:
IXLSRange; GroupCell:
IXLSRange) of object;
| Sender |
TObject. Determines the TGridToXLS component that triggered the event |
| GroupIndex |
Integer. One-based index of the group |
| GroupRow |
IXLSRange. Denotes a range which contains the whole group title area |
| GroupCell |
IXLSRange. Denotes a cell which contains the group value |
Example
This example applies additional formatting for the group title area
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;