B4J Question Reverse text scrollinglabel

[ibra939]

I need to Reverse text of scrollinglabel how ?

[B4X] BBScrollingLabel - rich text scrolling label

(this is an animated gif, it is is much smoother in real usage) BBScrollingLabel is similar to XUI Views ScrollingLabel, however it is based on BCTextEngine and can therefore display formatted text. It is cross platform. Usage instructions: - Download the b4xlib and put it in the B4X...

www.b4x.com

 

[Erel]

What exactly do you mean?

 

[ibra939]

I mean the text if can move it from right to left or left to right

 

[aeric]

"Reverse"

 

[Erel]

A modified module with reverse property is attached.

The change is minimal with just the addition of a single variable:

Dim ReverseFix As Int = IIf(mReverse, -1, 1) '<------------------
ImageView1.SetLayoutAnimated(0, 0, h, ivwidth, ivheight)
ImageView2.SetLayoutAnimated(0, ReverseFix * (ivwidth + Gap), h, ivwidth, ivheight)
If ivwidth <= mBase.Width Then
    ImageView2.Visible = False
Else
    ImageView2.Visible = True
    Dim MyIndex As Int = LoopIndex
    Dim duration As Int = ivwidth / WidthPerSecond * 1000
    Sleep(StartPositionDelay)
    If MyIndex <> LoopIndex Then Return
    Do While True
        ImageView1.SetLayoutAnimated(duration, ReverseFix * (-ivwidth - Gap), ImageView1.Top, ImageView1.Width, ImageView1.Height)
        ImageView2.SetLayoutAnimated(duration, 0, ImageView1.Top, ImageView1.Width, ImageView1.Height)
        Sleep(duration)
        If MyIndex <> LoopIndex Then Return
        Sleep(StartPositionDelay)
        If MyIndex <> LoopIndex Then Return
        ImageView1.SetLayoutAnimated(0, 0, h, ivwidth, ivheight)
        ImageView2.SetLayoutAnimated(0, ReverseFix * (ivwidth + Gap), h, ivwidth, ivheight)
    Loop
End If

Tested in B4J only.

 

[ibra939]

thanks, you Erel