Sub Class_Globals
Type SortPair(key As Object, value As Object)
Private Root As B4XView
Private xui As XUI
Dim cv As B4XCanvas
Private Pane1 As B4XView
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Dim windowz As ScrollPane
windowz.Initialize("move")
windowz.SetHScrollVisibility("ALWAYS")
windowz.SetVScrollVisibility("ALWAYS")
Dim windowx As B4XView = windowz
Root.AddView(windowx, 0, 0, Root.Width, Root.height)
windowx.ScrollViewInnerPanel.LoadLayout("bigPane")
cv.Initialize(Pane1)
For r = 4000 To 100 Step -100
cv.DrawCircle(4500, 4500, r, xui.Color_RGB(Rnd(100, 255), Rnd(100, 255), Rnd(100, 255)), True, 0)
Next
windowz.HPosition = .5
windowz.VPosition = .5
End Sub