Sub Globals
Private Button1,Button2 As Button
Private ScrollView1 As ScrollView
Private Labels(15) As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("layout1")
ScrollView1.Panel.Color=Colors.Red
For i=0 To 14
Labels(i).Initialize("press")
Labels(i).Color=Colors.Gray
ScrollView1.Panel.AddView(Labels(i),0,50dip*i,200dip,45dip)
Next
End Sub
Sub Button1_Click
ScrollView1.Panel.Height=1000
ScrollView1.Height=600
Log("click smaller")
End Sub
Sub Button2_Click
ScrollView1.Panel.Height=3000
ScrollView1.Height=600
Log("click bigger")
End Sub