Sub Activity_Create(FirstTime As Boolean)
Dim i As Int
SCVConfig.Initialize(500)
Activity.LoadLayout("main")
Activity.LoadLayout("ConfigLayout")
Activity.AddView(SCVConfig,10%x,25%y,80%x,65%y)
For i = 0 To PanelNb - 1
Dim LabelScrollPos As Label
Dim LabelField As Label
Dim edgText As EditText
pnl.Initialize("pnlTest")
SCVConfig.Panel.Addview(pnl,0,5dip + i *PanelHeight,100%x,PanelHeight)
pnl.LoadLayout("ConfigScrollLayout")
For n = 0 To pnl.NumberOfViews - 1
pnl.GetView(n).Tag = i
Next
Dim lbl As Label
lbl = pnl.GetView(0)
lbl.Text = "Field " & i
'getview(1) is the editbox
lbl = pnl.GetView(2)
lbl.Text = ConfigLabelList.Get(i)
If (i Mod 2) = 1 Then
pnl.Color = Colors.DarkGray
Else
pnl.Color = Colors.Transparent
End If
Next
SCVConfig.Panel.Height = PanelNb*PanelHeight