HotXLS Docs
Home Contents Overview

AfterGroup 事件

在由 Index 指定的 分组标题导出之后发生

说明

您可以使用此事件对分组标题区域应用附加格式

语法

TAfterGroup = procedure (Sender: TObject; GroupIndex: Integer; GroupRow: IXLSRange; GroupCell: IXLSRange) of object;
Sender TObject。指定触发该事件的 TDataToXLS 组件
GroupIndex Integer。分组的从 1 开始的索引
GroupRow IXLSRange。表示包含整个分组标题区域的区域
GroupCell IXLSRange。表示包含分组值的单元格

示例

此示例对分组标题区域应用附加格式 

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;