Android Question [B4X] BBListItem - BCTextEngine inside CLV (Help please)

William Lancee said:

The first thing you should do is find out what is in the panel. Maybe there is only one view (at index 0).

B4X:

'        Dim BB As BBListItem = pnl.GetView(1).GetView(1).GetView(BBListItemIndexInItems).Tag
'        BB.ParentScrolled(Offset, clvFAQs.GetRawListItem(i).Offset, clvFAQs.AsView.Height, pnl.GetView(0).Height)
For i = 0 to pnl.NumberOfViews - 1
    log(getType(pnl.GetView(i)) & TAB & pnl.GetView(i).NumberOfViews )
Next

Click to expand...

William Lancee said:

The first thing you should do is find out what is in the panel. Maybe there is only one view (at index 0).

B4X:

'        Dim BB As BBListItem = pnl.GetView(1).GetView(1).GetView(BBListItemIndexInItems).Tag
'        BB.ParentScrolled(Offset, clvFAQs.GetRawListItem(i).Offset, clvFAQs.AsView.Height, pnl.GetView(0).Height)
For i = 0 to pnl.NumberOfViews - 1
    log(getType(pnl.GetView(i)) & TAB & pnl.GetView(i).NumberOfViews )
Next

Click to expand...

William Lancee said:

A zip file of a small sample project would help tremendously.
But perhaps @Mahares would already know the answer

Click to expand...

William Lancee said:

A zip file of a small sample project would help tremendously.
But perhaps @Mahares would already know the answer

Click to expand...

joko0124 said:

Can anybody help me with my problem regarding bblistitem

Click to expand...

joko0124 said:

Hello! Can anybody help me with my problem regarding bblistitem?
When I comment blocked line 13-14 it will run with no error, but it doesn't show the content (see attachment)
And removing comments from this line got an error (see attachment)

B4X:

Private Sub clvFAQs_ScrollChanged (Offset As Int)
    For i = 0 To clvFAQs.Size - 1
        Dim pnl As B4XView = clvFAQs.GetPanel(i)
'        Log(pnl.GetView(0).NumberOfViews)
'        If pnl.GetView(0).NumberOfViews > 0 Then
'        For j = 0 To pnl.GetView(0).NumberOfViews - 1
'            Dim mView As View
'            mView = pnl.GetView(j)
'            Log(GetType(mView))
'        Next
'        End If
        If pnl.NumberOfViews = 0 Then Return
        Dim BB As BBListItem = pnl.GetView(1).GetView(1).GetView(BBListItemIndexInItems).Tag
        BB.ParentScrolled(Offset, clvFAQs.GetRawListItem(i).Offset, clvFAQs.AsView.Height, pnl.GetView(0).Height)
    Next

End Sub

Additional info... I am using two layouts
1 for category and 2 for the contents.

Click to expand...

...
Dim pnl As B4XView = clvFAQs.GetPanel(i)
For Each v As View Inpnl.GetAllViewsRecursive
   [I]code for each view of the panel[/I]
Next

William Lancee said:

I am in a different time zone, so I didn't respond.
The link you posted is for a game. Not a small sample source program.

Write a small program that includes only the code and layout that causes the error, zip it and attach the zip file
to this thread.

I would need this for me to help you.

But you could find the problem yourself by tracking the tree of nodes in the CLV panels.
1. get the number of views of a view
2. iterate through them and see what they are (use try block to avoid crashes)

Repeat recursively if necessary.

Note: Avoid appealing to individual members for help.
(I mentioned @Mahares in jocular way, with deep respect for his skills with CLV)

Click to expand...

Mahares said:

I could not follow your project, so based on a project I made a while back featuring xClv expanded and BBListItems, I used your database and your data in the attached project. It does a lot of what you want to do. Hopefully, when you run it you will be able to figure out what is causing the issue in your own project. Please note that I added a couple of methods to the CLVExpandable class that allows for expanding all or collapsing all with one button click. They are both marked by ‘Mahares’ next to them.
Thank you @William Lancee for the compliment, but you have forgotten more than I will ever know"
View attachment 147066


View attachment 147067

Click to expand...