Android Code Snippet Change EditText Colors

1. Add:

#AdditionalJar: com.android.support:support-compat

2.

Sub SetBackgroundTintList(View As View,Active As Int, Enabled As Int)
   Dim States(2,1) As Int
   States(0,0) = 16842908     'Active
   States(1,0) = 16842910    'Enabled
   Dim Color(2) As Int = Array As Int(Active,Enabled)
   Dim CSL As JavaObject
   CSL.InitializeNewInstance("android.content.res.ColorStateList",Array As Object(States,Color))
   Dim jo As JavaObject
   jo.InitializeStatic("android.support.v4.view.ViewCompat")
   jo.RunMethod("setBackgroundTintList", Array(View, CSL))
End Sub

Example:

SetBackgroundTintList(EditText1, Colors.Red, 0xFF0020FF)

It will only be changed on Android 5+.

 

[ilan]

very nice, thanx for that.

can we also change the cursor color?

i read this here: https://stackoverflow.com/questions/7238450/set-edittext-cursor-color

thanx, ilan

 

[Erel]

There is no simple way to change the cursor color. The only non-hacky way to do it is by creating the EditText fields with a XML layout and loading the layout with XmlLayoutBuilder.

 

[ilan]

There is no simple way to change the cursor color. The only non-hacky way to do it is by creating the EditText fields with a XML layout and loading the layout with XmlLayoutBuilder.

i wonder how he did it
https://www.b4x.com/android/forum/threads/change-edittext-cursor-color.58876/

 

[noeleon]

Can it be done in manifest, changing the BackgroundTintList ?

 

[Erel]

Might be. I'm not sure. Anyway it is very simple to use this code. If you want to replace the color of all EditTexts:

For Each v As View in Activity.GetAllViewsRecursive
 If v Is EditText Then
  SetBackgroundTintList(v, ...)
 End If
Next

 

[noeleon]

yes it's a lot easier than manually editing layout xml files which i'm too lazy to try.