Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private Panel1 As Panel
Private Panel2 As Panel
Private SeekBar1 As SeekBar
Private HorizontalScrollView1 As HorizontalScrollView
End Sub
Public Sub Initialize
' B4XPages.GetManager.LogEvents = True
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
Panel1.RemoveView
Panel2.RemoveView
HorizontalScrollView1.Panel.AddView(Panel1,0,0,100%x,100%y)
HorizontalScrollView1.Panel.AddView(Panel2,100%x,0,100%x,100%y)
HorizontalScrollView1.Panel.Width=2*100%x
End Sub