Dim Txt as JavaObject
Txt = SetRTFString("Sample String is here")
SetTextColor(Txt, Colors.Magenta, 0, 5)
Dim Edittext1 As EditText
Edittext1.Initialize("EditText1")
Edittext1.Text = Txt
Sub SetRTFString(AString As String) As JavaObject
Dim jo As JavaObject
Return jo.InitializeNewInstance("android.text.SpannableString", Array As Object(AString))
End Sub
Sub SetTextColor(ScanText As JavaObject, AColor As Int, start As Int, ende As Int)
Dim jo1, jo2 As JavaObject
jo1 = jo2.InitializeNewInstance("android.text.style.ForegroundColorSpan", Array As Object(AColor))
ScanText.RunMethod("setSpan", Array As Object(jo1, start, ende, 13))
End Sub