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

Discussion in 'German Forum' started by awama, Jun 6, 2018.

  1. awama

    awama Active Member Licensed 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
     
  2. Filippo

    Filippo Expert Licensed User

    Probiere diese Routine, bei mir funktioniert sehr gut.
    Code:
    '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
     
  3. awama

    awama Active Member Licensed User

    Last edited: Jun 10, 2018
  4. Alexander Stolte

    Alexander Stolte Well-Known Member Licensed User

    oder du probierst dies mal aus:
    Code:
    yourlabel.Height = su.MeasureMultilineTextHeight(yourlabel, yourlabel.text)
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice