The UndoManager class implements a simple undo / redo system.
It is compatible with B4J, B4A and B4i.
It maintains an internal stack of states. You can use any custom type you like to represent each state as long as it is supported by B4XSerializator.
Using this class is simple. You just need to call AddState whenever there is a new state. UndoManager will compare it to the current top state and will discard duplicate states. This allows us to use a timer to add the states:
Type UndoData (Text As String, clr As Int) Sub Timer1_Tick manager.AddState(GetState) 'nothing will happen if the state is the same as the previous one End Sub Sub GetState As UndoData Dim ud As UndoData ud.Initialize ud.Text = TextArea1.Text ud.clr = fx.Colors.To32Bit(ColorPicker1.SelectedColor) Return ud End Sub
All that is left to do is to call undo or redo and set back the states:
Sub btnUndo_Action Dim ud As UndoData = manager.Undo SetState(ud) End Sub Sub SetState (ud As UndoData) TextArea1.Text = ud.Text ColorPicker1.SelectedColor = fx.Colors.From32Bit(ud.clr) End Sub
If you are using it with B4i then you need to use iRandomAccessFile v1.51+.
3.3 KB Views: 345