checkbox list

'Activity module
Sub Process_Globals
    
End Sub

Sub Globals
    Dim ItemHeight As Int
    ItemHeight = 40dip
    Dim ScrollView1 As ScrollView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    ScrollView1.Initialize(0)
    Activity.AddView(ScrollView1, 0, 0, 100%x, 80%y)
    Dim Button1 As Button
    Button1.Initialize("Button1")
    Button1.Text = "Show selected"
    Activity.AddView(button1, 25%x, 82%y, 50%x, 10%y)
    CreateList(50)
End Sub
Sub Button1_Click
    Dim sb As StringBuilder
    sb.Initialize
    sb.Append("Selected items:").Append(CRLF)
    For i = 0 To ScrollView1.Panel.NumberOfViews - 1
        Dim chk As CheckBox
        chk = ScrollView1.Panel.GetView(i)
        If chk.Checked Then sb.Append(chk.Text).Append(CRLF)
    Next
    Msgbox(sb.ToString, "")
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub CreateList(NumberOfItems As Int)
    ScrollView1.Panel.Height = ItemHeight * NumberOfItems
    For i = 1 To NumberOfItems
        Dim chk As CheckBox
        chk.Initialize("")
        chk.Text = "CheckBox" & i
        ScrollView1.Panel.AddView(chk, 0, ItemHeight * (i-1), ScrollView1.Width, ItemHeight - 2dip)
    Next
End Sub