B4J Question CheckBoxTreeItem as child set and read

[Iatros]

I try to read all checked nodes. It works, if I have only root nodes. But now I try to work with root and child nodes. But I only can set and read the childs as TreeItem instead of CheckBoxTreeItem. Perhaps someone can halp ?

        If bFill = True Then
    objTreeQKoerper.SetCheckBoxesMode

            If sZW(2) = "P" Then
                Dim cti As CheckboxTreeItem
                cti.Initialize("ti", sZW(0))
                objTreeQKoerper.Root.Children.Add(cti)
            Else
                Dim ti As TreeItem ' CheckBoxTreeItem not possible
                ti.Initialize("ti", sZW(0))
                cti.Children.Add(ti)
            End If
        End If

    For Each tn As CheckboxTreeItem In objTreeQKoerper.Root.Children
        Log(tn.Text)
        For i = 0 To tn.Children.Size - 1
            Dim tc As TreeItem ' CheckBoxTreeItem not possible
            tc = tn.Children.Get(i)
            Log(tc.Text)
        Next
    Next

 

[stevel05]

Your logic is not quite right. Try this:

 For Each O As Object In objTreeQKoerper.Root.Children
       If O Is CheckBoxTreeItem Then
            Dim tc As CheckBoxTreeItem = O
            Log(tc.Text)
        Else
             Dim ti As TreeItem = O
            Log(ti.Text)
        End If
        Next
    Next

 

[Iatros]

Thank you. But it displays only the root nodes. A have to set and read the checked property inside a loop. I think the childs only hava a checkbox because the whole tree is set to SetCheckBoxesMode. But on creating the childs I can't define it as checkboxnodes.

 

[stevel05]

Can you upload an example project. otherwise I'll have to build one.

 

[stevel05]

Looking a little deeper it appears you are correct.

To show the checkboxes the treeview needs to be set to checkbox mode and can contain only checkbox items.

 

[stevel05]

You may get what you need with TreeTableView : https://www.b4x.com/android/forum/threads/treetableview.81611/post-517044

 

[Iatros]

Oh, I just made a test project. Not needed I see.
Thank you very much. I will switch to TreeTableView.

 

[Iatros]

Only for info - Before I look after TreeTableView I did it on my own way (your "For Each O As Object" was the key). So I have the functionality I need.

    Dim iEntries As Int = 0
    Dim iResonanzen As Int = 0
  
    For Each O As Object In objTreeQKoerper.Root.Children
        iEntries = iEntries + 1
        Dim ti As TreeItem = O
        ti.Image = treeblank .GetImage
        If fCheckEntry = True Then
            ti.Image = treeres .GetImage
            iResonanzen = iResonanzen + 1
        End If

        Dim ti2 As TreeItem
        ti2 = ti
        For i = 0 To ti2.Children.Size - 1
            iEntries = iEntries + 1
            Dim trItemChild As TreeItem
            trItemChild = ti2.Children.Get(i)
            trItemChild.Image = treeblank .GetImage
            If fCheckEntry = True Then
                trItemChild.Image = treeres .GetImage
                iResonanzen = iResonanzen + 1
            End If
        Next
    Next 
    lblResonanzenQKoerper.Text = iResonanzen & " / " & iEntries