Android Question [B4X] Problem with ScrollingLabel class

cooperlegend · Jan 25, 2018

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 · Jan 26, 2018

Try it with this code:

B4X:

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 · Jan 26, 2018

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 · Jan 28, 2018

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

It should be:

B4X:

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 · Jan 29, 2018

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

Erel · Jan 29, 2018

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

cooperlegend · Jan 29, 2018

OK, thanks for trying, appreciated

Android Question [B4X] Problem with ScrollingLabel class

cooperlegend

Active Member

Erel

B4X founder

cooperlegend

Active Member

Erel

B4X founder

cooperlegend

Active Member

Erel

B4X founder

cooperlegend

Active Member

Similar Threads

Android Question [B4X] Problem with ScrollingLabel class

cooperlegend

Active Member

Erel

B4X founder

cooperlegend

Active Member

Erel

B4X founder

cooperlegend

Active Member

Erel

B4X founder

cooperlegend

Active Member

Similar Threads

Privacy & Transparency

Privacy & Transparency