Sub Globals
Dim ListView1 As ListView
Dim bmp As Bitmap
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim i As Int
bmp.Initialize(File.DirAssets, "Rose.png")
ListView1.Initialize("ListView1")
Activity.AddView(ListView1, 0, 0, 100%x, 100%y)
ListView1.TwoLinesAndBitmap.ItemHeight = 70dip
ListView1.TwoLinesAndBitmap.Label.Left = 0
ListView1.TwoLinesAndBitmap.Label.Top = 0
ListView1.TwoLinesAndBitmap.Label.Width = ListView1.Width - 70dip
ListView1.TwoLinesAndBitmap.Label.Height = 40dip
ListView1.TwoLinesAndBitmap.Label.Gravity = Gravity.CENTER_VERTICAL
ListView1.TwoLinesAndBitmap.Label.TextSize = 20
ListView1.TwoLinesAndBitmap.SecondLabel.Left = 0
ListView1.TwoLinesAndBitmap.SecondLabel.Top = 40dip
ListView1.TwoLinesAndBitmap.SecondLabel.Width = ListView1.Width - 70dip
ListView1.TwoLinesAndBitmap.SecondLabel.Height = 30dip
ListView1.TwoLinesAndBitmap.SecondLabel.Gravity = Gravity.CENTER_VERTICAL
ListView1.TwoLinesAndBitmap.SecondLabel.TextSize = 16
ListView1.TwoLinesAndBitmap.ImageView.Left = ListView1.TwoLinesAndBitmap.Label.Width + 5dip
ListView1.TwoLinesAndBitmap.ImageView.Top = 5dip
ListView1.TwoLinesAndBitmap.ImageView.Width = 60dip
ListView1.TwoLinesAndBitmap.ImageView.Height = 60dip
ListView1.TwoLinesAndBitmap.ImageView.Gravity = Gravity.FILL
For i = 0 To 20
ListView1.AddTwoLinesAndBitmap("Line 1" & i, "Line 2" & i, bmp)
Next
End Sub