PixelWidth: Integer;
The PixelWidth property determines width of an exported icon in pixels.
Executing the example requires a regular report with the REP_TABSHEET identifier in the repository. On a report sheet there should be positioned icons of the images collection of the (ITabSheet.Images) table, for example:
Sub UserProc;
Var
MB: IMetabase;
Report: IPrxReport;
SheetT: IPrxTable;
Tab: ITabSheet;
Exp: ITabIconExporter;
Begin
MB := MetabaseClass.Active;
Report := MB.ItemById("REP_TABSHEET").Bind As IPrxReport;
SheetT := Report.Sheets.Item(0) As IPrxTable;
Tab := SheetT.TabSheet;
Exp := New TabIconExporter.Create;
Exp.TabSheet := Tab;
Exp.IconIndex := 0;
Exp.PixelHeight := 32;
Exp.PixelWidth := 32;
Exp.ExportToFile("C:\Icon_0.bmp", "bmp");
End Sub UserProc;
After executing the example the first sheet icon is exported to a file with the specified format. Size of the icon is 32x32 pixels.
See also: