UndoRedo: IUndoRedo;
UndoRedo: Prognoz.Platform.Interop.ForeSystem.IUndoRedo;
The UndoRedo property determines parameters of Undo/Redo stack for the regular report chart.
Executing the example requires a regular report with the Report identifier.
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;
After executing the example the Undo/Redo stack is available for the chart, the maximum number of undo/redo operations is set to 100.
Executing the example requires a regular report with the Report identifier.
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;
After executing the example the Undo/Redo stack is available for the chart, the maximum number of undo/redo operations is set to 100.
See also: