How to Save a View to Restore it later

M

martyguy

Member
Licensed User
Longtime User
How can I save a view (like a label or button) so that I can change the view and then restore it later.

I'd like to create a temporary view and copy the values of the view into the temporary view, but I don't know how.

Thanks for your help
 
Sort by date Sort by votes
IanMc

IanMc

Well-Known Member
Licensed User
Longtime User
StateManager is awsome!

But I wanted to also save the state of buttons and labels so I altered it as below.

Can anyone see any problems with this? Seems to work fine but I'm new to B4A
B4X: 
'StateManager v1.11
'Code module
Sub Process_Globals
   Dim states As Map
   Dim listPosition As Int
   Dim statesFileName, settingsFileName As String
   statesFileName = "state.dat"
   settingsFileName = "settings.properties"
   Dim settings As Map
End Sub
'Gets the setting value associated with the given key.
'Returns the DefaultValue parameter if the key was not found.
Sub GetSetting2(Key As String, DefaultValue As String)
   If settings.IsInitialized = False Then
      'load the stored settings
      If File.Exists(File.DirInternal, settingsFileName) Then 
         settings = File.ReadMap(File.DirInternal, settingsFileName)
      Else
         Return DefaultValue
      End If
   End If
   Dim v As String
   v = settings.GetDefault(Key.ToLowerCase, DefaultValue)
   Return v
End Sub
'Gets the setting value associated with the given key.
'Returns an empty string if the key was not found.
Sub GetSetting(Key As String)
   Return GetSetting2(Key, "")
End Sub
Sub SetSetting(Key As String, Value As String)
   If settings.IsInitialized = False Then
      'load the stored settings
      If File.Exists(File.DirInternal, settingsFileName) Then 
         settings = File.ReadMap(File.DirInternal, settingsFileName)
      Else
         settings.Initialize
      End If
   End If
   settings.Put(Key.ToLowerCase, Value)
End Sub
'Stored the settings in a file
Sub SaveSettings
   If settings.IsInitialized Then
      File.WriteMap(File.DirInternal, settingsFileName, settings)
   End If
End Sub

'Resets the stored state data for this activity.
Sub ResetState(ActivityName As String)
   loadStateFile
   If states.IsInitialized Then 
      states.Remove(ActivityName.ToLowerCase)
      writeStateToFile
   End If
End Sub
'Saves the activity state. ActivityName - Used for handling multiple activities.
Sub SaveState(Activity As Activity, ActivityName As String)
   If states.IsInitialized = False Then states.Initialize
   Dim list1 As List
   list1.Initialize
   list1.Add(DateTime.Now)
   For i = 0 To Activity.NumberOfViews - 1
      innerSaveState(Activity.GetView(i), list1)
   Next
   states.Put(ActivityName.ToLowerCase, list1)
   writeStateToFile
End Sub
Sub writeStateToFile
   Dim raf As RandomAccessFile
   raf.Initialize(File.DirInternal, statesFileName, False)
   raf.WriteObject(states, True, raf.CurrentPosition)
   raf.Close
End Sub
Sub innerSaveState(v As View, list1 As List)
   Dim data() As Object
   If v Is EditText Then
      Dim edit As EditText
      edit = v
      data = Array As Object(edit.Text, edit.SelectionStart)
   Else If v Is Button Then
      Dim button1 As Button
      button1 = v
      data = Array As Object(button1.Visible, button1.Text)
   Else If v Is Label Then
      Dim label1 As Label
      label1 = v
      data = Array As Object(label1.Visible, label1.Text, label1.Gravity)
   Else If v Is Spinner Then
      Dim spinner1 As Spinner
      spinner1 = v
      data = Array As Object(spinner1.SelectedIndex)
   Else If v Is CheckBox Then
      Dim check As CheckBox
      check = v
      data = Array As Object(check.Checked)
   Else If v Is RadioButton Then
      Dim radio As RadioButton
      radio = v
      data = Array As Object(radio.Checked)   
   Else If v Is ToggleButton Then
      Dim toggle As ToggleButton
      toggle = v
      data = Array As Object(toggle.Checked)
   Else If v Is SeekBar Then
      Dim seek As SeekBar
      seek = v
      data = Array As Object(seek.Value)
   Else If v Is TabHost Then
      Dim th As TabHost
      th = v
      data = Array As Object(th.CurrentTab)
      For i = 0 To th.TabCount - 1
         th.CurrentTab = i
      Next
      list1.Add(data)
      Dim data() As Object
      Dim r As Reflector
      r.Target = th
      Dim tabParentPanel As Panel
      tabParentPanel = r.RunMethod("getTabContentView")
      For i = 0 To tabParentPanel.NumberOfViews - 1
         innerSaveState(tabParentPanel.GetView(i), list1)
      Next
   Else If v Is ScrollView Then
      Dim sv As ScrollView
      sv = v
      data = Array As Object(sv.ScrollPosition)
      list1.Add(data)
      Dim data() As Object
      innerSaveState(sv.Panel, list1)
   Else If v Is Panel Then
      Dim panel1 As Panel
      panel1 = v
      For i = 0 To panel1.NumberOfViews - 1
         innerSaveState(panel1.GetView(i), list1)
      Next
   End If
   If data.Length > 0 Then list1.Add(data)
End Sub
Sub innerRestoreState(v As View, list1 As List)
   Dim data() As Object
   If v Is EditText Then
      Dim edit As EditText
      edit = v
      data = getNextItem(list1)
      edit.Text = data(0)
      edit.SelectionStart = data(1)
   Else If v Is Button Then
      Dim button1 As Button
      button1 = v
      data = getNextItem(list1)
      button1.Visible = data(0)
      button1.Text = data(1)
   Else If v Is Label Then
      Dim label1 As Label
      label1 = v
      data = getNextItem(list1)
      label1.Visible = data(0)
      label1.Text = data(1)
      label1.Gravity = data(2)
   Else If v Is Spinner Then
      Dim spinner1 As Spinner
      spinner1 = v
      data = getNextItem(list1)
      spinner1.SelectedIndex = data(0)
   Else If v Is CheckBox Then
      Dim check As CheckBox
      check = v
      data = getNextItem(list1)
      check.Checked = data(0)
   Else If v Is RadioButton Then
      Dim radio As RadioButton
      radio = v
      data = getNextItem(list1)
      radio.Checked = data(0)
   Else If v Is ToggleButton Then
      Dim toggle As ToggleButton
      toggle = v
      data = getNextItem(list1)
      toggle.Checked = data(0)
   Else If v Is SeekBar Then
      Dim seek As SeekBar
      seek = v
      data = getNextItem(list1)
      seek.Value = data(0)
   Else If v Is TabHost Then
      Dim th As TabHost
      th = v
      data = getNextItem(list1)
      For i = 0 To th.TabCount - 1
         th.CurrentTab = i
      Next
      th.CurrentTab = data(0)
      Dim r As Reflector
      r.Target = th
      Dim tabParentPanel As Panel
      tabParentPanel = r.RunMethod("getTabContentView")
      For i = 0 To tabParentPanel.NumberOfViews - 1
         innerRestoreState(tabParentPanel.GetView(i), list1)
      Next
   Else If v Is ScrollView Then
      Dim sv As ScrollView
      sv = v
      data = getNextItem(list1)
      sv.ScrollPosition = data(0)
      DoEvents
      sv.ScrollPosition = data(0)
      innerRestoreState(sv.Panel, list1)
   Else If v Is Panel Then
      Dim panel1 As Panel
      panel1 = v
      For i = 0 To panel1.NumberOfViews - 1
         innerRestoreState(panel1.GetView(i), list1)
      Next
   End If
End Sub

Sub getNextItem(list1 As List) As Object()
   listPosition = listPosition + 1
   Return list1.Get(listPosition)
End Sub
'Loads the stored state (if such is available)
'ActivityName - Should match the value use in SaveState
'ValidPeriodInMinutes - The validity period of this state measured in minutes. Pass 0 for an unlimited period.
'Returns true if the state was loaded
Sub RestoreState(Activity As Activity, ActivityName As String, ValidPeriodInMinutes As Int) As Boolean
   Try
      loadStateFile
      If states.IsInitialized = False Then
         Return False
      End If
      Dim list1 As List
      list1 = states.Get(ActivityName.ToLowerCase)
      If list1.IsInitialized = False Then Return
      Dim time As Long
      time = list1.Get(0)
      If ValidPeriodInMinutes > 0 AND time + ValidPeriodInMinutes * DateTime.TicksPerMinute < DateTime.Now Then
         Return False
      End If
      listPosition = 0
      For i = 0 To Activity.NumberOfViews - 1
         innerRestoreState(Activity.GetView(i), list1)
      Next
      Return True
   Catch
      Log("Error loading state.")
      Log(LastException.Message)
      Return False
   End Try
End Sub

Sub loadStateFile
   'only load the state if it is not already available in memory.
   If states.IsInitialized Then Return
   If File.Exists(File.DirInternal, statesFileName) Then
      Dim raf As RandomAccessFile
      raf.Initialize(File.DirInternal, statesFileName, False)
      states = raf.ReadObject(0)
      raf.Close
   End If
End Sub
 
Upvote 0
Erel

Erel

B4X founder
Staff member
Licensed User
Longtime User
You should move this code to the end of the If block:
B4X: 
Else If v Is Button Then
        Dim button1 As Button
        button1 = v
        data = Array As Object(button1.Visible, button1.Text)
    Else If v Is Label Then
        Dim label1 As Label
        label1 = v
        data = Array As Object(label1.Visible, label1.Text, label1.Gravity)
The reason is that some views are subclasses of other views. So a ToggleButton for example will return True for both these checks.
 
Upvote 0
IanMc

IanMc

Well-Known Member
Licensed User
Longtime User
Ok, like this?

B4X: 
'StateManager v1.11
'Code module
Sub Process_Globals
   Dim states As Map
   Dim listPosition As Int
   Dim statesFileName, settingsFileName As String
   statesFileName = "state.dat"
   settingsFileName = "settings.properties"
   Dim settings As Map
End Sub
'Gets the setting value associated with the given key.
'Returns the DefaultValue parameter if the key was not found.
Sub GetSetting2(Key As String, DefaultValue As String)
   If settings.IsInitialized = False Then
      'load the stored settings
      If File.Exists(File.DirInternal, settingsFileName) Then 
         settings = File.ReadMap(File.DirInternal, settingsFileName)
      Else
         Return DefaultValue
      End If
   End If
   Dim v As String
   v = settings.GetDefault(Key.ToLowerCase, DefaultValue)
   Return v
End Sub
'Gets the setting value associated with the given key.
'Returns an empty string if the key was not found.
Sub GetSetting(Key As String)
   Return GetSetting2(Key, "")
End Sub
Sub SetSetting(Key As String, Value As String)
   If settings.IsInitialized = False Then
      'load the stored settings
      If File.Exists(File.DirInternal, settingsFileName) Then 
         settings = File.ReadMap(File.DirInternal, settingsFileName)
      Else
         settings.Initialize
      End If
   End If
   settings.Put(Key.ToLowerCase, Value)
End Sub
'Stored the settings in a file
Sub SaveSettings
   If settings.IsInitialized Then
      File.WriteMap(File.DirInternal, settingsFileName, settings)
   End If
End Sub

'Resets the stored state data for this activity.
Sub ResetState(ActivityName As String)
   loadStateFile
   If states.IsInitialized Then 
      states.Remove(ActivityName.ToLowerCase)
      writeStateToFile
   End If
End Sub
'Saves the activity state. ActivityName - Used for handling multiple activities.
Sub SaveState(Activity As Activity, ActivityName As String)
   If states.IsInitialized = False Then states.Initialize
   Dim list1 As List
   list1.Initialize
   list1.Add(DateTime.Now)
   For i = 0 To Activity.NumberOfViews - 1
      innerSaveState(Activity.GetView(i), list1)
   Next
   states.Put(ActivityName.ToLowerCase, list1)
   writeStateToFile
End Sub
Sub writeStateToFile
   Dim raf As RandomAccessFile
   raf.Initialize(File.DirInternal, statesFileName, False)
   raf.WriteObject(states, True, raf.CurrentPosition)
   raf.Close
End Sub
Sub innerSaveState(v As View, list1 As List)
   Dim data() As Object
   If v Is EditText Then
      Dim edit As EditText
      edit = v
      data = Array As Object(edit.Text, edit.SelectionStart)
   Else If v Is Spinner Then
      Dim spinner1 As Spinner
      spinner1 = v
      data = Array As Object(spinner1.SelectedIndex)
   Else If v Is CheckBox Then
      Dim check As CheckBox
      check = v
      data = Array As Object(check.Checked)
   Else If v Is RadioButton Then
      Dim radio As RadioButton
      radio = v
      data = Array As Object(radio.Checked)   
   Else If v Is ToggleButton Then
      Dim toggle As ToggleButton
      toggle = v
      data = Array As Object(toggle.Checked)
   Else If v Is SeekBar Then
      Dim seek As SeekBar
      seek = v
      data = Array As Object(seek.Value)
   Else If v Is TabHost Then
      Dim th As TabHost
      th = v
      data = Array As Object(th.CurrentTab)
      For i = 0 To th.TabCount - 1
         th.CurrentTab = i
      Next
      list1.Add(data)
      Dim data() As Object
      Dim r As Reflector
      r.Target = th
      Dim tabParentPanel As Panel
      tabParentPanel = r.RunMethod("getTabContentView")
      For i = 0 To tabParentPanel.NumberOfViews - 1
         innerSaveState(tabParentPanel.GetView(i), list1)
      Next
   Else If v Is ScrollView Then
      Dim sv As ScrollView
      sv = v
      data = Array As Object(sv.ScrollPosition)
      list1.Add(data)
      Dim data() As Object
      innerSaveState(sv.Panel, list1)
   Else If v Is Panel Then
      Dim panel1 As Panel
      panel1 = v
      For i = 0 To panel1.NumberOfViews - 1
         innerSaveState(panel1.GetView(i), list1)
      Next
   Else If v Is Button Then
      Dim button1 As Button
      button1 = v
      data = Array As Object(button1.Visible, button1.Text)
   Else If v Is Label Then
      Dim label1 As Label
      label1 = v
      data = Array As Object(label1.Visible, label1.Text, label1.Gravity)
   End If
   If data.Length > 0 Then list1.Add(data)
End Sub
Sub innerRestoreState(v As View, list1 As List)
   Dim data() As Object
   If v Is EditText Then
      Dim edit As EditText
      edit = v
      data = getNextItem(list1)
      edit.Text = data(0)
      edit.SelectionStart = data(1)
   Else If v Is Button Then
      Dim button1 As Button
      button1 = v
      data = getNextItem(list1)
      button1.Visible = data(0)
      button1.Text = data(1)
   Else If v Is Label Then
      Dim label1 As Label
      label1 = v
      data = getNextItem(list1)
      label1.Visible = data(0)
      label1.Text = data(1)
      label1.Gravity = data(2)
   Else If v Is Spinner Then
      Dim spinner1 As Spinner
      spinner1 = v
      data = getNextItem(list1)
      spinner1.SelectedIndex = data(0)
   Else If v Is CheckBox Then
      Dim check As CheckBox
      check = v
      data = getNextItem(list1)
      check.Checked = data(0)
   Else If v Is RadioButton Then
      Dim radio As RadioButton
      radio = v
      data = getNextItem(list1)
      radio.Checked = data(0)
   Else If v Is ToggleButton Then
      Dim toggle As ToggleButton
      toggle = v
      data = getNextItem(list1)
      toggle.Checked = data(0)
   Else If v Is SeekBar Then
      Dim seek As SeekBar
      seek = v
      data = getNextItem(list1)
      seek.Value = data(0)
   Else If v Is TabHost Then
      Dim th As TabHost
      th = v
      data = getNextItem(list1)
      For i = 0 To th.TabCount - 1
         th.CurrentTab = i
      Next
      th.CurrentTab = data(0)
      Dim r As Reflector
      r.Target = th
      Dim tabParentPanel As Panel
      tabParentPanel = r.RunMethod("getTabContentView")
      For i = 0 To tabParentPanel.NumberOfViews - 1
         innerRestoreState(tabParentPanel.GetView(i), list1)
      Next
   Else If v Is ScrollView Then
      Dim sv As ScrollView
      sv = v
      data = getNextItem(list1)
      sv.ScrollPosition = data(0)
      DoEvents
      sv.ScrollPosition = data(0)
      innerRestoreState(sv.Panel, list1)
   Else If v Is Panel Then
      Dim panel1 As Panel
      panel1 = v
      For i = 0 To panel1.NumberOfViews - 1
         innerRestoreState(panel1.GetView(i), list1)
      Next
   End If
End Sub

Sub getNextItem(list1 As List) As Object()
   listPosition = listPosition + 1
   Return list1.Get(listPosition)
End Sub
'Loads the stored state (if such is available)
'ActivityName - Should match the value use in SaveState
'ValidPeriodInMinutes - The validity period of this state measured in minutes. Pass 0 for an unlimited period.
'Returns true if the state was loaded
Sub RestoreState(Activity As Activity, ActivityName As String, ValidPeriodInMinutes As Int) As Boolean
   Try
      loadStateFile
      If states.IsInitialized = False Then
         Return False
      End If
      Dim list1 As List
      list1 = states.Get(ActivityName.ToLowerCase)
      If list1.IsInitialized = False Then Return
      Dim time As Long
      time = list1.Get(0)
      If ValidPeriodInMinutes > 0 AND time + ValidPeriodInMinutes * DateTime.TicksPerMinute < DateTime.Now Then
         Return False
      End If
      listPosition = 0
      For i = 0 To Activity.NumberOfViews - 1
         innerRestoreState(Activity.GetView(i), list1)
      Next
      Return True
   Catch
      Log("Error loading state.")
      Log(LastException.Message)
      Return False
   End Try
End Sub

Sub loadStateFile
   'only load the state if it is not already available in memory.
   If states.IsInitialized Then Return
   If File.Exists(File.DirInternal, statesFileName) Then
      Dim raf As RandomAccessFile
      raf.Initialize(File.DirInternal, statesFileName, False)
      states = raf.ReadObject(0)
      raf.Close
   End If
End Sub

May I ask why?
Always eager to learn but I can't see how any of the previous 'Else If's might affect it. v is either a button or it isn't :)
 
Last edited:
Upvote 0
Erel

Erel

B4X founder
Staff member
Licensed User
Longtime User
Ok, like this?
Click to expand...
Yes.

but I can't see how any of the previous 'Else If's might affect it. v is either a button or it isn't
Click to expand...
No.
B4X: 
If v Is Label Then 'Returns true if v CAN BE TREATED as a Label.

Button1 Is Label ' = True
ToggleButton1 Is Label' = True
Label1 Is Button ' = False
...
 
Upvote 0
IanMc

IanMc

Well-Known Member
Licensed User
Longtime User
Ah right :)

A sneaky little potential logic bug :)

Thanks Erel

:sign0142:

I also changed the part in the innerRestoreState Sub like so:
B4X: 
'StateManager v1.11
'Code module
Sub Process_Globals
   Dim states As Map
   Dim listPosition As Int
   Dim statesFileName, settingsFileName As String
   statesFileName = "state.dat"
   settingsFileName = "settings.properties"
   Dim settings As Map
End Sub
'Gets the setting value associated with the given key.
'Returns the DefaultValue parameter if the key was not found.
Sub GetSetting2(Key As String, DefaultValue As String)
   If settings.IsInitialized = False Then
      'load the stored settings
      If File.Exists(File.DirInternal, settingsFileName) Then 
         settings = File.ReadMap(File.DirInternal, settingsFileName)
      Else
         Return DefaultValue
      End If
   End If
   Dim v As String
   v = settings.GetDefault(Key.ToLowerCase, DefaultValue)
   Return v
End Sub
'Gets the setting value associated with the given key.
'Returns an empty string if the key was not found.
Sub GetSetting(Key As String)
   Return GetSetting2(Key, "")
End Sub
Sub SetSetting(Key As String, Value As String)
   If settings.IsInitialized = False Then
      'load the stored settings
      If File.Exists(File.DirInternal, settingsFileName) Then 
         settings = File.ReadMap(File.DirInternal, settingsFileName)
      Else
         settings.Initialize
      End If
   End If
   settings.Put(Key.ToLowerCase, Value)
End Sub
'Stored the settings in a file
Sub SaveSettings
   If settings.IsInitialized Then
      File.WriteMap(File.DirInternal, settingsFileName, settings)
   End If
End Sub

'Resets the stored state data for this activity.
Sub ResetState(ActivityName As String)
   loadStateFile
   If states.IsInitialized Then 
      states.Remove(ActivityName.ToLowerCase)
      writeStateToFile
   End If
End Sub
'Saves the activity state. ActivityName - Used for handling multiple activities.
Sub SaveState(Activity As Activity, ActivityName As String)
   If states.IsInitialized = False Then states.Initialize
   Dim list1 As List
   list1.Initialize
   list1.Add(DateTime.Now)
   For i = 0 To Activity.NumberOfViews - 1
      innerSaveState(Activity.GetView(i), list1)
   Next
   states.Put(ActivityName.ToLowerCase, list1)
   writeStateToFile
End Sub
Sub writeStateToFile
   Dim raf As RandomAccessFile
   raf.Initialize(File.DirInternal, statesFileName, False)
   raf.WriteObject(states, True, raf.CurrentPosition)
   raf.Close
End Sub
Sub innerSaveState(v As View, list1 As List)
   Dim data() As Object
   If v Is EditText Then
      Dim edit As EditText
      edit = v
      data = Array As Object(edit.Text, edit.SelectionStart)
   Else If v Is Spinner Then
      Dim spinner1 As Spinner
      spinner1 = v
      data = Array As Object(spinner1.SelectedIndex)
   Else If v Is CheckBox Then
      Dim check As CheckBox
      check = v
      data = Array As Object(check.Checked)
   Else If v Is RadioButton Then
      Dim radio As RadioButton
      radio = v
      data = Array As Object(radio.Checked)   
   Else If v Is ToggleButton Then
      Dim toggle As ToggleButton
      toggle = v
      data = Array As Object(toggle.Checked)
   Else If v Is SeekBar Then
      Dim seek As SeekBar
      seek = v
      data = Array As Object(seek.Value)
   Else If v Is TabHost Then
      Dim th As TabHost
      th = v
      data = Array As Object(th.CurrentTab)
      For i = 0 To th.TabCount - 1
         th.CurrentTab = i
      Next
      list1.Add(data)
      Dim data() As Object
      Dim r As Reflector
      r.Target = th
      Dim tabParentPanel As Panel
      tabParentPanel = r.RunMethod("getTabContentView")
      For i = 0 To tabParentPanel.NumberOfViews - 1
         innerSaveState(tabParentPanel.GetView(i), list1)
      Next
   Else If v Is ScrollView Then
      Dim sv As ScrollView
      sv = v
      data = Array As Object(sv.ScrollPosition)
      list1.Add(data)
      Dim data() As Object
      innerSaveState(sv.Panel, list1)
   Else If v Is Panel Then
      Dim panel1 As Panel
      panel1 = v
      For i = 0 To panel1.NumberOfViews - 1
         innerSaveState(panel1.GetView(i), list1)
      Next
   Else If v Is Button Then
      Dim button1 As Button
      button1 = v
      data = Array As Object(button1.Visible, button1.Text)
   Else If v Is Label Then
      Dim label1 As Label
      label1 = v
      data = Array As Object(label1.Visible, label1.Text, label1.Gravity)
   End If
   If data.Length > 0 Then list1.Add(data)
End Sub
Sub innerRestoreState(v As View, list1 As List)
   Dim data() As Object
   If v Is EditText Then
      Dim edit As EditText
      edit = v
      data = getNextItem(list1)
      edit.Text = data(0)
      edit.SelectionStart = data(1)
   Else If v Is Spinner Then
      Dim spinner1 As Spinner
      spinner1 = v
      data = getNextItem(list1)
      spinner1.SelectedIndex = data(0)
   Else If v Is CheckBox Then
      Dim check As CheckBox
      check = v
      data = getNextItem(list1)
      check.Checked = data(0)
   Else If v Is RadioButton Then
      Dim radio As RadioButton
      radio = v
      data = getNextItem(list1)
      radio.Checked = data(0)
   Else If v Is ToggleButton Then
      Dim toggle As ToggleButton
      toggle = v
      data = getNextItem(list1)
      toggle.Checked = data(0)
   Else If v Is SeekBar Then
      Dim seek As SeekBar
      seek = v
      data = getNextItem(list1)
      seek.Value = data(0)
   Else If v Is TabHost Then
      Dim th As TabHost
      th = v
      data = getNextItem(list1)
      For i = 0 To th.TabCount - 1
         th.CurrentTab = i
      Next
      th.CurrentTab = data(0)
      Dim r As Reflector
      r.Target = th
      Dim tabParentPanel As Panel
      tabParentPanel = r.RunMethod("getTabContentView")
      For i = 0 To tabParentPanel.NumberOfViews - 1
         innerRestoreState(tabParentPanel.GetView(i), list1)
      Next
   Else If v Is ScrollView Then
      Dim sv As ScrollView
      sv = v
      data = getNextItem(list1)
      sv.ScrollPosition = data(0)
      DoEvents
      sv.ScrollPosition = data(0)
      innerRestoreState(sv.Panel, list1)
   Else If v Is Panel Then
      Dim panel1 As Panel
      panel1 = v
      For i = 0 To panel1.NumberOfViews - 1
         innerRestoreState(panel1.GetView(i), list1)
      Next
   Else If v Is Button Then
      Dim button1 As Button
      button1 = v
      data = getNextItem(list1)
      button1.Visible = data(0)
      button1.Text = data(1)
   Else If v Is Label Then
      Dim label1 As Label
      label1 = v
      data = getNextItem(list1)
      label1.Visible = data(0)
      label1.Text = data(1)
      label1.Gravity = data(2)      
   End If
End Sub

Sub getNextItem(list1 As List) As Object()
   listPosition = listPosition + 1
   Return list1.Get(listPosition)
End Sub
'Loads the stored state (if such is available)
'ActivityName - Should match the value use in SaveState
'ValidPeriodInMinutes - The validity period of this state measured in minutes. Pass 0 for an unlimited period.
'Returns true if the state was loaded
Sub RestoreState(Activity As Activity, ActivityName As String, ValidPeriodInMinutes As Int) As Boolean
   Try
      loadStateFile
      If states.IsInitialized = False Then
         Return False
      End If
      Dim list1 As List
      list1 = states.Get(ActivityName.ToLowerCase)
      If list1.IsInitialized = False Then Return
      Dim time As Long
      time = list1.Get(0)
      If ValidPeriodInMinutes > 0 AND time + ValidPeriodInMinutes * DateTime.TicksPerMinute < DateTime.Now Then
         Return False
      End If
      listPosition = 0
      For i = 0 To Activity.NumberOfViews - 1
         innerRestoreState(Activity.GetView(i), list1)
      Next
      Return True
   Catch
      Log("Error loading state.")
      Log(LastException.Message)
      Return False
   End Try
End Sub

Sub loadStateFile
   'only load the state if it is not already available in memory.
   If states.IsInitialized Then Return
   If File.Exists(File.DirInternal, statesFileName) Then
      Dim raf As RandomAccessFile
      raf.Initialize(File.DirInternal, statesFileName, False)
      states = raf.ReadObject(0)
      raf.Close
   End If
End Sub

is that ok?
 
Last edited:
Upvote 0
You must log in or register to reply here.
Top