I cant select the 2 last item even I can scroll to see its bottom line. Any help please.
code:----------------------------------------------------
Sub Activity_Create(FirstTime As Boolean)
width = 100%x
height = 100%x
canvas1.Initialize(Activity)
rect1.Initialize(0, height, width, height+300%x)
canvas1.DrawRect(rect1, Colors.Black, True, 5dip)
ListView1.Initialize("ListView1")
ListView1.AddSingleLine("1")
ListView1.AddSingleLine("2")
ListView1.AddSingleLine("3")
ListView1.AddSingleLine("4")
ListView1.AddSingleLine("5")
ListView1.AddSingleLine("6")
ListView1.AddSingleLine("7")
ListView1.AddSingleLine("8")
ListView1.AddSingleLine("9")
Activity.AddView(ListView1, 0, height, 100dip,height+150%x )
ListView1.SingleLineLayout.Label.TextSize = 12
Draw
End Sub 'Activity
Sub Draw
Activity.Invalidate
canvas1.DrawColor(Colors.White)
canvas1.DrawRect(rect1, Colors.Black, True, 5dip)
canvas1.DrawLine(0,0,width,height,Colors.Red,2dip)
canvas1.DrawLine(width/2-width/8,0,width/2-width/8,height,Colors.Red,2dip)
canvas1.DrawLine(width/2+width/8,0,width/2+width/8,height,Colors.Red,2dip)
canvas1.DrawLine(0,width/2-width/8,width,width/2-width/8,Colors.Red,2dip)
canvas1.DrawLine(0,width/2+width/8,width,width/2+width/8,Colors.Red,2dip)
End Sub 'Draw
'------------------------------------------------------
code:----------------------------------------------------
Sub Activity_Create(FirstTime As Boolean)
width = 100%x
height = 100%x
canvas1.Initialize(Activity)
rect1.Initialize(0, height, width, height+300%x)
canvas1.DrawRect(rect1, Colors.Black, True, 5dip)
ListView1.Initialize("ListView1")
ListView1.AddSingleLine("1")
ListView1.AddSingleLine("2")
ListView1.AddSingleLine("3")
ListView1.AddSingleLine("4")
ListView1.AddSingleLine("5")
ListView1.AddSingleLine("6")
ListView1.AddSingleLine("7")
ListView1.AddSingleLine("8")
ListView1.AddSingleLine("9")
Activity.AddView(ListView1, 0, height, 100dip,height+150%x )
ListView1.SingleLineLayout.Label.TextSize = 12
Draw
End Sub 'Activity
Sub Draw
Activity.Invalidate
canvas1.DrawColor(Colors.White)
canvas1.DrawRect(rect1, Colors.Black, True, 5dip)
canvas1.DrawLine(0,0,width,height,Colors.Red,2dip)
canvas1.DrawLine(width/2-width/8,0,width/2-width/8,height,Colors.Red,2dip)
canvas1.DrawLine(width/2+width/8,0,width/2+width/8,height,Colors.Red,2dip)
canvas1.DrawLine(0,width/2-width/8,width,width/2-width/8,Colors.Red,2dip)
canvas1.DrawLine(0,width/2+width/8,width,width/2+width/8,Colors.Red,2dip)
End Sub 'Draw
'------------------------------------------------------