IChartExternLegend.SymbolSize

Fore Syntax

SymbolSize: IGxSizeF;

Fore.NET Syntax

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

Description

The SymbolSize property determines the icon size of elements of the chart legend.

Fore Example

To execute the example, add links to the Chart, Drawing, Metabase, Report, and Tab system assemblies. Executing the example requires a regular report with the Report identifier. The report includes the following objects: a chart and an external legend.

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;

After executing the example the legend will contain icons of the legend element with the size 3*3 mm.

Fore.NET Example

To execute the example, add links to the Chart, Drawing, Metabase, Report, and Tab system assemblies. Executing the example requires a regular report with the Report identifier. The report includes the following objects: a chart and an external legend.

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;

After executing the example the legend will contain icons of the legend element with the size 3*3 mm.

See also:

IChartExternLegend