Android Question [Solved]CLVDragger

[Theera]

Hello all,
I have studied formbuilder project and interested in CLVDragger.bas . I have tried to code a new project in B4XPages which is attached.
I have 2 problems

#If B4J 
Private Sub Drag_MousePressed (EventData As MouseEvent)
#Else
       ???
#End If
    Dim lbl As B4XView = Sender
    Dim list As CustomListView = lbl.Tag
    Dim pnl As B4XView = list.GetPanel(list.GetItemFromView(lbl)).Parent
    pnl.GetView(0).SetColorAndBorder(xui.Color_Transparent, 3dip, 0xFF503ACD, 0)
    Dim ListStartY As Int = EventData.Y + lbl.Top + pnl.Top
    pnl.BringToFront
    Dim Top As Int = pnl.Top
    Do While True
     #If B4J
        Wait For (lbl) Drag_MouseDragged (EventData As MouseEvent)
     #Else
           ???
     #End If
        If pnl.Top < list.sv.ScrollViewOffsetY Then
            list.sv.ScrollViewOffsetY = Max(0, list.sv.ScrollViewOffsetY - 10dip)
        Else If list.sv.ScrollViewOffsetY + list.sv.Height < pnl.Top + pnl.Height Then
            list.sv.ScrollViewOffsetY = list.sv.ScrollViewOffsetY + 10dip
        End If
        Dim ListY As Int = EventData.Y + lbl.Top + pnl.Top
        Dim delta As Int = ListY - ListStartY
        pnl.Top = Top + delta
    Loop
End Sub
#If B4J
Private Sub Drag_MouseReleased (EventData As MouseEvent)
#Else
     ???
#End If
    Dim lbl As B4XView = Sender
    Dim list As CustomListView = lbl.Tag
    Dim index As Int = list.GetItemFromView(lbl)
    Dim pnl As B4XView = list.GetPanel(index).Parent
    Dim Offset As Int = pnl.Top + pnl.Height / 2
    Dim NewIndex As Int = list.FindIndexFromOffset(Offset)
    Dim UnderlyingItem As CLVItem = list.GetRawListItem(NewIndex)
    If Offset - UnderlyingItem.Offset > UnderlyingItem.Size / 2 Then NewIndex = NewIndex + 1
    Dim ActualItem As B4XView = pnl.GetView(0)
    ActualItem.SetColorAndBorder(pnl.Color, 0dip, xui.Color_Black, 0)
    Dim RawItem As CLVItem = list.GetRawListItem(index)
    list.RemoveAt(index)
    If NewIndex > index Then NewIndex = NewIndex - 1
    NewIndex = Max(0, Min(list.Size, NewIndex))
    list.InsertAt(NewIndex, ActualItem, RawItem.Value)
    list.GetRawListItem(NewIndex).TextItem = RawItem.TextItem
End Sub

And another problem when I tested in B4J ,Why it can not be swapped correctly.

 

[aeric]

I don't think the module is compatible with B4A or B4i.
It can only be use on B4J.

 

[aeric]

I have a modified version that worked on B4A, B4i and B4J.

 

[Theera]

I have a modified version that worked on B4A, B4i and B4J.

Will it be a part of xCustomListview library, won't it?

 

[aeric]

Here it is for you (and all).

[B4X] CLVDragger

Another gift for B4X community. Here is my modified version of CLVDragger which will work on B4A, B4i and B4J. I used this class in my B4X Todo List app.

www.b4x.com

 

[Theera]

Here it is for you (and all).

[B4X] CLVDragger

Another gift for B4X community. Here is my modified version of CLVDragger which will work on B4A, B4i and B4J. I used this class in my B4X Todo List app.

www.b4x.com

Is there example for studying? I think it be useful for Thai programmers'studying.I willadd inThai forum, too.I hope Thaiprogrammers will be interested B4X as powered tools.

 

[aeric]

Is there example for studying? I think it be useful for Thai programmers'studying.I willadd inThai forum, too.I hope Thaiprogrammers will be interested B4X as powered tools.

Try add the class to your project that you attached above.

Comment the following section:

Public Sub AddDragButtons
    list.PressedColor = xui.Color_Transparent
    Dim fnt As B4XFont = xui.CreateMaterialIcons(30)
    For i = 0 To list.Size - 1
        Dim p As B4XView = list.GetPanel(i)
        #Region B4XTodo
        'Dim pnl As B4XView = p.GetView(0)        ' pnlItem
        'Dim btn1 As B4XView = pnl.GetView(2)     ' lblEdit
        'Dim btn2 As B4XView = pnl.GetView(3)     ' lblDelete
        'btn1.Visible = False
        'btn2.Visible = False
        #End Region

Edit: Remember to remove the old class in your B4A folder. You can add this class to the project parent folder (same level as B4XMainPage.bas).

 

[aeric]

I have updated your project.
xCustomListview is replaced by XUI Views library.
I also added layout files for B4i.

 

[aeric]

If my solution works, please Remember to mark my answer as solution.

 

[Theera]

If my solution works, please Remember to mark my answer as solution.

Your solution works, many thanks.

 

[aeric]

If my solution works, please Remember to mark my answer as solution.