Italian Colore TextLabel in una CLW

[Fulvio75]

ciao a tutti ho una CLW contenente dei Panel che a loro volta contengono delle Label e una volta creata la CLW vorrei cambiare il colore del testo delle Label a seconda di alcune condizioni,
ho provato con:

[CODICE=b4x] Per ogni z Come B4XView In clw. GetPanel(i). GetAllViewsRecursive

z.TextColor = Colori.Grigio

Successivo[/CODICE]

e non funziona da errore
java.lang.ClassCastException: anywheresoftware.b4a.BALayout non può essere trasmesso ad android.widget.TextView

 

[LucaMs]

For Each z As Object In clw.GetPanel(i).GetAllViewsRecursive
    If z Is Label Then
        Dim xv As B4XView = z
        xv.TextColor = xui.Color_Gray
    End If
Next

 

[Fulvio75]

For Each z As Object In clw.GetPanel(i).GetAllViewsRecursive
    If z Is Label Then
        Dim xv As B4XView = z
        xv.TextColor = xui.Color_Gray
    End If
Next

Ok provo grazie, nel panel sono tutte label non capisco perché non funziona

 

[Fulvio75]

Ok provo grazie, nel panel sono tutte label non capisco perché non funziona

Fatto non va ugualmente, stesso errore

 

[LucaMs]

Fatto non va ugualmente, stesso errore

Suppongo che sia un errore diverso; hai passato il valore di "i"?

 

[Fulvio75]

Suppongo che sia un errore diverso; hai passato il valore di "i"?

Sisi

 

[LucaMs]

(è b4j ma vale per ognuna delle 3 piattaforme)

e questo è il codice usato (identico a quello pubblicato nel post precedente, tranne il nome della CustomListView e l'indice dell'Item, qui messo fisso, 1):

Private Sub Button1_Click
    For Each z As Object In CustomListView1.GetPanel(1).GetAllViewsRecursive
        If z Is Label Then
            Dim xv As B4XView = z
            xv.TextColor = xui.Color_Gray
        End If
    Next
End Sub

 

[LucaMs]

Private Sub Button1_Click
    For i = 0 To CustomListView1.Size - 1
        For Each z As Object In CustomListView1.GetPanel(i).GetAllViewsRecursive
            If z Is Label Then
                Dim xv As B4XView = z
                xv.TextColor = xui.Color_Gray
            End If
        Next
    Next
End Sub

 

[Fulvio75]

Private Sub Button1_Click
    For i = 0 To CustomListView1.Size - 1
        For Each z As Object In CustomListView1.GetPanel(i).GetAllViewsRecursive
            If z Is Label Then
                Dim xv As B4XView = z
                xv.TextColor = xui.Color_Gray
            End If
        Next
    Next
End Sub

View attachment 128154

Ok, allora sarà qualche errore fasullo dovuto ad altro, ora controllo tutto grazie

 

[Elric]

Dai un occhio anche qui: https://www.b4x.com/android/forum/t...extsize-and-xui-createdefaultboldfont.139816/.

If all items use the same text setting then you should do it with the designer. Simply set the text properties of the CLV.

If you want to add items with different settings then modify CLV.DesignerLabel before you add the item with CLV.AddTextItem:

CLV.DesignerLabel.Style = ""
CLV.DesignerLabel.As(B4XView).Font = ...
CLV.AddTextItem(...)

 

[Fulvio75]

Dai un occhio anche qui: https://www.b4x.com/android/forum/t...extsize-and-xui-createdefaultboldfont.139816/.

Ok grazie... Ho risolto cambiando il colore durante la creazione dell'item prima di aver creato tutta la clw.