IChartExternLegendItem.Thumbnail

Синтаксис Fore

Thumbnail(Size: IGxSizeF): IGxImage;

Синтаксис Fore.NET

Thumbnail[Size: Prognoz.Platform.Interop.Drawing.GxSizeF]: Prognoz.Platform.Interop.Drawing.GxImage;

Описание

Свойство Thumbnail возвращает пиктограмму элемента внешней легенды диаграмм. Свойство доступно только для чтения.

Параметры

Size. Размер пиктограммы.

Пример

Для выполнения примера предполагается наличие регламентного отчета с идентификатором «Report». В отчете присутствуют объекты:  диаграмма и внешняя легенда.

Sub UserProc;
Var
    sizef: IGxSizeF;
    image: IgxImage;
    mb: IMetabase;
    rep: IPrxReport;
    legend: IPrxChartLegend;
    chartlegend: IChartExternLegend;
    items: IChartExternLegendItems;
    item: IChartExternLegendItem;
Begin
    mb := MetabaseClass.Active;
    rep := mb.ItemById("OBJ12399").Open(Null) As IPrxReport;
    legend := (rep.ActiveSheet As IprxTable).TabSheet.Objects.Item(2).Extension As IPrxChartLegend;
    chartlegend := legend As IChartExternLegend;
    items := chartlegend.InternalItems;
    item := Items.Item(0);
    sizef := New GxSizeF.Create(12, 12);
    image := item.Thumbnail(sizef);
    image.SaveToFile("c:\123.bmp");
End Sub UserProc;

После выполнения примера в файл будет сохранена пиктограмма с заданными размерами.

Пример Fore.NET

Для выполнения примера предполагается наличие регламентного отчета с идентификатором «Report». В отчете присутствуют объекты:  диаграмма и внешняя легенда.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Chart;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Drawing;

...

Public Shared Sub Main(Params: StartParams);
Var
    sizef: GxSizeFClass;
    image: IgxImage;
    mb: IMetabase;
    rep: IPrxReport;
    legend: IPrxChartLegend;
    chartlegend: IChartExternLegend;
    items: IChartExternLegendItems;
    item: IChartExternLegendItem;
Begin
    mb := Params.Metabase;
    rep := mb.ItemById["OBJ42859"].Edit() As IPrxReport;
    legend := (rep.ActiveSheet As IprxTable).TabSheet.Objects.Item[1].Extension As IPrxChartLegend;
    chartlegend := legend As IChartExternLegend;
    items := chartlegend.InternalItems;
    item := Items.Item[0];
    sizef := New GxSizeFClass();
    sizef.Create(12, 12);
    image := item.Thumbnail[sizef];
    image.SaveToFile("c:\123.bmp");
    End Sub;
End Class;

После выполнения примера в файл будет сохранена пиктограмма с заданными размерами.

См. также:

IChartExternLegendItem