Sub Globals
Dim Recycler As Amir_RecyclerView
Dim CarouselVP As Amir_RVCarouselViewPager
Private pGallery As Panel
Private ImageView1 As ImageView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
Recycler.Initializer("Amir").NoLayout
pGallery.AddView(Recycler,0,0,pGallery.Width, pGallery.Height)
CarouselVP.Initializer("Amir",Recycler).MaxVisibleItemCount(5).ItemSpace(150dip).Horizontal.Build
CarouselVP.CenterSnapHelper
CarouselVP.Infinite=True
Recycler.DefaultAdapter
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, 0, 0, pGallery.Width, pGallery.Height)
Dim img As ImageView
img.Initialize("")
Panel.AddView(img,0,0,Panel.Width,Panel.Height)
End Sub
Private Sub Amir_onBindViewHolder (Parent As Panel,Position As Int)
Dim Panel As Panel = Parent.GetView(0)
Dim img As ImageView = Panel.GetView(0)
img.Tag = Null
LoadImage(img, Position)
Dim Color As ColorDrawable
Color.Initialize(Colors.Transparent,5dip)
Panel.Background=Color
Parent.Width = pGallery.Width
Parent.Height = pGallery.Height
End Sub
Private Sub LoadImage (Img As ImageView, Position As Int)
Dim Glide As Amir_Glide
Glide.Initializer.Default
Glide.LoadWith.URI("file:///android_asset/item"&(Position+1)&".jpg").Apply(Glide.RO.CenterCrop).Into(Img)
End Sub
Private Sub Amir_GetItemCount As Int
Return 10
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
Sub Amir_onItemClick (Parent As Panel, Position As Int)
Log("#-Sub arv_onItemClick, Position=" & Position)
Dim Panel As Panel = Parent.GetView(0)
Dim img As ImageView = Panel.GetView(0)
' ImageView1.SetBackgroundImage(img.Bitmap)
ImageView1.Background = img.Background
End Sub
