IPrxChart.UndoRedo

Синтаксис Fore

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

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

Описание

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

Пример Fore

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Report: IPrxReport;
    OBJUnRed: IUndoRedo;
Begin
    MB := MetabaseClass.Active;
    MObj:= MB.ItemById("Report").Edit;
    Report := MObj As IPrxReport;
    OBJUnRed:= ((Report.ActiveSheet as ITabSheet).Objects.Item(0).Extension As IPrxChart).UndoRedo;
    OBJUnRed.Enabled:= True;
    OBJUnRed.Limit:= 100;
    MObj.Save;
End Sub UserProc;

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

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.ForeSystem;
Imports Prognoz.Platform.Interop.Tab;
…
Public Shared Sub Main(Params : StartParams);
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Report: IPrxReport;
    OBJUnRed: IUndoRedo;
Begin
    MB := Params.Metabase;
    MObj:= MB.ItemById["Report"].Edit();
    Report:= MObj As IPrxReport;
    OBJUnRed:= ((Report.ActiveSheet As ITabSheet).Objects.Item[0].Extension As IPrxChart).UndoRedo;
    OBJUnRed.Enabled:= True;
    OBJUnRed.Limit:= 100;
    MObj.Save();
End Sub;

См. также:

IPrxChart