Scrollable text

[stefanoa]

there's a way to display a line of scrollable text?

 

[Jack Cole]

I typically use a webview for displaying scrollable text, but you could put a label in a scrollview.

 

[stefanoa]

I need for automatic scrollable text from right to left, and when finished on the left, disappear and then restart from the right..

 

[Jack Cole]

Maybe this will do what you want?

http://www.b4x.com/forum/basic4andr...-reflection-set-marquee-label.html#post105695

 

[stefanoa]

Yes thanks!

the code:

....
DisplayText("This is a scrollable text")
....

Sub DisplayText(xtext as string)
  ScrollTitleLabel.Text=xtext
  SetEllipsize(ScrollTitleLabel, "MARQUEE")
end sub

Sub SetEllipsize(TextView As Label, Mode As String)
    Dim r As Reflector
    r.Target = TextView
    r.RunMethod2("setLines", 1, "java.lang.int")
    r.RunMethod2("setHorizontallyScrolling", True, "java.lang.boolean") 
    r.RunMethod2("setEllipsize", Mode, "android.text.TextUtils$TruncateAt")
    r.RunMethod2("setSelected", True, "java.lang.boolean")
End Sub

 

[jcesar]

Great code!

Works fine, but after some minutes the text scroll stop.

And in android 4.x sometimes dont begin to scroll as activity start.

 

[straybullet]

Ok what am I missing, I added a edittext to the designer called ScrollTitleLabel


And generated the member for it, and I run it on a Android phone I get a Java runtime exception of Object should first be initialized (EditText)

So what view do I need to add and what should I call it. I added the reflection library already.

Thanks

Yes thanks!

the code:

....
DisplayText("This is a scrollable text")
....

Sub DisplayText(xtext as string)
  ScrollTitleLabel.Text=xtext
  SetEllipsize(ScrollTitleLabel, "MARQUEE")
end sub

Sub SetEllipsize(TextView As Label, Mode As String)
    Dim r As Reflector
    r.Target = TextView
    r.RunMethod2("setLines", 1, "java.lang.int")
    r.RunMethod2("setHorizontallyScrolling", True, "java.lang.boolean") 
    r.RunMethod2("setEllipsize", Mode, "android.text.TextUtils$TruncateAt")
    r.RunMethod2("setSelected", True, "java.lang.boolean")
End Sub

 

[Mahares]

Use a label instead of edittext. Call it:ScrollTitleLabel. Also I assume you use Reflection lib: 2.20. I just ran it on a Razr phone and it works.