Dim panels(11) As Panel
For i = 0 To panels.Length - 1
panels(i).Initialize("panels")
panels(i).Color = Colors.RGB(Rnd(0, 255), Rnd(0, 255), Rnd(0, 255))
panels(i).LoadLayout("pnames")
Dim parser As JSONParser
parser.Initialize(File.ReadString(File.DirAssets, "Allah_names.json"))
Dim root As Map = parser.NextObject
Dim names As List = root.Get("names")
Dim actname As Int = -1
For Each colname As Map In names
actname = actname+1
If actname = i Then
Dim getNum As String = colname.Get("NameNum")
Dim GetName As String = colname.Get("Name")
Dim GetTranslit As String = colname.Get("translit")
Dim GetTranslat As String = colname.Get("translat")
Num.Text = getNum
Name.Text = GetName
Translit.Text = GetTranslit
Translat.Text = GetTranslat
End If
Next
pView.AddView(panels(i), 100%x, 0, 100%x, 100%y - 60dip)
Next
btnLeft.Initialize("Left")
btnLeft.Text = "Next"
Activity.AddView(btnLeft, 70%x, 100%y - 55dip, 100dip, 50dip)
btnRight.Initialize("Right")
btnRight.Text = "Back"
Activity.AddView(btnRight, 50%x, 100%y - 55dip, 100dip, 50dip)
sd.Initialize
sd.panels = panels
SlidingPanels.Initialize(sd, SlidingDuration)
sd.targetPanel = -1
sd.currentPanel = currentPanelBeforePaused - 1
ChangePanel(True) 'Current code expects the first call to be with Left = True.