UndoRedo: IUndoRedo;
UndoRedo: Prognoz.Platform.Interop.ForeSystem.UndoRedo;
Свойство UndoRedo возвращает параметры стека изменений объекта экспресс-отчета.
Для использования параметров стека изменений необходимо, чтобы свойство IUndoRedo.Enabled принимало значение True.
Для выполнения примера в репозитории предполагается наличие экспресс-отчета с идентификатором «EXPRESS_REPORT», содержащего пузырьковую диаграмму.
Добавьте ссылки на системные сборки: Express, Metabase.
Sub UserProc;
Var
Metabase: IMetabase;
Analyzer: IEaxAnalyzer;
Object: IEaxObject;
UndoRedoObject: IUndoRedo;
Begin
// Получим репозиторий
Metabase := MetabaseClass.Active;
// Получим экспресс-отчёт
Analyzer := Metabase.ItemById("EXPRESS_REPORT").Edit As IEaxAnalyzer;
// Получим пузырьковую диаграмму
Object := Analyzer.BubbleChart As IEaxObject;
// Получим стек изменений пузырьковой диаграммы
UndoRedoObject := Object.UndoRedo;
// Зададим доступность и количество изменений стека
UndoRedoObject.Enabled := True;
UndoRedoObject.Limit := 5;
//Сохраним изменения
(Analyzer As IMetabaseObject).Save;
End Sub UserProc;
После выполнения примера для пузырьковой диаграммы экспресс-отчета будет доступен стек изменений с ограничением по количеству операций отмены/повтора, равному 5 действиям.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.ForeSystem;
Public Shared Sub Main(Params: StartParams);
Var
Metabase: IMetabase;
Analyzer: IEaxAnalyzer;
Object: IEaxObject;
UndoRedoObject: IUndoRedo;
Begin
// Получим репозиторий
Metabase := Params.Metabase;
// Получим экспресс-отчёт
Analyzer := Metabase.ItemById["EXPRESS_REPORT"].Edit() As IEaxAnalyzer;
// Получим пузырьковую диаграмму
Object := Analyzer.BubbleChart As IEaxObject;
// Получим стек изменений пузырьковой диаграммы
UndoRedoObject := Object.UndoRedo;
// Зададим доступность и количество изменений стека
UndoRedoObject.Enabled := True;
UndoRedoObject.Limit := 5;
//Сохраним изменения
(Analyzer As IMetabaseObject).Save();
End Sub;
См. также: