Android Question (Solved)Strange behavior CustomListview_VisibleRangeChanged

Ferdari

Active Member
Licensed User
Longtime User
Hi everyone,

Im trying to do a Infinity scroll CLV.

tried almost every example of how to hide items off screen and load the visible ones, but a rare behavior came when scrolling:
Some items visible disappear on scroll, the logs catches weird hide and show items order:
1719793687254.png

B4X:
Sub ServicesLV_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
    Dim ExtraSize As Int = 15

    For i = 0 To ServicesLV.Size - 1
        Dim p As Panel = ServicesLV.GetPanel(i)
   
        If i > FirstIndex - ExtraSize And i < LastIndex + ExtraSize Then
       
            'Visible items Show
            If p.NumberOfViews = 0 Then
                Log("add lv item "& i)
           
                Dim data() As String = ServicesLV.GetValue(i)
                If Not( data(0).Contains("panel") ) Then
                    p.LoadLayout("item")
                    Try
                        'Load pub Left
                        PriceTag1.Text="$ 100"
                        PubLabel2.Text="Item 1"
                        PubImg1.Bitmap=LoadBitmapResize(File.DirAssets, "sample1.webp",200dip,200dip,True)

                        'Load pub Right
                        PriceTag2.Text="$ 100"
                        PubLabel2.Text="Item 2"
                        PubImg2.Bitmap=LoadBitmapResize(File.DirAssets, "sample2.webp",200dip,200dip,True)
                    Catch
                        Log(LastException)
                    End Try
                Else
                    Log("its a panel")
                End If
            Else
                'Not Visible items, hide
                If p.NumberOfViews > 0 Then
                    LogColor("remove lv index "& i,Colors.Yellow)
                    p.RemoveAllViews
                End If
            End If
        End If
    Next
End Sub

Im not using PCLV because i add dynamically more items on scroll from server, PCLV ignores new added items.

I cant get rid of this ¿bug?

I also notice lag when items are removedo_O

I appreciate your help, i have weeks trying to solve this.

Example is attached
 

Attachments

  • CLV_Bug.zip
    37.6 KB · Views: 78
Last edited:
Solution
Your code is wrong.
The "Else" is in the wrong place. You should only remove items that are not visible.

1719897766983.png


For further discussion please start a new thread in the question.

Tips:
- Switch to B4XPages.
- Don't load the same image multiple times.

Alexander Stolte

Expert
Licensed User
Longtime User
Works if I implement lazy loading in this way, just as it is in the tutorial:
B4X:
Sub ServicesLV_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
    Dim ExtraSize As Int = 20
    For i = 0 To ServicesLV.Size - 1
        Dim p As B4XView = ServicesLV.GetPanel(i)
        If i > FirstIndex - ExtraSize And i < LastIndex + ExtraSize Then
            'visible+
            If p.NumberOfViews = 0 Then
                p.LoadLayout("item")
               
                PriceTag1.Text="$ 100"
                PubLabel2.Text="Item 1"
                PubImg1.Bitmap=LoadBitmapResize(File.DirAssets, "sample1.webp",200dip,200dip,True)

                'Load pub Right
                PriceTag2.Text="$ 100"
                PubLabel2.Text="Item 2"
                PubImg2.Bitmap=LoadBitmapResize(File.DirAssets, "sample2.webp",200dip,200dip,True)
               
            End If
        Else
            'not visible
            If p.NumberOfViews > 0 Then
                p.RemoveAllViews '<--- remove the layout
            End If
        End If
    Next
End Sub

You only have to reload data when you have actually reached the end of the list. Use the following code or something like that:
B4X:
Sub ServicesLV_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
    Dim ExtraSize As Int = 20
    For i = 0 To ServicesLV.Size - 1
        Dim p As B4XView = ServicesLV.GetPanel(i)
        If i > FirstIndex - ExtraSize And i < LastIndex + ExtraSize Then
            'visible+
            If p.NumberOfViews = 0 Then
                p.LoadLayout("item")
               
                PriceTag1.Text="$ 100"
                PubLabel2.Text="Item 1"
                PubImg1.Bitmap=LoadBitmapResize(File.DirAssets, "sample1.webp",200dip,200dip,True)

                'Load pub Right
                PriceTag2.Text="$ 100"
                PubLabel2.Text="Item 2"
                PubImg2.Bitmap=LoadBitmapResize(File.DirAssets, "sample2.webp",200dip,200dip,True)
               
            End If
           
            If (LastIndex + ExtraSize) > ServicesLV.Size Then
                Log("Add new items to list")
            End If
           
        Else
            'not visible
            If p.NumberOfViews > 0 Then
                p.RemoveAllViews '<--- remove the layout
            End If
        End If
    Next
End Sub
And always test in release mode.
 
Upvote 0

Ferdari

Active Member
Licensed User
Longtime User
Works if I implement lazy loading in this way, just as it is in the tutorial:
B4X:
Sub ServicesLV_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
    Dim ExtraSize As Int = 20
    For i = 0 To ServicesLV.Size - 1
        Dim p As B4XView = ServicesLV.GetPanel(i)
        If i > FirstIndex - ExtraSize And i < LastIndex + ExtraSize Then
            'visible+
            If p.NumberOfViews = 0 Then
                p.LoadLayout("item")
             
                PriceTag1.Text="$ 100"
                PubLabel2.Text="Item 1"
                PubImg1.Bitmap=LoadBitmapResize(File.DirAssets, "sample1.webp",200dip,200dip,True)

                'Load pub Right
                PriceTag2.Text="$ 100"
                PubLabel2.Text="Item 2"
                PubImg2.Bitmap=LoadBitmapResize(File.DirAssets, "sample2.webp",200dip,200dip,True)
             
            End If
        Else
            'not visible
            If p.NumberOfViews > 0 Then
                p.RemoveAllViews '<--- remove the layout
            End If
        End If
    Next
End Sub

You only have to reload data when you have actually reached the end of the list. Use the following code or something like that:
B4X:
Sub ServicesLV_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
    Dim ExtraSize As Int = 20
    For i = 0 To ServicesLV.Size - 1
        Dim p As B4XView = ServicesLV.GetPanel(i)
        If i > FirstIndex - ExtraSize And i < LastIndex + ExtraSize Then
            'visible+
            If p.NumberOfViews = 0 Then
                p.LoadLayout("item")
             
                PriceTag1.Text="$ 100"
                PubLabel2.Text="Item 1"
                PubImg1.Bitmap=LoadBitmapResize(File.DirAssets, "sample1.webp",200dip,200dip,True)

                'Load pub Right
                PriceTag2.Text="$ 100"
                PubLabel2.Text="Item 2"
                PubImg2.Bitmap=LoadBitmapResize(File.DirAssets, "sample2.webp",200dip,200dip,True)
             
            End If
         
            If (LastIndex + ExtraSize) > ServicesLV.Size Then
                Log("Add new items to list")
            End If
         
        Else
            'not visible
            If p.NumberOfViews > 0 Then
                p.RemoveAllViews '<--- remove the layout
            End If
        End If
    Next
End Sub
And always test in release mode.
Hi Alex, Have you tried the project?

i add more items on ReachEnd, the problem is not there, is when scrolling some visible items disappear and reappear, see the log
 
Last edited:
Upvote 0

Alexander Stolte

Expert
Licensed User
Longtime User
Have you tried the project?
Yes and I couldn't find a place in the code where you add new items to the list. You just load the layout to the panels that do not yet have a loaded layout due to lazy loading.
i add more items on ReachEnd, the problem is not there, is when scrolling some visible items disappear and reappear, see the log
Look at your example project, there is no ReachEnd event.
 
Upvote 0

Ferdari

Active Member
Licensed User
Longtime User
Yes and I couldn't find a place in the code where you add new items to the list. You just load the layout to the panels that do not yet have a loaded layout due to lazy loading.

Look at your example project, there is no ReachEnd event.
But can you see the bug when scrolling?

Its a new project to reproduce the bug, the real project handles ReachEnd and the data via Cards type.
 
Upvote 0

Ferdari

Active Member
Licensed User
Longtime User
Its like visible range not getting real visible range, i tested resizing base panel so it catches real size, but no luck.
 
Upvote 0

Ferdari

Active Member
Licensed User
Longtime User
Yes i can see it, but i cant say why this happend, because if i add the lazyloading code from the tutorial, then its works like in the code snipped in #2
Oh, what tutorial you mean? i followed all tutorials(i think)? your code is not using ReachEnd as i can see.
 
Upvote 0

Alexander Stolte

Expert
Licensed User
Longtime User
You didn't have the reach end event in your example project, so how should I know? Just replace the code and then try again :)

In the lazy loading Tutorial, if you search, then the first Result
 
Upvote 0

Ferdari

Active Member
Licensed User
Longtime User
You didn't have the reach end event in your example project, so how should I know? Just replace the code and then try again :)

In the lazy loading Tutorial, if you search, then the first Result
Thanks for your suggestions, as said before in post #5 "Its a new project to reproduce the bug, the real project handles ReachEnd and the data via Cards type.",

The main thread is about the bug, i already implemented Lazyloading, but i will test your code to see if bug is gone and why

im trying to optimize my CLV to be fastest and memory saver, as it has lots of pictures, a Recyclerview must be the answer.
 
Upvote 0

Ferdari

Active Member
Licensed User
Longtime User
Your code is wrong.
The "Else" is in the wrong place. You should only remove items that are not visible.

View attachment 155100

For further discussion please start a new thread in the question.

Tips:
- Switch to B4XPages.
- Don't load the same image multiple times.
i will try your suggestions, Thank you Erel, youre the best!
 
Upvote 0
Top