'Variablen
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim Panel1, Panel2, Panel3, Panel4 As Panel
Dim ListPanel As List
Dim tblAusgabe As Table
Dim WebView1 As WebView
'.....
end sub
'Main Programm
If FirstTime Then StateManager.ResetState("main")
Activity.AddMenuItem("Options","mnuOptions")
Activity.AddMenuItem("Über","mnuInfo")
varFirstRun=False
Panel1.Initialize("") : Panel1.Visible = False
Panel2.Initialize("") : Panel2.Visible = False
Panel3.Initialize("") : Panel3.Visible = False
Panel4.Initialize("") : Panel4.Visible = False
WebView1.Initialize("WebView1") : WebView1.Visible =False
Activity.AddView(Panel1, 0, 0, 100%x, 100%y)
Activity.AddView(Panel2, 0, 0, 100%x, 100%y)
Activity.AddView(Panel3, 0, 0, 100%x, 100%y)
Activity.AddView(Panel4, 0, 0, 100%x, 100%y)
Activity.AddView(WebView1, 0, 0, 100%x, 100%y)
Panel1.LoadLayout("Log")
Panel2.LoadLayout("Info")
Panel3.LoadLayout("Setup")
Panel4.LoadLayout("Leer")
tblAusgabe.Initialize(Me, tblAusgabe,1,Gravity.LEFT , True) '1 weil mit LoadFromCSV geladen wird (siehe Beschreibung zum Befehl in der Class)
tblAusgabe.CellAlignment = Bit.OR(Gravity.LEFT, Gravity.CENTER_VERTICAL)
tblAusgabe.HeaderColor = Colors.Blue
tblAusgabe.HeaderTextColor = Colors.Yellow
tblAusgabe.TableColor = Colors.Black
tblAusgabe.RowHeight = 30dip
tblAusgabe.AllowSelection = False
tblAusgabe.AddToActivity(Panel4, 0, 0, 100%x, 100%y)
'tblAusgabe.AddToView(Panel4,0,0,100%x,100%y)
tblAusgabe.MultiSelect = False
tblAusgabe.SortColumn = False
tblAusgabe.SingleLine = False
Panel1.Visible = True
ListPanel.Initialize
ListPanel.Add(Panel1)
ListPanel.Add(Panel2)
ListPanel.Add(Panel3)
ListPanel.Add(Panel4)
'weiterer Code.....
end Sub
Sub Activity_Resume
StateManager.loadStateFile
StateManager.RestoreState(Activity,"Main",0,ListPanel) '0 für unbegrenzt, ansonsten in Min?!!
End Sub
Sub Activity_Pause (UserClosed As Boolean)
If UserClosed Then
StateManager.ResetState("Main")
Else
StateManager.SaveState(Activity, "Main",ListPanel)
End If
StateManager.SaveSettings
End Sub