B4J Question ScrollBar TextArea

[BeneBarros]

hello !!!
someone help me how to remove the textArea scroll bar?

 

[Erel]

The vertical scrollbar?

 

[BeneBarros]

The vertical scrollbar?

Yes, only vertical

 

[Erel]

This code will partially hide it:

Sub AppStart (Form1 As Form, Args() As String)
   MainForm = Form1
   MainForm.Show
   TextArea1.Initialize("")
   MainForm.RootPane.AddNode(TextArea1, 10, 10, 200, 200)
   CallSubDelayed2(Me, "DisableScrollBar", TextArea1)
End Sub

Sub DisableScrollBar(ta As TextArea)
   Dim jo As JavaObject = ta
   Dim scrollbar As JavaObject = jo.RunMethod("lookup", Array(".scroll-bar:vertical"))
   Dim d As Double = 0
   scrollbar.RunMethod("setOpacity", Array(d))
End Sub

I wasn't able to hide it completely.

 

[BeneBarros]

thank you, works perfectly.
as I am using in various TextArea only changed the line
Dim jo as JavaObject = TextArea1
to
Dim jo as JavaObject = ta

 

[Erel]

Dim jo as JavaObject = ta

You are correct. It is a mistake in my code. I will update it.