Android Question CLVTree add clickable text with CSBuilder

[mike1967]

Hello

Dim clicktext As String
        clicktext="Edit"
        
        cs.Initialize.size(13).Bold.Append("N.ro Interno:").Pop.Append(dispositivo.Get("numero")).Append(CRLF).Bold.Append("Matricola:").Pop.Append(dispositivo.Get("matricola")).Append(CRLF).Bold.Append(dispositivo.Get("descrizione")).PopAll.Append(CRLF).Clickable("edit",clicktext).Append(clicktext).PopAll
        Dim item2 As CLVTreeItem= Tree.AddItem(item,cs,LoadBitmap(File.DirAssets,"file-alt.png"),"")
        Dim Index As Int=CustomListView1.GetItemFromView(item2.InternalPanel)
        cs.EnableClickEvents(CustomListView1.GetPanel(Index).GetView(0))

, is possible to add an item to CLVTree with clickable text by CSBuilder ? If Yes Can Provide Me a sample ? Thanks in advances

Error view should be initializate.

 

[Erel]

The challenge here is that CLVTree creates the views when needed and reuses them when possible, so you can't simply access the views.
The solution is to use the source code of CLVTree and add:

Dim cs As CSBuilder 'ignore
cs.EnableClickEvents(lbl)

In the code that creates new UI items.

See the attached B4A-only project.

 

[mike1967]

View attachment 139654

The challenge here is that CLVTree creates the views when needed and reuses them when possible, so you can't simply access the views.
The solution is to use the source code of CLVTree and add:

Dim cs As CSBuilder 'ignore
cs.EnableClickEvents(lbl)

In the code that creates new UI items.

See the attached B4A-only project.

with this modify the events CustomListView1_ItemClick (Index As Int, Value As Object) is not raised. What About ?

 

[Erel]

True. The label which fills the item catches the click event now.

You can add an empty clickable span at the end and use it instead of the ItemClick event:

.Clickable("cs", "ItemClick").Append(" ").PopAll

 

[mike1967]

True. The label which fills the item catches the click event now.

You can add an empty clickable span at the end and use it instead of the ItemClick event:

.Clickable("cs", "ItemClick").Append(" ").PopAll

Thanks works. How to retrive the item value in order to add sub items with this method Instead of CustomListView1_ItemClick (Index As Int, Value As Object) ?

 

[Mahares]

How to retrive the item value in order to add sub items with this method Instead of CustomListView1_ItemClick (Index As Int, Value As Object) ?

Why do you need a clickable span in the title. Why not use the CustomListView1_ItemClick event and based on its value execute your wish. FOr instance:

Private Sub CustomListView1_ItemClick (Index As Int, Value As Object)
Dim item As CLVTreeItem = Value
 Dim s As String = item.Text
If s.tolowercase.contains("test") Then
        Dim i As Intent
        i.Initialize(i.ACTION_VIEW, "https://www.google.com")
        StartActivity(i)
    End If
End Sub

You probably have a reason to use clickable, but can you tell us why. I see that you have a follow up thread for Erel to help you with.