Android Question [B4X] Problem with ScrollingLabel class

[cooperlegend]

ref https://www.b4x.com/android/forum/threads/b4x-xui-scrolling-label.85516/

I am using this handy class on both B4A and B4i, but I am finding they act differently.
On B4A it goes slowly at the start and the end of the text, on B4i it is a constant speed

Ideally I would like a slow start and then continuous speed wrap around at the end of text infinitely on both platforms

 

[Erel]

Try it with this code:

Private Sub StartScrolling (p As B4XView, OriginalWidth As Float)
   taskIndex = taskIndex + 1
   Dim myIndex As Int = taskIndex
   Dim duration As Int = p.Width / WidthPerSecond * 1000
   Do While True
#if B4I
       Dim pp As Panel = p
       pp.SetLayoutAnimated(duration * 3, 1, -(p.Width - OriginalWidth), p.Top, p.Width, p.Height)
#else
       p.SetLayoutAnimated(duration, -(p.Width - OriginalWidth), p.Top, p.Width, p.Height)
#end if
       Sleep(duration)
       If myIndex <> taskIndex Then Return
       Sleep(800)
       p.SetLayoutAnimated(0, 0, p.Top, p.Width, p.Height)
       If myIndex <> taskIndex Then Return
   Loop
End Sub

 

[cooperlegend]

Thanks Erel, Unfortunately that didn't work as I was hoping.

I got a label that scrolls far too fast to read now and doesn't repeat anymore.

I am looking for a scrolling label on both platforms that starts off slowly and builds up to a speed that you can read the label at and continues to wrap around on itself so it can continue to be read.

How can I tweak the code above, I tried many settings but couldn't figure out how this routine was working

 

[Erel]

got a label that scrolls far too fast to read now and doesn't repeat anymore.

It should be:

Private Sub StartScrolling (p As B4XView, OriginalWidth As Float)
   taskIndex = taskIndex + 1
   Dim myIndex As Int = taskIndex
   Dim duration As Int = p.Width / WidthPerSecond * 1000
   Do While True
#if B4I
       Dim pp As Panel = p
       duration = duration * 3
       pp.SetLayoutAnimated(duration, 1, -(p.Width - OriginalWidth), p.Top, p.Width, p.Height)
#else
       p.SetLayoutAnimated(duration, -(p.Width - OriginalWidth), p.Top, p.Width, p.Height)
#end if
       Sleep(duration)
       If myIndex <> taskIndex Then Return
       Sleep(800)
       p.SetLayoutAnimated(0, 0, p.Top, p.Width, p.Height)
       If myIndex <> taskIndex Then Return
   Loop
End Sub

 

[cooperlegend]

Nope, that made no difference, text goes at 100 mph and then just stops at the end...

 

[Erel]

Sorry but I don't have a good solution for you as this is how the iXUI animation works.

 

[cooperlegend]

OK, thanks for trying, appreciated