پس از صادر شدن عنوان
گروه مشخصشده توسط Index رخ میدهد
توضیحات
میتوانید از این رویداد برای اعمال قالببندی اضافی به ناحیه عنوان گروه استفاده کنید
نحو
TAfterGroup =
procedure (Sender: TObject; GroupIndex: Integer; GroupRow:
IXLSRange; GroupCell:
IXLSRange) of object;
| Sender |
TObject. مؤلفه TDataToXLS را که این رویداد را فعال کرده است مشخص میکند |
| GroupIndex |
Integer. شاخص یکمبنای گروه |
| 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;