Spanish Fondo de CLV

[RAFA BRAVO]

Buenos dias equipo. Como puedo hacer en B4J para tener una imagen de fondo en un CLV, solo quiero que se vean los ítem y en el fondo la imagen. Gracias.

 

[zed]

Establezca el color del divisor en transparente

SetCLVBackground(clv, "background.png")
....
....

Sub SetCLVBackground(clv As CustomListView, imgPath As String)
    Dim bmp As B4XBitmap = LoadBitmap(File.DirAssets, imgPath)   ' image dans Files
    clv.AsView.SetBitmap(bmp)
End Sub

 

[RAFA BRAVO]

No resultó para mi en B4J.
Pero encontré este enlace que si me funcionó.

[XUI xCustomListView] Transparent Background and Scrollbar visibility

Hi All, I use xCustomListView for my B4A and B4J app, please take a look this: A: Form background came with color or images B: Background of CustomListView C: Scrollbar 1. When i set color drawable on CLV with transparent, it does not affect. It's should be red color as point A 2. When size...

www.b4x.com

Gracias.

 

[TILogistic]

? B4X

Public Sub SetCLVBackground(clv As CustomListView, FileName As String)
    Dim imv As B4XImageView = XUIViewsUtils.CreateB4XImageView
    imv.Bitmap = xui.LoadBitmap(File.DirAssets, FileName)
    imv.ResizeMode = "FILL"
    clv.AsView.AddView(imv.mBase, 0, 0, clv.AsView.Width, clv.AsView.Height)
    imv.mBase.SendToBack
    imv.Update
End Sub

 

[TILogistic]

?B4X (CornersRadius)

Public Sub SetCLVBackground(clv As CustomListView, FileName As String, CornersRadius As Int)
    Dim imv As B4XImageView = XUIViewsUtils.CreateB4XImageView
    imv.Bitmap = xui.LoadBitmap(File.DirAssets, FileName)
    imv.ResizeMode = "FILL"
    imv.CornersRadius = CornersRadius
    clv.AsView.AddView(imv.mBase, 0, 0, clv.AsView.Width, clv.AsView.Height)
    imv.mBase.SendToBack
    imv.Update
End Sub