UndoRedo: IUndoRedo;
UndoRedo : Prognoz.Platform.Interop.ForeSystem.IUndoRedo;
Свойство UndoRedo определяет параметры стека изменений (отмены/повтора) внешней легенды диаграммы регламентного отчета.
Для выполнения примера предполагается наличие регламентного отчета с идентификатором «REGULAR_REPORT», в котором добавлена диаграмма и внешняя легенда. Подключите системные сборки: Metabase, Report, Tab.
Sub UserProc;
Var
MB: IMetabase;
Report: IPrxReport;
Legend: IPrxChartLegend;
Objects: ITabObjects;
UnRed: IUndoRedo;
Begin
MB := MetabaseClass.Active;
Report := MB.ItemById("REGULAR_REPORT").Edit As IPrxReport;
Objects := (Report.ActiveSheet As IprxTable).TabSheet.Objects;
Legend := Objects.Item(1).Extension As IPrxChartLegend;
UnRed := Legend.UndoRedo;
UnRed.Enabled := True;
UnRed.Limit := 5;
(Report As IMetabaseObject).Save;
End Sub UserProc;
После выполнения примера для внешней легенды диаграммы будет доступен стек изменений с ограничением по количеству операций отмены/повтора до 5 действий.
Для примера Fore.NET подключите дополнительно системную сборку ForeSystem. Все остальные необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.ForeSystem;
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Report: IPrxReport;
Legend: IPrxChartLegend;
Objects: ITabObjects;
UnRed: IUndoRedo;
Begin
MB := Params.Metabase;
Report := MB.ItemById["REGULAR_REPORT_LEGEND"].Edit() As IPrxReport;
Objects := (Report.ActiveSheet As IprxTable).TabSheet.Objects;
Legend := Objects.Item[1].Extension As IPrxChartLegend;
UnRed := Legend.UndoRedo;
UnRed.Enabled := True;
UnRed.Limit := 5;
(Report As IMetabaseObject).Save();
End Sub;
См. также: