Case "test_10"
Dim result As List
result = parser.NextArray 'returns a list with maps
If result.Size=0 Then
Msgbox("No Result Found","Error")
End If
Dim panel1,panel2 As Panel
If scrollview2.IsInitialized Then
scrollview2.RemoveView
End If
scrollview2.Initialize(0)
NavDrawer.ContentPanel.AddView(scrollview2,0,selected_page1.Height,pContent.Width,pContent.Height-footer1.Height-selected_page1.Height)
panel1=scrollview2.Panel
Dim ii As Int =0
Dim i As Int =0
For i = 0 To result.Size - 1
Dim m As Map
m = result.Get(i)
Dim values1(2) As Label
values1(0).Initialize("")
values1(1).Initialize("")
values1(0).Text=m.Get("heading")
values1(1).Text=m.Get("name")
values1(0).Tag=ii
' values1(1).Tag=values1(2).Text
values1(0).TextSize=13
panel1.AddView(values1(0), 10dip, 40dip+(ii*230dip), pContent.Width-20dip, 15dip)
panel2.Initialize("video_play_1") 'create event when user click on video panel it downloads video from its tag..
panel2.Tag=downurl_video&values1(1).Text ' video persistent url attachted to panel
panel1.AddView(panel2, 10dip, 55dip+(ii*230dip), pContent.Width-20dip, 200dip)
panel2.SetBackgroundImage(LoadBitmap(File.DirAssets,"playvideo.jpg"))
' g_panel=panel2
ii=ii+1
Next