Android Question [XUI] - b4x-xui-customlistview with resumable

[b4xscripter]

Hi,

I liked the example posted here: https://www.b4x.com/android/forum/t...ew-lazy-loading-virtualization.87930/#content

However, when I load the app, for a few time, while the cards are being constructed, it would be nice to have something like "gifviewer" posted here: https://www.b4x.com/android/forum/threads/custom-view-gifviewer.82104/


I suppose that the code I need to resolve is this:

Sub FillList2
   Dim bitmaps As List = Array("pexels-photo-446811.jpeg", "pexels-photo-571195.jpeg", _
       "pexels-photo-736212.jpeg", "pexels-photo-592798.jpeg")
   Dim n As Long = DateTime.Now
   For i = 1 To 1000
       Dim content As String = $"Lorem ipsum dolor sit amet,
consectetur adipiscing elit,
sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.
Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat."$
       Dim cd As CardData
       cd.Initialize
       cd.Title = $"This is item #${i}"$
       cd.Content = content
       cd.BitmapFile = bitmaps.Get((i - 1) Mod bitmaps.Size)
       Dim p As B4XView = xui.CreatePanel("")
       p.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, 280dip)
       CLV1.Add(p, cd)
   Next
   Log("Loading cards took: " & (DateTime.Now - n) & "ms")
End Sub

Let's suppose that I have the Wait here:

Private Wait As GifViewer

And I have an event:

Sub Search_Closed
    Log("SearchView closed")
    FillList2
End Sub

When the Search_closed is executed, for a while the app is "blocked" while the FillList2 is completed ( I suppose)

Here goes my question: how to deal with it? I think I need to use resumable, but when I try to use it making the FillList2 resumable, I still having the app blocked:

Sub Search_Closed
    Log("SearchView closed")
    Wait.Start
    Wait For(FillList2) Complete (Result As Int)
    Wait.Stop
End Sub

Sub FillList2  As ResumableSub
   Dim bitmaps As List = Array("pexels-photo-446811.jpeg", "pexels-photo-571195.jpeg", _
       "pexels-photo-736212.jpeg", "pexels-photo-592798.jpeg")
   Dim n As Long = DateTime.Now
   For i = 1 To 1000
       Dim content As String = $"Lorem ipsum dolor sit amet,
consectetur adipiscing elit,
sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.
Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat."$
       Dim cd As CardData
       cd.Initialize
       cd.Title = $"This is item #${i}"$
       cd.Content = content
       cd.BitmapFile = bitmaps.Get((i - 1) Mod bitmaps.Size)
       Dim p As B4XView = xui.CreatePanel("")
       p.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, 280dip)
       CLV1.Add(p, cd)
   Next
   Log("Loading cards took: " & (DateTime.Now - n) & "ms")
   return 0  'just to get something as a result for Complete (Result As Int)
End Sub

Could anyone help me?

Thanks in advance

 

[Erel]

Don't use Wait as an identifier name.

1. How long does it take to load all cards?
2. You can add this line inside the loop:

If i Mod 100 = 0 Then Sleep(0)

It will allow the UI to be updated.

 

[b4xscripter]

Hi, Erel,

Many Thanks for your help.

I just added the Sleep(0) before to call the
FillList2:

Sub Search_Closed
    Log("SearchView closed")
    Wait.Start
    Sleep(0)
    Wait For(FillList2) Complete (Result As Int)
    Wait.Stop
End Sub

Now it's working OK and the time it takes to build cards is about 0,5 seconds, absolutely acceptable.

I have doubts if I really need to make FillList2 as resumable. What is your opinion?

Thanks, again,

Regards

 

[Erel]

If it is enough to add it before the loop then FillList2 doesn't need to be resumable. I thought that you will need to add it in the loop inside FillList2.