Redo([Steps: Integer = 1]);
Redo(Steps: integer);
Steps. Количество шагов. По умолчанию параметр равен единице.
Метод Redo производит повтор заданного количества отмененных действий. В случае если параметр не задан, то метод повторяет последнее отмененное действие.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента WorkspaceBox и компонента UiWorkspace с наименованием «UiWorkspace1», являющимся источником данных для WorkspaceBox.
Добавьте ссылки на системные сборки: Andy, Drawing, Ui.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
wsp: IWxWorkspace;
Arrow: IWxArrow;
b, b1: Boolean;
Begin
wsp := UiWorkspace1.WxWorkspace;
Arrow := wsp.CreateArrow;
Arrow.FirstPoint := New GxPointF.Create(1, 2);
Arrow.LastPoint := New GxPointF.Create(3, 19);
Arrow.Angle := 10;
wsp.Undo(wsp.UndoNumSteps);
If wsp.Modified Then
b := WinApplication.YesNoCancelBox("Сохранить измененные данные?", b1);
If b1 Then
Else
wsp.Redo(wsp.RedoNumSteps);
End If;
End If;
End Sub Button1OnClick;
Imports Prognoz.Platform.Interop.Andy;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Ui;
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
wsp: IWxWorkspace;
Arrow: IWxArrow;
WinAppCls: WinApplicationClass = New WinApplicationClassClass();
b, b1: Boolean;
Begin
wsp := uiWorkspaceNet1.WxWorkspace;
Arrow := wsp.CreateArrow();
Arrow.FirstPoint.Create(1, 2);
Arrow.LastPoint.Create(3, 19);
Arrow.Angle := 10;
wsp.Undo(wsp.UndoNumSteps);
If wsp.Modified Then
b := WinAppCls.YesNoCancelBox("Сохранить измененные данные?", Var b1, New IWin32WindowForeAdapter(Self));
If b1 Then
Else
wsp.Redo(wsp.RedoNumSteps);
End If;
End If;
End Sub;
После выполнения примера будет произведен повтор всех возможных действий.
См. также: