Sub Process_Globals
End Sub
Sub Globals
Dim lv As ListView
Private EditText1 As EditText
Private Button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
lv.Clear
For i = 0 To 2
Dim retmap As Map
retmap.Initialize
retmap.Put("tag","TagValue"&i)
retmap.Put("itemID","ItemID"&i)
retmap.Put("name","ItemName"&i)
retmap.Put("line1","This is line 1")
retmap.Put("line2","This is line 2")
lv.AddTwoLines2(retmap.Get("line1"), retmap.Get("line2"), retmap)
Next
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub lv_ItemClick (Position As Int, Value As Object)
Dim retmap As Map
retmap = Value
Log("Item at Pos "&Position&" Clicked...")
Log("ItemInfos:")
Log("tag = "&retmap.Get("tag"))
Log("itemID = "&retmap.Get("itemID"))
Log("name = "&retmap.Get("name"))
Log("line 1 = "&retmap.Get("line1"))
Log("line 2 = "&retmap.Get("line2"))
End Sub
Sub Button1_Click
Dim retmap As Map
retmap.Initialize
retmap.Put("tag","TagValue")
retmap.Put("itemID","ItemID")
retmap.Put("name","ItemName")
retmap.Put("line1",EditText1.Text)
retmap.Put("line2","This is line 2")
lv.AddTwoLines2(retmap.Get("line1"), retmap.Get("line2"), retmap)
End Sub