IChartExternLegend.SymbolSize

Синтаксис Fore

SymbolSize: IGxSizeF;

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

SymbolSize: Prognoz.Platform.Interop.Drawing.IGxSizeF;

Описание

Свойство SymbolSize определяет размер значка элементов легенды диаграмм.

Пример Fore

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

Sub Main;
Var
    mb: IMetabase;
    rep: IPrxReport;
    legend: IPrxChartLegend;
    chartlegend: IChartExternLegend;
    objects: ITabObjects;
    SSize: IGxSizeF;
Begin
    mb := MetabaseClass.Active;
    rep := mb.ItemById("OBJ_1").Edit As IPrxReport;
    objects := (rep.ActiveSheet As IprxTable).TabSheet.Objects;
    legend := (objects.Item(1)) As IPrxChartLegend;
    chartlegend := legend As IChartExternLegend;
    chartlegend.AddChart(objects.Item(2) As ichart);
    chartlegend.UseSerieIcon:= False;
    SSize:= New GxSizeF.Create (3,3);
    chartlegend.SymbolSize:= SSize;  
    (rep As IMetabaseObject).Save;
End Sub Main;

После выполнения примера в легенде будут использованы значки элемента легенды размером 3 на 3 миллиметра.

Пример Fore.NET

Для выполнения примера добавьте ссылки на системные сборки «Chart», «Drawing», «Metabase», «Report» и «Tab». Предполагается наличие регламентного отчета с идентификатором «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 Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    rep: IPrxReport;
    legend: IPrxChartLegend;
    chartlegend: IChartExternLegend;
    objects: ITabObjects;
    items: IChartExternLegendItems;
    SSize:  GxSizeF = New GxSizeFClass();
Begin
    mb := Params.Metabase;
    rep := mb.ItemById["OBJ_1"].Edit() As IPrxReport;
    objects := (rep.ActiveSheet As IprxTable).TabSheet.Objects;
    legend := (objects.Item[1]) As IPrxChartLegend;
    chartlegend := legend As IChartExternLegend;
    chartlegend.AddChart(objects.Item[2] As DxChart);
    chartlegend.UseSerieIcon := False;
    SSize.Create(3, 3);
    chartlegend.SymbolSize := SSize;
    (rep As IMetabaseObject).Save();
End Sub;

После выполнения примера в легенде будут использованы значки элемента легенды размером 3 на 3 миллиметра.

См. также:

IChartExternLegend