Android Question [Solved] Border and corner in CustomlistView.AddTextItem

asales · Mar 7, 2022

I want to create a list - like the example below - and the AddTextItem is very nice, because it adjust automatically the text.

My problem is create a border and a corner in this option.

Is possible or do I need create a new layout - with a panel and a label - load the text and adjust manually the height?

Thanks in advance for any tip.

mangojack · Mar 7, 2022

After loading the ClV , run the following ...

B4X:

For i = 0 To clv1.Size -1
        Dim p As B4XView = clv1.GetPanel(i)
        p.SetColorAndBorder(xui.Color_White, 2, xui.Color_Gray, 10)
    Next

This could also be done after loading each item / row

Note : Make sure to set the Divider Color to Transparent in the Designer

LucaMs · Mar 7, 2022

Use this... very short line ?

B4X:

    For i = 1 To 10
        CustomListView1.AddTextItem("item " & i, i)
        CustomListView1.GetRawListItem(CustomListView1.Size - 1).Panel.As(B4XView).SetColorAndBorder(xui.Color_White, 1dip, xui.Color_Black, 10dip)
    Next

(@mangojack was faster )

TILogistic · Mar 7, 2022

LucaMs said:

Use this... very short line ?

B4X:

    For i = 1 To 10
        CustomListView1.AddTextItem("item " & i, i)
        CustomListView1.GetRawListItem(CustomListView1.Size - 1).Panel.As(B4XView).SetColorAndBorder(xui.Color_White, 1dip, xui.Color_Black, 10dip)
    Next

(@mangojack was faster )

?
Panel = B4XView

B4X:

   For i = 0 To clv1.Size -1
        CustomListView1.GetRawListItem(i).Panel.SetColorAndBorder(xui.Color_White, 1dip, xui.Color_Black, 10dip)
    Next

TILogistic · Mar 7, 2022

padding and height settings?

TILogistic · Mar 7, 2022

AnandGupta · Mar 7, 2022

What is this ??

I have been struggling with layout / add panel to achieve similar objective, keeping in mind :AddTextItem can not do this, as Erel as advised many times.
Now you all are giving simple solution for it, in :AddTextItem itself !

Who will pay for my lost time and energy ?
?

Mahares · Mar 7, 2022

I think what is confusing about calling it AddTextItem is the word ‘Text’. When you see ‘Text’, you think it is limited in scope. I would have called it AddImplicitItem or AddImplicitPanel. Everything related to xClv involves panels.

AnandGupta · Mar 7, 2022

Mahares said:
I think what is confusing about calling it AddTextItem is the word ‘Text’. When you see ‘Text’, you think it is limited in scope. I would have called it AddImplicitItem or AddImplicitPanel. Everything related to xClv involves panels.

Yes. The big plus of :AddTextItem is

asales said:
the AddTextItem is very nice, because it adjust automatically the text.

But now we can use the adjusted panel, is icing on the cake

LucaMs · Mar 7, 2022

AnandGupta said:
keeping in mind :AddTextItem can not do this, as Erel as advised many times.

What AddItemText can't do?

It seems clear to me: Add allows you to add an Item consisting of a panel containing any number of views, AddItemText adds a "pre-packaged" Item, consisting of a panel and a label.

AnandGupta · Mar 7, 2022

LucaMs said:
What AddItemText can't do?

It seems clear to me: Add allows you to add an Item consisting of a panel containing any number of views, AddItemText adds a "pre-packaged" Item, consisting of a panel and a label.

Maybe I did not knew how to use "this" panel.
But now I know ? Thanks to you all.

LucaMs · Mar 7, 2022

B4X:

    Dim ItemsColor(2) As Int = Array As Int(xui.Color_Yellow, xui.Color_Blue)
    For i = 1 To 10
        CustomListView1.AddTextItem("item " & i, i)
       
        Dim Item As CLVItem = CustomListView1.GetRawListItem(CustomListView1.Size - 1)
        Item.Panel.SetColorAndBorder(ItemsColor(i Mod 2), 1dip, xui.Color_Black, 10dip)
       
        Dim bxTextView As B4XView = Item.Panel.GetView(0).GetView(0)
        bxTextView.TextColor = ItemsColor((i + 1) Mod 2)
    Next

TILogistic · Mar 7, 2022

LucaMs said:

B4X:

    Dim ItemsColor(2) As Int = Array As Int(xui.Color_Yellow, xui.Color_Blue)
    For i = 1 To 10
        CustomListView1.AddTextItem("item " & i, i)
      
        Dim Item As CLVItem = CustomListView1.GetRawListItem(CustomListView1.Size - 1)
        Item.Panel.SetColorAndBorder(ItemsColor(i Mod 2), 1dip, xui.Color_Black, 10dip)
      
        Dim bxTextView As B4XView = Item.Panel.GetView(0).GetView(0)
        bxTextView.TextColor = ItemsColor((i + 1) Mod 2)
    Next

View attachment 126424

padding and height settings?

????

???

LucaMs · Mar 7, 2022

LucaMs said:
Dim ItemsColor(2) As Int = Array(xui.Color_Yellow, xui.Color_Blue)

Strange thing: the above line works in B4A, not in B4J.
This is because you have to specify Array As Int(...) in B4J (Array(...) by default is an array of objects).
I don't know why (Erel )

asales · Mar 7, 2022

Thanks @LucaMs, @Omar Parra A., @mangojack.
All codes worked.

LucaMs · Mar 7, 2022

Omar Parra A. said:
padding and height settings?

????

???

Add:

B4X:

bxTextView.As(Label).Padding = Array As Int(10dip, 5dip, 10dip, 5dip)

Height of ? Item?

Mahares · Mar 7, 2022

You can also add text as CSBuilder:

B4X:

Dim cs As CSBuilder
        cs.Initialize.Size(30).Typeface(Typeface.MONOSPACE)
        cs.Alignment("ALIGN_CENTER").Append("item " & i).Append(CRLF).Image(LoadBitmap(File.DirAssets, "ua.png"), 200dip, 100dip, False).Append(CRLF).PopAll
        CustomListView1.AddTextItem(cs, i)

TILogistic · Mar 7, 2022

LucaMs said:
Add:

B4X:

bxTextView.As(Label).Padding = Array As Int(10dip, 5dip, 10dip, 5dip)

Height of ? Item?

see:
Height of ? Item?

B4X:

    For i = 0 To clv1.Size -1
        Dim item As CLVItem = clv1.GetRawListItem(i)
        item.Panel.SetColorAndBorder(xui.Color_White, 2dip, xui.Color_DarkGray, 6dip)

        Dim lbl As B4XView = item.Panel.GetView(0).GetView(0)
        lbl.As(Label).Padding = Array As Int (5dip, 5dip, 5dip, 5dip)
    Next

LucaMs · Mar 7, 2022

I think AddTextItem sets the height equal for all items, based on the xCLV TextSize set in the Designer and on a single line of text.
I don't think you can change the height of these items at runtime; in this case, it is better to use Add and create custom items.

LucaMs · Mar 7, 2022

Mahares said:

You can also add text as CSBuilder:

B4X:

Dim cs As CSBuilder
        cs.Initialize.Size(30).Typeface(Typeface.MONOSPACE)
        cs.Alignment("ALIGN_CENTER").Append("item " & i).Append(CRLF).Image(LoadBitmap(File.DirAssets, "ua.png"), 200dip, 100dip, False).Append(CRLF).PopAll
        CustomListView1.AddTextItem(cs, i)

View attachment 126427

Beautiful colors

Android Question [Solved] Border and corner in CustomlistView.AddTextItem

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Similar Threads

Privacy & Transparency

Privacy & Transparency