IChartExternLegendItems.Swap

Синтаксис Fore

Swap(FromIndex: Integer; ToIndex: Integer);

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

Swap(System.Int32,System.Int32);

Параметры

FromIndex. Индекс элемента легенды, который будет заменен.

ToIndex. Индекс элемента легенды, на который будет заменен элемент.

Описание

Метод Swap позволяет менять местами заданные элементы внешней легенды.

Пример Fore

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

Sub Main;
Var
    mb: IMetabase;
    rep: IPrxReport;
    legend: IPrxChartLegend;
    chartlegend: IChartExternLegend;
    items: IChartExternLegendItems;
Begin
    mb := MetabaseClass.Active;
    rep := mb.ItemById("OBJ12399").Open(Null) As IPrxReport;
    legend := (rep.ActiveSheet As IprxTable).TabSheet.Objects.Item(1).Extension As IPrxChartLegend;
    chartlegend := legend As IChartExternLegend;
    items := chartlegend.InternalItems;
    items.Swap(0,3);
End Sub Main;

После выполнения примера первый и четвертый элементы легенды поменяются местами.

Пример Fore.NET

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

...

Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    rep: IPrxReport;
    legend: IPrxChartLegend;
    chartlegend: IChartExternLegend;
    items: IChartExternLegendItems;
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;
    chartlegend.AxisIcon := ChartLegendAxisIcon.claiAxis;
    items := chartlegend.InternalItems;
    items.Swap(0,3);
    (rep As IMetabaseObject).Save();
End Sub;

После выполнения примера первый и четвертый элементы легенды поменяются местами.

См. также:

IChartExternLegendItems