Dim i As Int
Dim altezza As Int = 4dip
For i = 1 To 22
Dim btnInside As Button
btnInside.Initialize("btnInside")
btnInside.Tag = i
'btnInside.Text = "Inside Button #" & i
Dim c2 As ColorDrawable
c2.Initialize2(Colors.ARGB(200, 226, 211, 178),5dip,1dip,Colors.Black)
btnInside.Background = c2
Dim cs As CSBuilder
cs.Initialize
cs.Image(LoadBitmap(File.DirAssets, "xxx.png"), 80dip, 80dip, False).Append(CRLF).Append($"${i}"$).Append(CRLF).Append(CRLF)
cs.PopAll
btnInside.Text = cs
If Not(i Mod 2 = 0) Then
ScrollView1.Panel.AddView(btnInside, 3dip , altezza,ScrollView1.Width / 2, ScrollView1.Width / 2)
Else
ScrollView1.Panel.AddView(btnInside, ScrollView1.Width / 2 , altezza,ScrollView1.Width / 2, ScrollView1.Width / 2)
altezza = altezza + ScrollView1.Width / 2
ScrollView1.Panel.Height = altezza + ScrollView1.Width / 2
End If
ScrollView1.Panel.Invalidate
Next