Italian Colore TextLabel in una CLW

Fulvio75 · Apr 20, 2022

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 · Apr 20, 2022

B4X:

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 · Apr 20, 2022

LucaMs said:

B4X:

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 · Apr 20, 2022

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

Fatto non va ugualmente, stesso errore

LucaMs · Apr 20, 2022

Fulvio75 said:
Fatto non va ugualmente, stesso errore

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

Fulvio75 · Apr 20, 2022

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

Sisi

LucaMs · Apr 20, 2022

(è 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):

B4X:

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 · Apr 20, 2022

B4X:

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 · Apr 20, 2022

LucaMs said:

B4X:

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 · Apr 25, 2022

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

Erel said:
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:

B4X:

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

Fulvio75 · Apr 25, 2022

Elric said:
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.

Italian Colore TextLabel in una CLW

Fulvio75

Well-Known Member

LucaMs

Expert

Fulvio75

Well-Known Member

Fulvio75

Well-Known Member

LucaMs

Expert

Fulvio75

Well-Known Member

LucaMs

Expert

LucaMs

Expert

Fulvio75

Well-Known Member

Elric

Well-Known Member

Fulvio75

Well-Known Member

Similar Threads

Italian Colore TextLabel in una CLW

Well-Known Member

Expert

Well-Known Member

Well-Known Member

Expert

Well-Known Member

Expert

Expert

Well-Known Member

Well-Known Member

Well-Known Member

Similar Threads

Privacy & Transparency

Privacy & Transparency