#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xui As XUI
Private clv As CustomListView
Private ImageView1 As ImageView
Private Label1 As B4XView
Private txt As String
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("MainPage")
MainForm.Show
Dim images As List
images.Initialize
For Each f As String In Array("1.png","2.png","3.png","4.png")
images.Add(xui.LoadBitmapResize(File.DirAssets,f,100dip,100dip,True))
Next
txt="Image text"
For i = 1 To 20
clv.Add(CreateItem(images.Get(i Mod images.Size),txt),txt) 'PROBLEM HERE'
Next
End Sub
private Sub CreateItem (img As B4XBitmap, txt1 As String) As B4XView
Dim p As B4XView= xui.CreatePanel("")
p.SetLayoutAnimated(0,0,0,100dip,120dip)
p.LoadLayout("ItemLayout")
ImageView1.SetImage(img)
Label1.Text=txt1
Return p
End Sub