I put a 9 country flags in a list and used an imageslider to move forward and backward to display each flag. I have a label under the slider that displays the name of the image. The label shows the proper image name for one complete cycle of scrolling through the images, but afterwards the label gets stuck with the wrong image name. Can someone please determine how I can get it to display the label text to match the visible image each time. Complete project is zipped and attached: Thank you
B4X:
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
lblFlag.Color=Colors.DarkGray
MyList.Initialize
MyList2.Initialize
MyList=File.ListFiles(File.DirAssets)
For Each f As String In MyList
If f.EndsWith(".png") Then
MyList2.Add(f)
End If
Next
ImageSlider1.WindowBase.Color=Colors.Cyan
ImageSlider1.NumberOfImages = MyList2.Size
If FirstTime Then
timer1.Initialize("timer1", 2500)
End If
ImageSlider1.PrevImage
End Sub
Sub ImageSlider1_GetImage (Index As Int) As ResumableSub
Idx=Index
Return xui.LoadBitmapResize(File.DirAssets,MyList2.Get(Index), _
ImageSlider1.WindowBase.Width/2, ImageSlider1.WindowBase.Height, True)
End Sub
Sub btnNext_Click
ImageSlider1.NextImage
lblFlag.Text=MyList2.Get(Idx) & " " & Idx
End Sub
Sub btnPrev_Click
ImageSlider1.PrevImage
lblFlag.Text=MyList2.Get(Idx) & " " & Idx
End Sub
Sub btnPlay_Click
timer1.Enabled = Not(timer1.Enabled)
If timer1.Enabled Then btnPlay.Text = Chr(0xF04D) Else btnPlay.Text = Chr(0xF04B)
End Sub
Sub Timer1_Tick
btnNext_Click
End Sub