B4J Question CLV tree view image size

Erel said:

Use the source code of CLVTree instead of the library.
Unzip the b4xlib file, extract CLVTree.bas and Files\arrow.png and add to your project.
Also add a reference to XUI Views library.

Change the GetItemUI sub to:

B4X:

Private Sub GetItemUI As B4XView
    If UICache.Size > 0 Then
        Dim p As B4XView = UICache.Get(0)
        UICache.RemoveAt(0)
        Return p
    End If
    p = xui.CreatePanel("")
    p.SetLayoutAnimated(0, 0, 0, mCLV.AsView.Width, DefaultHeight)
    p.AddView(XUIViewsUtils.CreateB4XImageView.mBase, 0, p.Height / 2 - 10dip, 20dip, 20dip)
    p.GetView(ARROW_INDEX).Tag.As(B4XImageView).mBackgroundColor = xui.Color_Transparent
    p.GetView(ARROW_INDEX).Tag.As(B4XImageView).Bitmap = arrowbmp
   
    Dim iv As B4XImageView = XUIViewsUtils.CreateB4XImageView
    iv.ResizeMode = "NONE"  '<-------
    p.AddView(iv.mBase, 0, p.Height / 2 - 15dip, 30dip, 30dip)
   
    p.GetView(IMAGE_INDEX).Tag.As(B4XImageView).mBackgroundColor = xui.Color_Transparent
    Dim lbl As B4XView = XUIViewsUtils.CreateLabel
    lbl.Font = mCLV.DesignerLabel.As(B4XView).Font
    lbl.TextColor = mCLV.DesignerLabel.As(B4XView).TextColor
    lbl.SetTextAlignment("CENTER", "LEFT")
    p.AddView(lbl, 0, 0, p.Width, p.Height)
    Dim tp As B4XView = xui.CreatePanel("TouchPanel")
    p.AddView(tp, 0, 0, 0, 0)
    Return p
End Sub

Click to expand...