Private Sub CreateItemProfile(Width As Int, Title As String, Description As String, FeedID As String, Banner As String) As Panel
Dim p As B4XView = xui.CreatePanel("")
Dim height As Int = 210dip
If GetDeviceLayoutValues.ApproximateScreenSize < 4.5 Then height = 250dip
p.SetLayoutAnimated(0, 0, 0, Width, height)
'p.LoadLayout("Card3")
p.LoadLayout("search_profile")
Label_nome.Text = Title
Label_status.Text = Description
'ImageView1.SetBitmap(xui.LoadBitmapResize(File.DirAssets, Image, 50%x,50%y , True))
If (ProfileImg.IsInitialized = True) Then
'CardsAmount = CardsAmount + 1
'Feeds.Put(CardsAmount,ImageView1)
'Log("ImageViewID = "&Feeds.Get(CardsAmount))
ProfileImg.Put(ImageView1,"https://"&Banner)
Else
Msgbox("Erro de alocação de memória ! 0x0543f","Erro interno !")
ExitApplication
End If
Return p
End Sub