Spanish B4A - MANTENER TAMAÑO LETRA ESTABLECIDA EN EL DISEÑO DE LA APP

Sub ResetUserFontScale(p As Panel)
    For Each v As View In p
        If v Is Panel Then
            ResetUserFontScale(v)
        Else If v Is Label Then
            Dim lbl As Label = v
            lbl.TextSize = lbl.TextSize / access.GetUserFontScale
        Else If v Is Spinner Then
            Dim s As Spinner = v
            s.TextSize = s.TextSize / access.GetUserFontScale
        End If
    Next
End Sub

Sub ResetUserFontScale(p As Panel)
   For Each v As View In p
     If v Is Panel Then
       ResetUserFontScale(v)
     Else If v Is Label Then
       Dim lbl As Label = v
       lbl.TextSize = lbl.TextSize / Main.access.GetUserFontScale
     Else If v Is Spinner Then
       Dim s As Spinner = v
       s.TextSize = s.TextSize / Main.access.GetUserFontScale
     [B]else if v Is ListView Then
         Dim LV As ListView = v
        LV.SingleLineLayout.Label.TextSize=LV.SingleLineLayout.Label.TextSize / Main.access.GetUserFontScale
        LV.TwoLinesLayout.Label.TextSize=LV.TwoLinesLayout.Label.TextSize / Main.access.GetUserFontScale   [/B]     
     End If
   Next
End Sub
[ENDCODE]

Dim cs as CSBuilder
Dim tamanotexto as int = 12
cs.Initialize.Size(tamanotexto).Color(Colors.Blue).Append(Txt).PopAll