Phew...
Lesson 24 is about the scrollview. One can use this to host divs and other stuff that they might need to scroll.
In this example we have created a scrollview with both X and Y scrolling active. To demonstrate this we set the width and height of the scrollview to be minimal and just added numerous rows to it as depicted below.
To disable scrolling / enable scrolling for any element, one just calls the .SetScroll(True/False) method.
Lesson 24 is about the scrollview. One can use this to host divs and other stuff that they might need to scroll.
In this example we have created a scrollview with both X and Y scrolling active. To demonstrate this we set the width and height of the scrollview to be minimal and just added numerous rows to it as depicted below.
B4X:
Sub Init(pgContainer As String)
pg.Initialize("", pgContainer).SetHeader("Lesson 24: ScrollView")
'
Dim sv As WixScrollView
sv.Initialize("sv").Setscroll("xy").Setheight(200).Setwidth(200).SetStyle("border", "2px solid #ff0000")
'
Dim r1 As WixRow
r1.Initialize("r1").Setwidth(500).Setheight(26).SetTemplate("2001: A Space Odyssey")
'
Dim r2 As WixRow
r2.Initialize("r2").Setwidth(500).Setheight(26).Settemplate("Rambo: First Blood Part II")
'
Dim r3 As WixRow
r3.Initialize("r3").SetMap(CreateMap("width" : 500, "height" : 26, "template" : "Doctor Strangelove or: How I Learned To Stop Worrying And Love The Bomb"))
'
Dim r4 As WixRow
r4.Initialize("r4").SetMap(CreateMap("width" : 500, "height" : 26, "template" : "The Godfather"))
'
Dim r5 As WixRow
r5.Initialize("r5").SetMap(CreateMap("width" : 500, "height" : 26, "template" : "Thor: The Dark World"))
'
Dim r6 As WixRow
r6.Initialize("r6").SetMap(CreateMap("width" : 500, "height" : 26, "template" : "Guardians Of The Galaxy"))
'
Dim r7 As WixRow
r7.Initialize("r7").SetMap(CreateMap("width" : 500, "height" : 26, "template" : "Die Hard"))
'
Dim r8 As WixRow
r8.Initialize("r8").SetMap(CreateMap("width" : 500, "height" : 26, "template" : "Star Wars"))
'
Dim r9 As WixRow
r9.Initialize("r9").SetMap(CreateMap("width" : 500, "height" : 26, "template" : "Real Genius"))
'
sv.AddWixRows(Array(r1, r2, r3, r4, r5, r6, r7, r8, r9))
'
Dim pr1 As WixRow
pr1.Initialize("pr1").AddRows(sv.Item)
'
pg.AddRow(pr1)
'
pg.ui
End SubTo disable scrolling / enable scrolling for any element, one just calls the .SetScroll(True/False) method.