IChart.UndoRedo

Синтаксис Fore

UndoRedo: IUndoRedo;

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

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

Описание

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

Пример Fore

Для выполнения примера предполагается наличие диаграммы в регламентном отчете с идентификатором REGULAR_REPORT.

Добавьте ссылки на системные сборки: Metabase, Chart, Report, Tab, ForeSystem (для примера на Fore.NET).

Sub UserProc;
Var
    Report: IPrxReport;
    Sheet: IPrxSheet;
    PrxTable: IPrxTable;
    TabSheet: ITabSheet;
    Chart: IChart;
    MB: IMetabase;
    UndoRedo: IUndoRedo;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим диаграмму в регламентном отчёте
    Report := MB.ItemById("REGULAR_REPORT").Edit As IPrxReport;
    Sheet := Report.Sheets.Item(0);
    PrxTable := Sheet As IPrxTable;
    TabSheet := PrxTable.TabSheet;
    Chart := TabSheet.Objects.Item(0).Extension As IChart;
    // Получим стек изменений диаграммы
    UndoRedo := Chart.UndoRedo;
    // Зададим доступность и количество изменений стека
    UndoRedo.Enabled:= True;
    UndoRedo.Limit:= 5;
    (Report As IMetabaseObject).Save;
End Sub UserProc;

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

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

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 Shared Sub Main(Params: StartParams);
Var
    Report: IPrxReport;
    Sheet: IPrxSheet;
    PrxTable: IPrxTable;
    TabSheet: ITabSheet;
    Chart: IChart;
    MB: IMetabase;
    UndoRedo: IUndoRedo;
Begin
    // Получим репозиторий
    MB := Params.Metabase;
    // Получим диаграмму в регламентном отчёте
    Report := MB.ItemById["REGULAR_REPORT"].Edit() As IPrxReport;
    Sheet := Report.Sheets.Item[0];
    PrxTable := Sheet As IPrxTable;
    TabSheet := PrxTable.TabSheet;
    Chart := TabSheet.Objects.Item[0].Extension As IChart;
    // Получим стек изменений диаграммы
    UndoRedo := Chart.UndoRedo;
    // Зададим доступность и количество изменений стека
    UndoRedo.Enabled:= True;
    UndoRedo.Limit:= 5;
    (Report As IMetabaseObject).Save();
End Sub;

См. также:

IChart