Sub Globals
Private index As Int
Private CustomListView1 As CustomListView
Private button1 As Button
End Sub
Sub CreateListItem(Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize("")
Activity.AddView(p, 0, 0, Width, Height)
p.LoadLayout("cust2")
p.RemoveView
Return p
End Sub
Sub Button1_Click()
index=CustomListView1.GetItemFromView(Sender)
Log(index)
modl
End Sub
Sub modl
Select index
Case 0
wid.a=0
CallSub(widok,"wte")
StartActivity(wid)
Case 1
StartActivity(dk)
Case 2
Log(index)
Case 3