'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
'load the layout to Root
Dim p0 As B4XView = xui.CreatePanel("")
p0.SetLayoutAnimated(0, 0, 0, 100%x, 100%y)
Root.LoadLayout("LytTabMenu")
pnl0.LoadLayout("LytASViewPager")
Dim p1 As B4XView = xui.CreatePanel("") 'Panel to load TabStrip
Dim p11 As B4XView = xui.CreatePanel("") 'Temp panel with the activity
p1.SetLayoutAnimated(0, 0, 0, p0.Width, p0.Height)
p11.SetLayoutAnimated(0, 0, 0, p0.Width, p0.Height)
p1.LoadLayout("LytClv1") 'Load CustomListView (clv) base
p11.LoadLayout("Lyt1") 'Load activity
clv1.Add(p11, "") 'Add activity to clv
Dim p2 As B4XView = xui.CreatePanel("")
Dim p22 As B4XView = xui.CreatePanel("")
p2.SetLayoutAnimated(0, 0, 0, p0.Width, p0.Height)
p22.SetLayoutAnimated(0, 0, 0, p0.Width, p0.Height)
p2.LoadLayout("LytClv2")
p22.LoadLayout("Lyt2")
clv2.Add(p22, "")
Dim p3 As B4XView = xui.CreatePanel("")
Dim p33 As B4XView = xui.CreatePanel("")
p3.SetLayoutAnimated(0, 0, 0, p0.Width, p0.Height)
p33.SetLayoutAnimated(0, 0, 0, p0.Width, p0.Height)
p3.LoadLayout("LytClv3")
p33.LoadLayout("Lyt3")
clv3.Add(p33, "")
Dim p4 As B4XView = xui.CreatePanel("")
Dim p44 As B4XView = xui.CreatePanel("")
p4.SetLayoutAnimated(0, 0, 0, p0.Width, p0.Height)
p44.SetLayoutAnimated(0, 0, 0, p0.Width, p0.Height)
p4.LoadLayout("LytClv4")
p44.LoadLayout("Lyt4")
clv4.Add(p44, "")
Dim p5 As B4XView = xui.CreatePanel("")
Dim p55 As B4XView = xui.CreatePanel("")
p5.SetLayoutAnimated(0, 0, 0, p0.Width, p0.Height)
p55.SetLayoutAnimated(0, 0, 0, p0.Width, p0.Height)
p5.LoadLayout("LytClv5")
p55.LoadLayout("Lyt5")
clv5.Add(p55, "")
TabStrip.Initialize(ASTabMenu1, ASViewPager1)
TabStrip.AddPage(xui.Color_Blue, "AA", Null, Null, p1, 0)
TabStrip.AddPage(xui.Color_Cyan, "BB", Null, Null, p2, 1)
TabStrip.AddPage(xui.Color_Gray, "CC", Null, Null, p3, 2)
TabStrip.AddPage(xui.Color_Green, "DD", Null, Null, p4, 3)
TabStrip.AddPage(xui.Color_Magenta, "EE", Null, Null, p5, 4)
ResizeClv
clv1.JumpToItem(ASViewPager1.CurrentIndex)
End Sub
Sub ASViewPager1_PageChanged(Index As Int)
TabStrip.ViewPager_PageChanged(Index)
End Sub
Sub ASTabMenu1_TabClick(index As Int)
TabStrip.TabMenu_TabClick(index)
End Sub
Sub ResizeClv
clv1.ResizeItem(0, 50%y)
clv2.ResizeItem(0, 70%y)
clv3.ResizeItem(0, 90%y)
clv4.ResizeItem(0, 110%y)
clv5.ResizeItem(0, 130%y)
End Sub