hello !!!
someone help me how to remove the textArea scroll bar?
someone help me how to remove the textArea scroll bar?
Yes, only verticalThe vertical scrollbar?
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
You are correct. It is a mistake in my code. I will update it.Dim jo as JavaObject = ta