指定された GroupIndex のグループタイトルがワークシートに保存された後に発生します
説明
このイベントを使用して、グループタイトル領域に追加の書式設定を適用できます
構文
TAfterGroup =
procedure (Sender: TObject; GroupIndex: Integer; GroupRow:
IXLSRange; GroupCell:
IXLSRange) of object;
| Sender |
TObject. 指定します TDataToXLS コンポーネント triggered イベント |
| GroupIndex |
グループの 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;