B4A Library [Lib, Chargeable] Amir_RecyclerView

Private Sub timer_Tick
  If Recycler.CurrentPage = 4 Then Recycler.GoToPosition(0) Else Recycler.GoToNext(True)
End Sub

Sub Globals
    Dim Recycler As AX_RecyclerView
    Dim Text As Label
       
End Sub

Sub Activity_Create(FirstTime As Boolean)
   
    Activity.LoadLayout("1")
   


    Recycler.Initializer("Amir").ListView.Build  
    Activity.AddView(Recycler,0,23%y,100%x,67%y)

    Dim Adapter As AX_RVAdapter
    Adapter.Initialize("Amir",Adapter.LOOP_NEVER)
   
    Recycler.Adapter=Adapter




End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Private Sub Amir_onCreateViewHolder (Parent As Panel,ViewType As Int)
    Dim Panel As Panel
    Panel.Initialize("")
    Parent.AddView(Panel,10dip,10dip,Parent.Width-20dip,135dip)

   
    Dim img As ImageView
   
    img.Initialize("")
    Panel.AddView(img,8dip,6dip,Panel.Width/3,Panel.Height - 10dip)

    Text.Initialize("")
    Panel.AddView(Text,Panel.Width/2 +10dip ,Panel.Height/2 - 10dip,(Panel.Width - (Panel.Width/3))-20dip,Panel.Height/2)
End Sub

Private Sub Amir_onBindViewHolder (Parent As Panel,Position As Int)
    Dim Panel As Panel = Parent.GetView(0)
    Dim ViewManager As Amir_ViewManager
    ViewManager.Initialize(Panel)
    ViewManager.BackgroundColor=Colors.RGB(211,211,211)
    ViewManager.BackgroundEnabledColor=Colors.RGB(211,211,211)
    ViewManager.Radius=0dip
    ViewManager.Start
    Panel.Elevation=2dip
    setClipToOutline(Panel)
   
    Dim img As ImageView = Panel.GetView(0)
    Dim  Text = Panel.GetView(1) As Label

    LoadImage(img,Position)
   

    Parent.Height=145dip
    'Parent.Width=100%x
End Sub

Private Sub Amir_GetItemCount As Int
    Return 2
End Sub

Public Sub setClipToOutline (Panel As Panel)
    Dim P As Phone
    If P.SdkVersion >= 21 Then
        Dim jo As JavaObject = Panel
        jo.RunMethod("setClipToOutline",Array(True))
    End If
End Sub


Private Sub LoadImage (Img As ImageView,Position As Int)
    Dim Glide As Amir_Glide
    Dim color2 As ColorDrawable
    color2.Initialize(Colors.DarkGray,0)
    Glide.RequestManager.SetDefaultRequestOptions(Glide.RO.ErrorDrawable(color2).Placeholder(color2).CenterCrop)
    Glide.Initializer.Default
   
   
    Select Case Position
        Case 0
            Glide.Load("https://xxxx-thumb1.jpg").Apply(Glide.RO.FitCenter).Into(Img)
        Case 1
            Glide.Load("https://yyyy-thumb2.jpg").Apply(Glide.RO.FitCenter).Into(Img)

    End Select
       
  
End Sub



  Private Sub Amir_onItemClick (Parent As Panel,Position As Int)
               
   End Sub

Sub Globals
    Dim Recycler As Amir_RecyclerView
    Dim Data As List
    Dim Drag As Amir_RVDragItem
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Recycler.Initializer("Amir").ListView.Build
    Activity.AddView(Recycler,0,0,100%x,100%y)


    Data.Initialize
    For i = 1 To 10
        Data.Add("Item : "&i)
    Next

    Drag.Initialize("Amir",Recycler)
    Drag.SetDataList(Data)
    Drag.SetNotifiMoveAdapter(True)

    Dim Adapter As Amir_RVAdapter
    Adapter.Initialize("Amir",Adapter.LOOP_NEVER)
    Adapter.Ripple.Color(Colors.LightGray).Build
    Recycler.Adapter=Adapter
    Recycler.Color=Colors.White
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Private Sub Amir_onCreateViewHolder (Parent As Panel,ViewType As Int)
    Dim Label As Label
    Label.Initialize("")
    Parent.AddView(Label,20dip,0,100%x-50dip,40dip)
End Sub

Private Sub Amir_onBindViewHolder (Parent As Panel,Position As Int)
    Dim Label As Label=Parent.GetView(0)
    Label.TextColor=Colors.Black
    Label.TextSize=20
    Label.Gravity=Bit.Or(Gravity.LEFT,Gravity.CENTER_VERTICAL)
    Label.Text=Data.Get(Position)
    Parent.Height=40dip
End Sub

Private Sub Amir_GetItemCount As Int
    Return Data.Size
End Sub

Private Sub Amir_onItemSelectedChanged (Item As Object,Position As Int,ActionState As Int)
    If Item<>Null Then
        Dim Parent As Panel = Recycler.Utils.GetParentFromItemObject(Recycler,Item)
        Dim Label As Label = Parent.GetView(0)
        If ActionState = Drag.ACTION_STATE_DRAG Then
            Label.TextColor=Colors.Red
        Else
            Label.TextColor=Colors.Black
        End If
    End If
End Sub