Sub Globals
Dim hsvFixed As HorizontalScrollView
Dim hsv As HorizontalScrollView
Dim ActiveView As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim pnlFixed As Panel
Dim scv As ScrollView
pnlFixed.Initialize(0)
pnlFixed.Enabled=False
Activity.AddView(pnlFixed,0,0,100dip,40dip)
hsvFixed.Initialize(0,"hsvFixed")
Activity.AddView(hsvFixed,100dip,0,100%x-100dip,40dip)
scv.Initialize(0)
Activity.AddView(scv,0,41dip,100%x,100%y-41dip)
hsv.Initialize(0,"hsv")
scv.Panel.AddView(hsv,100dip,0,100%x-100dip,scv.Height)
'fixed left top
For i=0 To 1
Dim lbl As Label
lbl.Initialize(0)
lbl.Text="H:"&i
lbl.Color = Colors.Blue
lbl.TextColor=Colors.White
lbl.Gravity=Gravity.CENTER
pnlFixed.AddView(lbl,i*50dip,0,49dip,19dip)
Dim lbl As Label
lbl.Initialize(0)
lbl.Text="FR:"&i
lbl.Color = Colors.LightGray
lbl.TextColor=Colors.Black
pnlFixed.AddView(lbl,i*50dip,20dip,49dip,19dip)
Next
'fixed top right
For i=0 To 11
Dim lbl As Label
lbl.Initialize(0)
lbl.Text="Header:"&(i+2)
lbl.Color = Colors.Blue
lbl.TextColor=Colors.White
lbl.Gravity=Gravity.CENTER
hsvFixed.panel.AddView(lbl,i*100dip,0,99dip,19dip)
Dim lbl As Label
lbl.Initialize(0)
lbl.Text="FR:"&(i+2)
lbl.Color = Colors.LightGray
lbl.TextColor=Colors.Black
hsvFixed.Panel.AddView(lbl,i*100dip,20dip,99dip,19dip)
Next
For i=0 To 50
Dim lbl As Label
lbl.Initialize(0)
lbl.Text="A"&i
lbl.Color = Colors.LightGray
lbl.TextColor=Colors.Black
scv.Panel.AddView(lbl,0,i*20dip,49dip,19dip)
Dim lbl As Label
lbl.Initialize(0)
lbl.Text="B"&i
lbl.Color = Colors.LightGray
lbl.TextColor=Colors.Black
scv.Panel.AddView(lbl,50dip,i*20dip,49dip,19dip)
For j=0 To 10
Dim lbl As Label
lbl.Initialize("lblRightCells")
lbl.Text=i & ":" & j
lbl.Color = Colors.White
hsv.Panel.AddView(lbl,j*100dip,i*20dip,99dip,19dip)
Next
Next
scv.Panel.Height=51*20dip
hsv.Height=51*20dip
hsvFixed.Panel.Width=11*100dip
hsv.Panel.Width=11*100dip
End Sub
Sub hsv_ScrollChanged(Position As Int)
hsvFixed.ScrollToNow(Position)
End Sub