Sub Activity_Create(FirstTime As Boolean)
ltvTest.Initialize("ltvTest")
Activity.AddView(ltvTest, 0, 0,100%x , 100%y)
bmpTest.Initialize(File.DirAssets, "rose.png")
SetupListView
FillListView
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub SetupListView
ltvTest.TwoLinesAndBitmap.ItemHeight = 60dip
ltvTest.TwoLinesAndBitmap.Label.Height = 60dip
ltvTest.TwoLinesAndBitmap.Label.Left = ltvTest.TwoLinesAndBitmap.ImageView.Width
ltvTest.TwoLinesAndBitmap.Label.Width = ltvTest.Width - ltvTest.TwoLinesAndBitmap.Label.Left
ltvTest.TwoLinesAndBitmap.Label.Gravity = Gravity.CENTER
ltvTest.TwoLinesAndBitmap.SecondLabel.Height = 0
End Sub
Sub FillListView
Dim i As Int
For i = 0 To 20
ltvTest.AddTwoLinesAndBitmap("Test " &i, "", bmpTest)
Next
End Sub