Spanish Apariencia Text

[aviario]

Hola, alguien sabe como cambiar la apariencia del text sin cambiarlo en el manifiesto? ya que los clientes les gusta mas el antiguo que el de ahora con la raya

 

[ebqlabs]

Cual de los dos,
el blanco
o el otro ?

saludos

 

[aviario]

el Blanco

 

[ebqlabs]

yo lo realizo de la siguiente forma

Dim txtDireccion As EditText
txtDireccion.Initialize("txtDireccion")
    
    Activity.AddView(txtDireccion, 5%x, 25%y, 90%x, 9.8%y)
    txtDireccion.TextSize = 14
    txtDireccion.TextColor = Colors.RGB (0,0,0) 'color de texto
    txtDireccion.Color = Colors.RGB (255,255,255) 'color de fondo

saludos.

 

[aviario]

Gracias por la solución y para ponerle el borde cuando recibe el foco como haces

un saludo
Paco

 

[ebqlabs]

para ponerle el borde no lo he practicado, pero si te das cuenta el focus se pierde en el fondo blanco. te envió esto para el color del focus.

Dim views As ViewSetting
    txtRutSol.Initialize("txtRutSol")
    container.AddView(txtRutSol, 5%x, 05%y, 90%x, 9.8%y)
    txtRutSol.TextSize = 14
    txtRutSol.TextColor = Colors.RGB (0,0,0) 'color de texto
    txtRutSol.Color = Colors.RGB (255,2 55,255) 'color de fondo
    txtRutSol.Hint = "Ingrese su rut"
    txtRutSol.SingleLine = True
views.setCursorDrawableColor(txtRutSol,Colors.Black)

te adjunto la librería del focus, saludos

 

[aviario]

Para el borde lo he echo así

Pon_Rectangulo(txtDireccion,txtDireccion.Width-2dip,txtDireccion.Height-2dip,3dip,Colors.RGB(240,156,57))



Sub Pon_Rectangulo(Paneldibuja As EditText ,Vwidth As Int,Vheight As Int,AnchoLinea As Int,ColorLinea As String)
Dim vDibuja As Canvas
vDibuja.Initialize(Paneldibuja)
Dim r As Rect
r.Initialize(0,0,Vwidth,Vheight)
vDibuja.DrawRect(r, ColorLinea ,False,AnchoLinea)
End Sub