German Textgröße in xCustomListView Labels paßt nicht immer

awama

Active Member
Licensed User
Longtime User
Hallo,

Wenn man den Systemfont auf Extragross einstellt paßt der Text in xCustomListView-Labels (B4Xviews) nicht mehr komplett ins Label da die Labels nicht vergößert werden der Text aber schon.

Das Beispiel mit ResetUserFontScale scheint da nicht zu funktionieren.

Kann mir jemand weiterhelfen? Danke im voraus

awama
 
D

Deleted member 103

Guest
Probiere diese Routine, bei mir funktioniert sehr gut.
B4X:
'User-Schriftgröße auf Normal zurücksetzten.
Sub SetFontsizeActivity(act As Activity)
    Dim access As Accessiblity
    Dim fscale As Float
    fscale = access.GetUserFontScale

    If fscale <> 1 Then

        For Each v As View In act.GetAllViewsRecursive
            If v Is Label Then
                Dim lbl As Label = v
                lbl.TextSize = NumberFormat2(lbl.TextSize / fscale,1,0,0,False)
            Else If v Is Button Then
                Dim s As Button = v
                s.TextSize = NumberFormat2(s.TextSize / fscale,1,0,0,False)
            End If
        Next

    End If
End Sub
 

awama

Active Member
Licensed User
Longtime User
Last edited:
Top