UndoRedo: IUndoRedo;
UndoRedo: Prognoz.Platform.Interop.ForeSystem.IUndoRedo;
Свойство UndoRedo определяет параметры стека изменений (отмены/повтора) диаграммы.
Для выполнения примера предполагается наличие диаграммы в регламентном отчете с идентификатором «REGULAR_REPORT». В модуле подключите системные сборки: Metabase, Chart, Report, Tab.
Sub UserProc;
Var
Sheet: IPrxSheet;
MB: IMetabase;
Report: IPrxReport;
Chart: IChart;
UnRed:IUndoRedo;
Begin
// Получим репозиторий
MB := MetabaseClass.Active;
// Получим регламентный отчет
Report := MB.ItemById("REGULAR_REPORT").Edit As IPrxReport;
// Получим стек изменений регламентного отчета
UnRed:= Report.UndoRedo;
// Зададим доступность и количество изменений стека
UnRed.Enabled:= True;
UnRed.Limit:= 20;
(Report As IMetabaseObject).Save;
End Sub UserProc;
После выполнения примера для диаграммы будет доступен стек изменений с ограничением по количеству операций отмены/повтора до 20 действий.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
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
Sheet: IPrxSheet;
MB: IMetabase;
Report: IPrxReport;
Chart: IChart;
UnRed:IUndoRedo;
Begin
// Получим репозиторий
MB:= Params.Metabase;
// Получим регламентный отчет
Report := MB.ItemById["REGULAR_REPORT"].Edit() As IPrxReport;
// Получим стек изменений регламентного отчета
UnRed:= Report.UndoRedo;
// Зададим доступность и количество изменений стека
UnRed.Enabled:= True;
UnRed.Limit:= 20;
(Report As IMetabaseObject).Save();
End Sub;
См. также: