IChartExternLegend.UndoRedo

Синтаксис Fore

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

UndoRedo: Prognoz.Platform.Interop.ForeSystem.UndoRedo;

Описание

Свойство UndoRedo определяет параметры стека изменений (отмены/повтора) внешней легенды диаграммы.

Пример Fore

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

Sub UserProc;
Var
    mb: IMetabase;
    rep: IPrxReport;
    chartlegend: IChartExternLegend;
    objects: ITabObjects;
    UnRed: IUndoRedo;
Begin
    mb := MetabaseClass.Active;
    rep := mb.ItemById("Report").Edit As IPrxReport;
    objects := (rep.ActiveSheet As IprxTable).TabSheet.Objects;
    chartlegend := objects.Item(1) As IChartExternLegend;
    chartlegend.AddChart(objects.Item(2) As ichart);
    UnRed:=chartlegend.UndoRedo;
    UnRed.Enabled:= True;
    UnRed.Limit:= 50;
    (rep As IMetabaseObject).Save;
End Sub UserProc;

После выполнения примера для внешней легенды диаграммы будет доступен стек изменений с ограничением по количеству операций отмены/повтора до 50 действий.

Пример Fore.NET

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

Public Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    rep: IPrxReport;
    chartlegend: IChartExternLegend;
    objects: ITabObjects;
    UnRed: IUndoRedo;
Begin
    mb := Params.Metabase;
    rep := mb.ItemById["Report"].Edit() As IPrxReport;
    objects := (rep.ActiveSheet As IprxTable).TabSheet.Objects;
    chartlegend := legend As IChartExternLegend;
    chartlegend.AddChart(objects.Item[1] As DxChart);
    UnRed:= ((rep.ActiveSheet As ITabSheet).Objects.Item[2] As IPrxChartLegend).UndoRedo;
    UnRed.Enabled:= True;
    UnRed.Limit:= 50;
   (rep As IMetabaseObject).Save();
End Sub;

См. также:

IChartExternLegend