Index로 지정된 그룹 제목이 내보내진 후에 발생합니다
설명
이 이벤트를 사용하여 그룹 제목 영역에 추가 서식을 적용할 수 있습니다
예제
TAfterGroup =
procedure (Sender: TObject; GroupIndex: Integer; GroupRow:
IXLSRange; GroupCell:
IXLSRange) of object;
| Sender |
TObject. 지정합니다 TDataToXLS 컴포넌트 triggered 이벤트 |
| GroupIndex |
Integer. 그룹의 1부터 시작하는 인덱스 |
| GroupRow |
전체 그룹 제목 영역을 포함하는 범위를 나타내는 IXLSRange |
| GroupCell |
그룹 값을 포함하는 셀을 나타내는 IXLSRange |
예제
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;