B4J Question TextArea ReadOnly

[Firpas]

Hi to everybody

In this post:

https://www.b4x.com/android/forum/threads/modal-form-with-scrollable-text.42772/#post-259024

Erel gives as a solution to use a readonly TextArea.

But how to do it??
I can do it disabled (Enabled = False) but i dont want change the aspect.

Thanks in advance

 

[LucaMs]

I would try so:

Sub taName_TextChanged (Old As String, New As String)
    If New <> Old Then
        taName.Text = Old
    End If
End Sub

taName is a TextArea, of course.

 

[Firpas]

It isn't a solution for me because the content must be changed by code.
I only want I want to prevent user intervention

 

[LucaMs]

It isn't a solution for me because the content must be changed by code.
I only want I want to prevent user intervention

Use a global boolean variable to check if the content was changed by code.

Sub taName_TextChanged (Old As String, New As String)
    If Not(mChangedByCode) Then
        If New <> Old Then
            taName.Text = Old
        End If
    End If
End Sub

mChangedByCode = True
taName.Text = "xyz"

 

[LucaMs]

ehm... Why do not you use a label?

 

[Firpas]

I need to scroll.

I've seen the property "Editable" as Boolean in Javafx Scene Builder, but it not exist in the internal designer.

It may be possible with some method of Java Object?

 

[Firpas]

SOLVED

I`ve found the solution:

Sub asJavaObject(j As JavaObject) As JavaObject
    Return j
End Sub

asJavaObject(TxtObjPlan).RunMethod("setEditable", Array(False))

 

[LucaMs]

Dim jo As JavaObject
jo = TextArea1
jo.RunMethod("setEditable", Array As Object(False))

 

[Firpas]

Ok
It is the same i posted
Thank you

 

[LucaMs]

I know, we were writing at the same time, this is the reason for my...