For x = 0 To 7
For y = 0 To 14
bmp = LoadBitmap(File.DirAssets, Rnd(0,20)&".jpg") ' dummy icons
Dim iv As ImageView
Dim p As Panel
iv.Initialize("ImageViewEvent")
iv.SetBackgroundImage(bmp)
iv.Gravity = Gravity.FILL
p.Initialize("PanelEvent")
sv.Panel.AddView(p, x * size, y * size, size, size)
p.Color = Colors.RGB(248,246,241)
p.AddView(iv, 5dip, 5dip, size - 10dip, size -10dip)
panels(x, y) = p
Next
Next
' DVB_OK = DVB_Reader(1,604, 256,1,0 ) 'Start DVB Reader, Freq, QAM, Inversion, use NIT
ChangeSelection(0, 0)
End Sub
Sub ImageViewEvent_Click
Dim I As ImageView
I = Sender
End Sub
Sub PanelEvent_Click
Dim p As Panel
p = Sender
End Sub