Android Question CLVSWIPE+CLV_HORIZONTAL

Uniko Sistemi srl · Jan 3, 2024

Hi everyone!
I'm trying the project with CLVswipe and I introduced a horizontal CLV which I have some problems with.
The problem is that if I scroll horizontally with my finger slowly the list scrolls, if I do it quickly it doesn't. Am I doing something wrong?
Thank you
I attach the modified example project

MarcoRome · Jan 3, 2024

1) When you export an example to B4XPages you need to hold down the Ctrl key + click on the following link (which you will find inside the module).
Otherwise it becomes a mess

2) Look at this example. There are no delays or anything everything works fine

[B4X] CLVSwipe - xCustomListView Swipe actions and pull to refresh

CLVSwipe is a class that adds "swipe actions" and pull to refresh features to the standard xCustomListView library. It is compatible with B4A and B4i (currently not with B4J). Both features are optional. Using it is simple: 1. Add the class to your project. It depends on XUI...

www.b4x.com

Uniko Sistemi srl · Jan 3, 2024

MarcoRome said:
1) When you export an example to B4XPages you need to hold down the Ctrl key + click on the following link (which you will find inside the module).
Otherwise it becomes a mess

View attachment 149247

2) Look at this example. There are no delays or anything everything works fine

Sorry, I'm attaching the project again.
So is this problem happening to me only when scrolling horizontally?
I do not understand

Thank you

MarcoRome · Jan 3, 2024

Uniko Sistemi srl said:
Sorry, I'm attaching the project again.
So is this problem happening to me only when scrolling horizontally?
I do not understand

Thank you

From your example the result I get is the following ( ?? )

This code is incorrect. What would you like ?

B4X:

Sub CreateItems
    
    
    For i = 1 To 1
        addRow1(i)
        
    Next
    
    
    
End Sub
Private Sub addRow1(rowIndex As Int)
    
    Dim pnl As B4XView = xui.CreatePanel("")
    pnl.SetColorAndBorder(xui.Color_Transparent, 1dip, xui.Color_Black, 5dip)
    pnl.SetLayoutAnimated(0, 0, 0, 500dip, 120dip)
    pnl.LoadLayout("2")            'has horizontal clv anchored all sides
    
    
    clvItem.Add(newItem(rowIndex, 2, "Item2"), 0)
    clvItem.Add(newItem(rowIndex, 3, "Item3"), 0)
    clvItem.Add(newItem(rowIndex, 4, "Item4"), 0)
    clvItem.Add(newItem(rowIndex, 5, "Item5"), 0)
    clvItem.Add(newItem(rowIndex, 6, "Item6"), 0)
    clvItem.Add(newItem(rowIndex, 7, "Item7"), 0)
    clvItem.Add(newItem(rowIndex, 8, "Item8"), 0)

    
    CustomListView1.Add(pnl, 1)
End Sub
Private Sub newItem(rowIndex As Int, colIndex As Int, s As String) As B4XView
    Dim btn As Button
    btn.Initialize("btn")
    Dim btnx As B4XView = btn
    btnx.SetTextAlignment("CENTER", "CENTER")
    btnx.Text = s
    btnx.Tag = Array As Int(rowIndex, colIndex)
    btnx.Color = Colors.Black
    btnx.SetColorAndBorder(xui.Color_black, 1dip, xui.Color_Black, 5dip)
    Dim pnl As B4XView = xui.CreatePanel("")
    pnl = xui.CreatePanel("")
    'pnl.SetColorAndBorder(xui.Color_Transparent, 1dip, xui.Color_Black, 5dip)
    pnl.SetLayoutAnimated(0, 0, 0,250dip, 120dip)
    pnl.AddView(btnx, 0, 0, 250dip, 120dip)
    Return pnl
End Sub

if you look at the (working) example code you have

B4X:

Sub CreateItems
    Dim cs As CSBuilder
    For i = 1 To 100
        cs.Initialize.Color(Rnd(0xff000000, -1))
        If i Mod 3 = 0 Then
            cs.Append($"Important item ${i} ..."$).PopAll
            CustomListView1.AddTextItem(cs, Swipe.CreateItemValue("", Array("Delete", "Do Something Else")))
        Else If i Mod 3 = 1 Then
            cs.Append($"Very important item ${i} ..."$).PopAll
            CustomListView1.AddTextItem(cs, Swipe.CreateItemValue("", Array("Action 1", "Action 2", "Action 3")))
        Else
            cs.Append($"Nothing to see here ${i}"$).PopAll
            CustomListView1.AddTextItem(cs, Null)
        End If
    Next
End Sub

Uniko Sistemi srl · Jan 4, 2024

MarcoRome said:

From your example the result I get is the following ( ?? )

View attachment 149249

This code is incorrect. What would you like ?

B4X:

Sub CreateItems
   
   
    For i = 1 To 1
        addRow1(i)
       
    Next
   
   
   
End Sub
Private Sub addRow1(rowIndex As Int)
   
    Dim pnl As B4XView = xui.CreatePanel("")
    pnl.SetColorAndBorder(xui.Color_Transparent, 1dip, xui.Color_Black, 5dip)
    pnl.SetLayoutAnimated(0, 0, 0, 500dip, 120dip)
    pnl.LoadLayout("2")            'has horizontal clv anchored all sides
   
   
    clvItem.Add(newItem(rowIndex, 2, "Item2"), 0)
    clvItem.Add(newItem(rowIndex, 3, "Item3"), 0)
    clvItem.Add(newItem(rowIndex, 4, "Item4"), 0)
    clvItem.Add(newItem(rowIndex, 5, "Item5"), 0)
    clvItem.Add(newItem(rowIndex, 6, "Item6"), 0)
    clvItem.Add(newItem(rowIndex, 7, "Item7"), 0)
    clvItem.Add(newItem(rowIndex, 8, "Item8"), 0)

   
    CustomListView1.Add(pnl, 1)
End Sub
Private Sub newItem(rowIndex As Int, colIndex As Int, s As String) As B4XView
    Dim btn As Button
    btn.Initialize("btn")
    Dim btnx As B4XView = btn
    btnx.SetTextAlignment("CENTER", "CENTER")
    btnx.Text = s
    btnx.Tag = Array As Int(rowIndex, colIndex)
    btnx.Color = Colors.Black
    btnx.SetColorAndBorder(xui.Color_black, 1dip, xui.Color_Black, 5dip)
    Dim pnl As B4XView = xui.CreatePanel("")
    pnl = xui.CreatePanel("")
    'pnl.SetColorAndBorder(xui.Color_Transparent, 1dip, xui.Color_Black, 5dip)
    pnl.SetLayoutAnimated(0, 0, 0,250dip, 120dip)
    pnl.AddView(btnx, 0, 0, 250dip, 120dip)
    Return pnl
End Sub

if you look at the (working) example code you have

B4X:

Sub CreateItems
    Dim cs As CSBuilder
    For i = 1 To 100
        cs.Initialize.Color(Rnd(0xff000000, -1))
        If i Mod 3 = 0 Then
            cs.Append($"Important item ${i} ..."$).PopAll
            CustomListView1.AddTextItem(cs, Swipe.CreateItemValue("", Array("Delete", "Do Something Else")))
        Else If i Mod 3 = 1 Then
            cs.Append($"Very important item ${i} ..."$).PopAll
            CustomListView1.AddTextItem(cs, Swipe.CreateItemValue("", Array("Action 1", "Action 2", "Action 3")))
        Else
            cs.Append($"Nothing to see here ${i}"$).PopAll
            CustomListView1.AddTextItem(cs, Null)
        End If
    Next
End Sub

Hello and thanks.
my goal was to show what creating a horizontal clv inside a vertical main clv looked like. The attached example does this, perhaps not in the correct way (maybe I'm doing that one wrong)
do you have any suggestions?
Thank you
The original example that works, however, shows a simple CLVswipe that vertically, instead of vertical items, I would like to have many CLVs that scroll horizontally with as many items

thanks for your patience

Uniko Sistemi srl · Jan 4, 2024

I attach an example with the original code, does it happen to you too that the horizontal scrolling is not optimal? to scroll I have to swipe slowly, but as soon as I speed up it doesn't scroll. Thank you

Alexander Stolte · Jan 4, 2024

Uniko Sistemi srl said:
maybe I'm doing that one wrong

No, you don't, because as soon as I remove the TouchPanel, swiping the list works again. The swipe class steals the events from the list.

MarcoRome · Jan 4, 2024

Uniko Sistemi srl said:
Allego un esempio con il codice originale, capita anche a te che lo scorrimento orizzontale non sia ottimale? per scorrere devo scorrere lentamente, ma appena accelero non scorre. Grazie

I see it as in the example given. Smooth without slowdowns

Uniko Sistemi srl · Jan 4, 2024

Alexander Stolte said:
No, you don't, because as soon as I remove the TouchPanel, swiping the list works again. The swipe class steals the events from the list.

It is true! but can't I just take it off? So it's as if they couldn't coexist together ?
Thank you

Android Question CLVSWIPE+CLV_HORIZONTAL

Uniko Sistemi srl

Active Member

Attachments

MarcoRome

Expert

[B4X] CLVSwipe - xCustomListView Swipe actions and pull to refresh

Uniko Sistemi srl

Active Member

Attachments

MarcoRome

Expert

Uniko Sistemi srl

Active Member

Uniko Sistemi srl

Active Member

Attachments

Alexander Stolte

Expert

MarcoRome

Expert

Uniko Sistemi srl

Active Member

Similar Threads

Android Question CLVSWIPE+CLV_HORIZONTAL

Active Member

Attachments

Expert

Active Member

Attachments

Expert

Active Member

Active Member

Attachments

Expert

Expert

Active Member

Similar Threads

Privacy & Transparency

Privacy & Transparency