يحدث بعد تصدير عنوان
group المحدد بواسطة Index
الوصف
يمكنك استخدام هذا الحدث لتطبيق تنسيق إضافي على منطقة عنوان المجموعة
بناء الجملة
TDBGridAfterGroup =
procedure (Sender: TObject; GroupIndex: Integer; GroupRow:
IXLSRange; GroupCell:
IXLSRange) of object;
| Sender |
TObject يحدد المكون TGridToXLS الذي أطلق الحدث |
| GroupIndex |
Integer فهرس يعتمد على الواحد للمجموعة |
| 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;