Sub Globals
Private clv1 As CustomListView
Private xui As XUI
Private ImageView1 As B4XView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
Dim bmp As B4XBitmap = xui.LoadBitmap(File.DirAssets, "image file")
clv1.Add(CreateListItem(bmp, 100%x, 60dip), Null)
End Sub
Sub CreateListItem(Image As B4XBitmap, Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize("")
p.SetLayout(0, 0, Width, Height)
p.LoadLayout("CellItem")
ImageView1.SetBitmap(Image)
Return p
End Sub