Android Question Font size

fishwolf · Oct 25, 2021

is it possible set font size in app indipendent from size system?

i would have the same font size in app if i have system size big or small

Thanks

asales · Oct 25, 2021

Check this:

Get size of system-font in use

The other day I received a report (along with screenshots) from a user saying that certain labels on his Galaxy S3 were truncated or simply did not show up correctly. I found this rather odd since my developer-phone is also a Galaxy S3 and of course I had made sure that everything (my layouts)...

www.b4x.com

fishwolf · Oct 26, 2021

asales said:
Check this:

Get size of system-font in use

The other day I received a report (along with screenshots) from a user saying that certain labels on his Galaxy S3 were truncated or simply did not show up correctly. I found this rather odd since my developer-phone is also a Galaxy S3 and of course I had made sure that everything (my layouts)...

www.b4x.com

thanks, work fine

but for b4xtable cell?

Mahares · Oct 26, 2021

fishwolf said:
but for b4xtable cell?

I hope I am understanding the question. If not, clarify what you see and what you want to see with code and screenshot

B4X:

Dim xfont As B4XFont=xui.CreateFont(Typeface.DEFAULT, 18/access.GetUserFontScale)  'reset font to default after user changed accessinility
B4XTable1.LabelsFont = xfont

'the 2 lines must be set before defining table columns

Dave O · Oct 26, 2021

To compensate for small or large system-font sizes, see this post.

fishwolf · Oct 27, 2021

Mahares said:
I hope I am understanding the question. If not, clarify what you see and what you want to see with code and screenshot

B4X:

Dim xfont As B4XFont=xui.CreateFont(Typeface.DEFAULT, 18/access.GetUserFontScale) 'reset font to default after user changed accessinility B4XTable1.LabelsFont = xfont

'the 2 lines must be set before defining table columns

work fine for row, but the header, page and search not changed

i'm tring to use without effect

B4X:

B4XTable1.HeaderFont = xcode

Mahares · Oct 27, 2021

fishwolf said:
work fine for row, but the header, page and search not changed

For the header labels use this:

B4X:

Dim xfontH As B4XFont=xui.CreateFont(Typeface.DEFAULT_BOLD, 18/access.GetUserFontScale)  'reset font to default after user changed accessinility
B4XTable1.HeaderFont = xfontH

For the search field use this code. For this, you need to put is after the columns were defined not before.:

B4X:

B4XTable1.SearchField.TextField.Font = xui.CreateFont(Typeface.DEFAULT, 16/access.GetUserFontScale)

Please be more clear and give more details and code to help us help you, if you need additional help

fishwolf · Nov 3, 2021

asales said:
Check this:

Get size of system-font in use

The other day I received a report (along with screenshots) from a user saying that certain labels on his Galaxy S3 were truncated or simply did not show up correctly. I found this rather odd since my developer-phone is also a Galaxy S3 and of course I had made sure that everything (my layouts)...

www.b4x.com

i have noticed that the font of AcToolbarLight is reduced each times that i go to into activity.

exist a method for recovery original font size?

fishwolf · Nov 3, 2021

Mahares said:
For the header labels use this:

B4X:

Dim xfontH As B4XFont=xui.CreateFont(Typeface.DEFAULT_BOLD, 18/access.GetUserFontScale) 'reset font to default after user changed accessinility B4XTable1.HeaderFont = xfontH

For the search field use this code. For this, you need to put is after the columns were defined not before.:

B4X:

B4XTable1.SearchField.TextField.Font = xui.CreateFont(Typeface.DEFAULT, 16/access.GetUserFontScale)

Please be more clear and give more details and code to help us help you, if you need additional help

header doesn't work. And search font?

Mahares · Nov 3, 2021

fishwolf said:
header doesn't work. And search font?

They need to be placed in the correct place in the code. I tested them on my B4XTble and they work. The header code has to be before you assign the B4XTable columns, for the search it is after. If you want to attach a project, provided no sensitive data. some of the members including myself will take a look, or you can show with code where you placed these lines in the code.
Without Resetting AccessibilyFont:
B4XTable1.HeaderFont = xui.CreateDefaultBoldFont(24) 'header

With Resetting AccessibilyFont:
Dim xfontH As B4XFont=xui.CreateFont(Typeface.DEFAULT_BOLD, 24/access.GetUserFontScale) 'reset font to default after user changed accessinility
B4XTable1.HeaderFont = xfontH

fishwolf · Nov 16, 2021

Mahares said:
Devono essere inseriti nella posizione corretta nel codice. Li ho testati sul mio B4XTble e funzionano. Il codice dell'intestazione deve essere prima di assegnare le colonne B4XTable, per la ricerca è dopo. Se vuoi allegare un progetto, non fornire dati sensibili. alcuni dei membri incluso me daranno un'occhiata, oppure puoi mostrare con il codice dove hai inserito queste righe nel codice.
W enza Ripristino AccessibilyFont:
B4XTable1.HeaderFont = xui.CreateDefaultBoldFont(24) 'intestazione

Con il ripristino di AccessibilyFont:
Dim xfontH As B4XFont=xui.CreateFont(Typeface.DEFAULT_BOLD, 24/access.GetUserFontScale) 'reimposta il carattere sui valori predefiniti dopo che l'utente ha cambiato accessinility
B4XTable1.HeaderFont = xfontH
View attachment 121174
View attachment 121173

sorry for the delay, User data are fake

now header font is correct,
but i have a error when set the search font

B4X:

java.lang.RuntimeException: Class instance was not initialized (b4xfloattextfield)

B4X:

Sub Globals
Private B4XTable1 As B4XTable
Private StateColumn As B4XTableColumn
End Sub

Sub Activity_Create(FirstTime As Boolean)
Dim access As Accessibility
Dim xui As XUI
   
    Activity.LoadLayout("main")
  
    B4XTable1.Clear

    ' i have tied also here B4XTable1.SearchField.TextField.Font = xui.CreateFont(Typeface.DEFAULT, 6/access.GetUserFontScale)
    B4XTable1.HeaderFont = xui.CreateFont(Typeface.DEFAULT_BOLD, 14/access.GetUserFontScale)

   
    B4XTable1.MaximumRowsPerPage = 15
   
    StateColumn = B4XTable1.AddColumn("Human", B4XTable1.COLUMN_TYPE_TEXT)
    StateColumn.Width = 30%x
   
    StateColumn = B4XTable1.AddColumn("Dog", B4XTable1.COLUMN_TYPE_TEXT)
    StateColumn.Width = 30%x
    StateColumn = B4XTable1.AddColumn("D1", B4XTable1.COLUMN_TYPE_TEXT)
    StateColumn.Width = 30%x
    StateColumn = B4XTable1.AddColumn("D2", B4XTable1.COLUMN_TYPE_TEXT)
    StateColumn.Width = 30%x
    StateColumn = B4XTable1.AddColumn("D3", B4XTable1.COLUMN_TYPE_TEXT)
    StateColumn.Width = 30%x
   
     ' i have tied also here B4XTable1.SearchField.TextField.Font = xui.CreateFont(Typeface.DEFAULT, 6/access.GetUserFontScale)

    B4XTable1.NumberOfFrozenColumns = 2
   
    Dim data As List
    data.Initialize
    For i = 1 To 15

        data.Add(Array("Mario Rossi", "Pluto", "5,5", "3", "2"))
       
    Next

    B4XTable1.SetData(data)
   
    B4XTable1.LabelsFont = xui.CreateFont(Typeface.DEFAULT, 14/access.GetUserFontScale)
   
    B4XTable1.SearchField.TextField.Font = xui.CreateFont(Typeface.DEFAULT, 6/access.GetUserFontScale)
   
    'B4XTable1.Refresh
   
End Sub

Mahares · Nov 16, 2021

fishwolf said:
but i have a error when set the search font

Here is the complete corrected project. Tested and works after a slight tuning. You needed to check the B4X Views library in the IDE library pane. It was not checked. Also, you needed to add a Sleep(0) immediately after you load you main layout to allow an internal B4XTable layout to be loaded.

B4X:

Sub Globals
    Private B4XTable1 As B4XTable
    Private StateColumn As B4XTableColumn
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Dim access As Accessibility
    Dim xui As XUI
   
    Activity.LoadLayout("main")  'You also need to check the B4X Views library
    
      Sleep(0)  'Needed because of an internal layout has to be allowed to load first. Line Added by Mahares
  
    B4XTable1.Clear

    B4XTable1.HeaderFont = xui.CreateFont(Typeface.DEFAULT_BOLD, 14/access.GetUserFontScale)
    B4XTable1.LabelsFont = xui.CreateFont(Typeface.DEFAULT, 14/access.GetUserFontScale)

    B4XTable1.MaximumRowsPerPage = 15
   
    StateColumn = B4XTable1.AddColumn("Human", B4XTable1.COLUMN_TYPE_TEXT)
    StateColumn.Width = 30%x
   
    StateColumn = B4XTable1.AddColumn("Dog", B4XTable1.COLUMN_TYPE_TEXT)
    StateColumn.Width = 30%x
    StateColumn = B4XTable1.AddColumn("D1", B4XTable1.COLUMN_TYPE_TEXT)
    StateColumn.Width = 30%x
    StateColumn = B4XTable1.AddColumn("D2", B4XTable1.COLUMN_TYPE_TEXT)
    StateColumn.Width = 30%x
    StateColumn = B4XTable1.AddColumn("D3", B4XTable1.COLUMN_TYPE_TEXT)
    StateColumn.Width = 30%x
    
    B4XTable1.SearchField.TextField.Font = xui.CreateFont(Typeface.DEFAULT, 6/access.GetUserFontScale)
    B4XTable1.NumberOfFrozenColumns = 2
   
    Dim data As List
    data.Initialize
    For i = 1 To 15
        data.Add(Array("Mario Rossi", "Pluto", "5,5", "3", "2"))    
    Next
    B4XTable1.SetData(data)
End Sub

fishwolf · Nov 17, 2021

Continue to doesn't work fine

i'm usin b4a 11.00 with all last verson of libraries

Mahares · Nov 17, 2021

fishwolf said:
Continue to doesn't work fine

There are several views in the header panel besides the search box text field. You have to go through all of them. As an example:

B4X:

B4XTable1.lblNumber.Font = xui.CreateFont(Typeface.DEFAULT, 14/access.GetUserFontScale)  'this is for the number showing as the page you are looking at

There are other views like: : B4XTable1.SearchField.lblV, B4XTable1.SearchField.lblClear, and others like the arrows, etc. which I did not look at. At this stage, you can follow up and perhaps, someone can take a look at your project accessibility further.It may not hurt to add this at the end: B4XTable1.SearchField.Update
Here are all the views hierarchy in the hidden B4XTable layout
I added this a few minutes later as an example for the labels inside a panel (PnlPages) that is inside pnlHeader. You can try it. It reduces the size::

B4X:

For Each v As B4XView In B4XTable1.pnlHeader.GetView(2).GetAllViewsRecursive
        If v Is Label Then
            Dim x As Label=v
            x.TextSize=24/access.GetUserFontScale
'            x.TextSize=24
        End If       
    Next

B4X:

Mahares · Nov 17, 2021

Maybe something like this will work better for you as far as the header panel views: See comparison with accessibility in effect and not in effect screenshots I tried them with a textsize=20. You can try different sizes.. You can see the difference.

B4X:

For Each v As B4XView In B4XTable1.pnlHeader.GetAllViewsRecursive
        If v.Tag Is B4XFloatTextField Then
            Dim y As B4XFloatTextField =v.tag
            
            y.HintFont= xui.CreateFont(Typeface.DEFAULT,20/access.GetUserFontScale)
'            y.HintFont= xui.CreateFont(Typeface.DEFAULT,20)
            
            y.LargeLabelTextSize=20/access.GetUserFontScale
'            y.LargeLabelTextSize=20
            y.Update
        else if v Is Label Then
            Dim x As B4XView=v
            
            x.TextSize=20/access.GetUserFontScale
'            x.TextSize=20
            
            x.TextColor=xui.Color_Blue
        else if v Is Panel Then
            Dim z As B4XView =v
            z.Color =xui.Color_Cyan
        End If
    Next

B4X:

fishwolf · Nov 18, 2021

Mahares said:
Ci sono diverse visualizzazioni nel pannello dell'intestazione oltre al campo di testo della casella di ricerca. Devi passare attraverso tutti loro. Come esempio:

B4X:

B4XTable1.lblNumber.Font = xui.CreateFont(Typeface.DEFAULT, 14/access.GetUserFontScale) 'questo è per il numero mostrato come pagina che stai guardando

Ci sono altre viste come: : B4XTable1.SearchField.lblV, B4XTable1.SearchField.lblClear e altre come le frecce, ecc. che non ho guardato. A questo punto, puoi dare seguito e forse qualcuno può dare un'occhiata più approfondita all'accessibilità del tuo progetto. Potrebbe non essere male aggiungere questo alla fine: B4XTable1.SearchField.Update
Ecco tutte le gerarchie delle viste nel layout nascosto di B4XTable
L'ho aggiunto pochi minuti dopo come esempio per le etichette all'interno di un pannello (PnlPages) che si trova all'interno di pnlHeader. Puoi provarlo. Riduce le dimensioni::
[codice]Per ogni v Come B4XView in B4XTable1.pnlHeader.GetView(2).GetAllViewsRecursive
Se v è etichetta allora
Dim x As Label=v
x.TextSize=24/access.GetUserFontScale
' x.TextSize=24
Finisci se
Avanti[/codice]

View attachment 121824
[codice][/codice]

Dosen't work fine for all elements of interface, when write filter search, it's very, very little.

Is it possible disable system size from my app?

or get the system size different from standard and write a warning message?

is it impossible manage in this mode

Android Question Font size

fishwolf

Well-Known Member

asales

Expert

Get size of system-font in use

fishwolf

Well-Known Member

Get size of system-font in use

Mahares

Expert

Dave O

Well-Known Member

fishwolf

Well-Known Member

Mahares

Expert

fishwolf

Well-Known Member

Get size of system-font in use

fishwolf

Well-Known Member

Mahares

Expert

Attachments

fishwolf

Well-Known Member

Mahares

Expert

fishwolf

Well-Known Member

Attachments

Mahares

Expert

Mahares

Expert

fishwolf

Well-Known Member

Similar Threads

Android Question Font size

Well-Known Member

Expert

Well-Known Member

Expert

Well-Known Member

Well-Known Member

Expert

Well-Known Member

Well-Known Member

Expert

Attachments

Well-Known Member

Expert

Well-Known Member

Attachments

Expert

Expert

Well-Known Member

Similar Threads

Privacy & Transparency

Privacy & Transparency