Android Question Change Fonts in PreferenceDialog

[XbNnX_507]

Hi, is it possible to change the font of the edittext and title of the [B4X] PreferenceDialog inputs? https://www.b4x.com/android/forum/t...esdialog-cross-platform-forms.103842/#content... if so how ?
thanks.

 

[Mahares]

change the font of the edittext and title of the [B4X] PreferenceDialog

Below is how you change the dialog title font, But I could not figure out how to change the font of the edittext boxes. I leave that to someone more knowledgeable:

prefdialog.Dialog.TitleBarHeight=75dip
    prefdialog.Dialog.TitleBarFont=xui.CreateDefaultBoldFont(32)

or:

Dim fnt As B4XFont = xui.CreateFont(Typeface.SANS_SERIF, 36)
    prefdialog.Dialog.TitleBarFont=fnt

 

[XbNnX_507]

Below is how you change the dialog title font, But I could not figure out how to change the font of the edittext boxes. I leave that to someone more knowledgeable:

prefdialog.Dialog.TitleBarHeight=75dip
    prefdialog.Dialog.TitleBarFont=xui.CreateDefaultBoldFont(32)

or:

Dim fnt As B4XFont = xui.CreateFont(Typeface.SANS_SERIF, 36)
    prefdialog.Dialog.TitleBarFont=fnt

Thanks @Mahares but i'm talking about this.

i don't see that property prefdialog.Dialog. ?

 

[asales]

i don't see that property prefdialog.Dialog. ?

If you don't see this property, there is a problem. Put your code.

This is the code to change the typeface of the font to bold:

    Dim sf As Object = prefdialog.ShowDialog(Options1, "OK", "CANCEL")
    For i = 0 To prefdialog.PrefItems.Size - 1
        Dim pi As B4XPrefItem = prefdialog.PrefItems.Get(i)
            Dim ft As B4XFloatTextField = prefdialog.CustomListView1.GetPanel(i).GetView(0).Tag
            ft.TextField.Font = xui.CreateDefaultBoldFont(20)
        End If
    Next
 
    Wait For (sf) Complete (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        PrintOptions(Options1, TextArea1)
    End If

Based in the code from @Erel :

[Solved] How to change the typeface of multiline text item in B4XPreferencesDialog

I can change the size of multiline text item in B4XPreferencesDialog with this code: If pi.ItemType = prefdialog.TYPE_MULTILINETEXT Then Dim ft As B4XFloatTextField = prefdialog.CustomListView1.GetPanel(i).GetView(0).Tag ft.TextField.TextSize = 20 Is possible to change the Typeface of...

www.b4x.com

 

[XbNnX_507]

If you don't see this property, there is a problem. Put your code.

This is the code to change the typeface of the font to bold:

    Dim sf As Object = prefdialog.ShowDialog(Options1, "OK", "CANCEL")
    For i = 0 To prefdialog.PrefItems.Size - 1
        Dim pi As B4XPrefItem = prefdialog.PrefItems.Get(i)
            Dim ft As B4XFloatTextField = prefdialog.CustomListView1.GetPanel(i).GetView(0).Tag
            ft.TextField.Font = xui.CreateDefaultBoldFont(20)
        End If
    Next

    Wait For (sf) Complete (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        PrintOptions(Options1, TextArea1)
    End If

Based in the code from @Erel :

[Solved] How to change the typeface of multiline text item in B4XPreferencesDialog

I can change the size of multiline text item in B4XPreferencesDialog with this code: If pi.ItemType = prefdialog.TYPE_MULTILINETEXT Then Dim ft As B4XFloatTextField = prefdialog.CustomListView1.GetPanel(i).GetView(0).Tag ft.TextField.TextSize = 20 Is possible to change the Typeface of...

www.b4x.com

Thanks @asales that's what i needed.