Salve a tutti, leggevo che molti si lamentavano del fatto, che non si può cambiare colore dello sfondo, con angoli smussati.
Io uso questo:
B4X:
dim EditText as string
sub Colore_Sfondo
EditText.Color = Color.Red
Dim cdwColor as ColorDrawble
cdwColor.Initialize(Color.Red, 5dip)
EditText.Background = cdwColor
end sub
BACKGROUND si usa per inserire un immagine di sfondo
Activity.AddView(Panel.Color... è errato
Activity.AddView(Panel,left,top,width,Height)è corretto.
Solo oggetti che hanno un view, infatti si chiama Add View
E sono: Button, Label, EditText, Panel, ListView, Spinner, ecc... Sicuramente non un tipo colors
Non puoi dal design, che invece è possibile per gli altri oggetti.
A volte hai risultati imprevedibili se non setti il colore perché alcuni dispostivi mettono fondo bianco altri fondo nero. Quindi dal design a volte non sai che colore impostare per il testo, visto che lo sfondo non sai come appare... Da codice imposti il colore e sei sicuro.
Con ColorDraw di solito cerchi di ottenere i bordi smussati. La semplice colorazione basta cambiare le proprietà.. Tranquillo sei nuovo e stai imparando
Grazie funziona alla grande. Mi toglie anche la linea del campo che era brutta. Magari sai anche se c e la funzione che controlla la lunghezza del campo. Ho devo usare:
B4X:
Sub Nome_TextChange (Old as string, New as string)
If New.Lenght >15 then
Nome.Text = Old
End if
End sub
devi usare la librerie IME, se lo fai col tuo codice potrebbe andare in errore.
B4X:
Sub Globals
Dim IME As IME
Dim edtTest As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("layout1")
edtTest.Color=Colors.Red
IME.Initialize("IME")
IME.SetLengthFilter(edtTest, 20)
End Sub