The text input of pref.dialog show very tiny text font size, see screen-shots I tried to increase the font size, as there are enough spaces below the text by using some codes from the forum search, but failed. How can I increase the default font size ? ( the example is from...
For i = 0 To prefdialog.PrefItems.Size - 1
Dim pi As B4XPrefItem = prefdialog.PrefItems.Get(i)
If pi.ItemType = prefdialog.TYPE_SHORTOPTIONS Then
Dim c As B4XComboBox=prefdialog.CustomListView1.GetPanel(i).GetView(1).Tag
c.cmbBox.TextSize=26
End If
Next
For Options:
B4X:
For i = 0 To prefdialog.PrefItems.Size - 1
Dim pi As B4XPrefItem = prefdialog.PrefItems.Get(i)
If pi.ItemType = prefdialog.TYPE_OPTIONS Then
Dim lbl As B4XView = prefdialog.CustomListView1.GetPanel(i).GetView(1)
Dim xfont As B4XFont=xui.CreateFont(Typeface.DEFAULT_BOLD,36)
lbl.Font = xfont
End If
Next
For i = 0 To prefdialog.PrefItems.Size - 1
Dim pi As B4XPrefItem = prefdialog.PrefItems.Get(i)
If pi.ItemType = prefdialog.TYPE_SHORTOPTIONS Then
Dim c As B4XComboBox=prefdialog.CustomListView1.GetPanel(i).GetView(1).Tag
c.cmbBox.TextSize=26
End If
Next
For Options:
B4X:
For i = 0 To prefdialog.PrefItems.Size - 1
Dim pi As B4XPrefItem = prefdialog.PrefItems.Get(i)
If pi.ItemType = prefdialog.TYPE_OPTIONS Then
Dim lbl As B4XView = prefdialog.CustomListView1.GetPanel(i).GetView(1)
Dim xfont As B4XFont=xui.CreateFont(Typeface.DEFAULT_BOLD,36)
lbl.Font = xfont
End If
Next