B4J Question [B4J] B4XListTemplate font change not working for its CLV?

PaulMeuris said:

font size other than 12:

    dlg.Title = "Title - this is default font 10"
    dlg.TitleBarFont = xui.CreateDefaultFont(10)
    ListTemplate.Initialize
    ListTemplate.CustomListView1.DesignerLabel.Style = ""
    ListTemplate.CustomListView1.DesignerLabel.Font = xui.CreateDefaultFont(10)
    ListTemplate.Options = Array As String("one", "two", "three", "items - default font 10")

View attachment 139154
Font size 12 seems to trigger some change in the DesignerLabel.Font. Other font sizes work fine. Strange behavior...

Click to expand...

stevel05 said:

Another option:

B4X:

Sub Button1_Click

    Dim ListTemplate As B4XListTemplate
    Dim dlg As B4XDialog

    dlg.Initialize(MainForm.RootPane)
    dlg.Title = "Title - this is default font 12"
    dlg.TitleBarFont = xui.createDefaultFont(12)
    ListTemplate.Initialize
    ListTemplate.Options = Array As String("one", "two", "three", "items - default font 12")
  
    Dim RS As ResumableSub = dlg.ShowTemplate(ListTemplate, "ok", "", "cancel")
  
    For i = 0 To ListTemplate.CustomListView1.Size - 1
        Dim P As B4XView = ListTemplate.CustomListView1.GetPanel(i)
        If P.NumberOfViews > 0 Then
            If P.GetView(0) Is Label Then
                Dim L As B4XView = P.GetView(0)
                L.As(Label).Style = ""
                L.Font = xui.createDefaultFont(12)
            End If
        End If
    Next

    Wait For (RS) Complete (Result As Int)


End Sub

Click to expand...