Italian Colore testo spinner

[Fulvio75]

Ciao a tutti, come si fa a cambiare il colore del testo di uno spinner?
Per testo non intendo quello del dropdown ma quello selezionato che compare a dropdown chiuso, se disabilito lo spinner ho bisogno che diventi Colors.Lightgray
grazie

 

[XorAndOr]

Spinner1.AddAll(Array As String("Lunedì","Martedì","Mercoledì"))
    
If Spinner1.Enabled = False Then
    Spinner1.TextColor = Colors.LightGray
Else
    Spinner1.TextColor = Colors.Black
End If

 

[Fulvio75]

Spinner1.AddAll(Array As String("Lunedì","Martedì","Mercoledì"))
   
If Spinner1.Enabled = False Then
    Spinner1.TextColor = Colors.LightGray
Else
    Spinner1.TextColor = Colors.Black
End If

Lo devo cambiare dopo che è stata creata la lista, ho provato non lo fa

 

[XorAndOr]

B4XComboBox1.cmbBox.AddAll(Array As String("Lunedì","Martedì","Mercoledì"))

Private Sub Button2_Click   
B4XComboBox1.cmbBox.Enabled = Not(B4XComboBox1.cmbBox.Enabled)

If B4XComboBox1.cmbBox.Enabled = False Then
    B4XComboBox1.cmbBox.TextColor = Colors.LightGray
Else
    B4XComboBox1.cmbBox.TextColor = Colors.Black
End If   
End Sub

Con B4XComboBox funziona.

 

[Fulvio75]

Lo devo cambiare dopo che è stata creata la lista, ho provato non lo fa

 

[Fulvio75]

B4XComboBox1.cmbBox.AddAll(Array As String("Lunedì","Martedì","Mercoledì"))

Private Sub Button2_Click  
B4XComboBox1.cmbBox.Enabled = Not(B4XComboBox1.cmbBox.Enabled)

If B4XComboBox1.cmbBox.Enabled = False Then
    B4XComboBox1.cmbBox.TextColor = Colors.LightGray
Else
    B4XComboBox1.cmbBox.TextColor = Colors.Black
End If  
End Sub

Con B4XComboBox funziona.

Lo spinner non ha voglia di farlo

 

[XorAndOr]

Lo spinner non ha voglia di farlo

Gli oggetti nel designer funzionano in base all'età....lo spinner è vecchio

 

[Fulvio75]

Gli oggetti nel designer funzionano in base all'età....lo spinner è vecchio

Sisi vero confermo, magari una volta a settimana funziona