TabSheet: ITabSheet;
Свойство TabSheet определяет таблицу, значок которой необходимо экспортировать.
В рассматриваемом примере предполагается существование объекта Report типа IPrxReport, на листе которого расположены значки, например:
Sub UserProc;
Var
Report: IPrxReport;
Exp: ITabIconExporter;
Begin
Exp := New TabIconExporter.Create;
Exp.TabSheet := (Report.Sheets.Item(0) As IPrxTable).TabSheet;
Exp.IconIndex := 0;
Exp.ExportToFile("C:\Icon1.bmp","bmp");
End Sub UserProc;
После выполнения примера первый значок листа будет экспортирован в файл заданного формата.
См. также: