Dim vi As itemValues
vi.Initialize
tempCLV.Add(CreateItem(f,vi),vi)
Sub CreateItem(f As ExternalFile,vi As itemValues) As B4XView
Dim p As B4XView=xui.CreatePanel("")
p.SetLayoutAnimated(0,0,0,100%x,40dip)
p.LoadLayout("fileListItem")
vi.ef=f
vi.cb=addFileCb
vi.lb=fileNameLb
fileNameLb.Text=f.Name
If f.IsFolder Or IsImageFile(f.Name)=False Then
vi.cb.Visible=False
vi.cb.Enabled=False
End If
Return p
End Sub