Sub DownloadImage(Link As String)
Dim j As HttpJob
j.Initialize("", Me)
j.Download(Link)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
clv.Add(CreateListItem(j.GetBitmap, clv.AsView.Width, 130dip), "MyReturnValue")
End If
j.Release
End Sub
Sub CreateListItem(bmp As Bitmap, Width As Int, Height As Int) As Panel
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, Width, Height)
p.LoadLayout("CellItem")
ImageView1.Bitmap = bmp
Return p
End Sub