HotXLS Delphi Excel Read Write Library / Component Developers Guide loslab Inc.

AfterGroup event

Occurs after the group title specified by Index is exported.

Description

You can use this event to apply additional formatting to the group title area.

Syntax

TAfterGroup = procedure (Sender: TObject; GroupIndex: Integer; GroupRow: IXLSRange; GroupCell: IXLSRange) of object;
Sender TObject. Specifies the TDataToXLS component that triggered the event.
GroupIndex Integer. One-based index of the group.
GroupRow IXLSRange. Represents a range which contains the whole group title area.
GroupCell IXLSRange. Represents a cell which contains the group value.

Example

This example applies additional formatting for the group title area.

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;
Copyright©2014 loslab.com