AfterGroup 事件 - HotXLS 開發者參考

在由 Index 指定的群組標題匯出後觸發

描述

您可以使用此事件對群組標題區域套用額外的格式設定

語法

TDBGridAfterGroup = procedure (Sender: TObject; GroupIndex: Integer; GroupRow: IXLSRange; GroupCell: IXLSRange) of object;

Sender	TObject. 指定 TGridToXLS 元件 triggered 事件
GroupIndex	Integer，以 1 為起點的群組索引
GroupRow	IXLSRange，代表包含整個群組標題區的範圍
GroupCell	IXLSRange，代表包含群組值的儲存格

範例

此範例對群組標題區域套用額外的格式設定

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;