B4J Question [B4X][XUI] xCustomlistview

[jayel]

hello,

The xui defaultfont won't change the fontsize, the defaultfontbold does change the font...
No error !

Sub CreateListItem(datum As String, title As String, body As String, Width As Int, Height As Int) As Pane
    Dim p As Pane
    p.Initialize("")
    p.SetSize(Width,Height)
    p.LoadLayout("notificationlistitem")
    Dim xlblTitle As B4XView = lblTitle
    xlblTitle.Font = xui.CreateDefaultBoldFont(14) '<---- OK
    xlblTitle.Text = title
    Dim xlblBody As B4XView = lblBody
    xlblBody.Font = xui.CreateDefaultFont(12) '<----- NOT OK
    xlblBody.Text = body
    Return p
End Sub

 

[Erel]

Why aren't you changing the size in the layout file directly?

Can you upload a small project that demonstrates this issue?

 

[jayel]

See attachment

And when I change in the layout file it doesn't work also.

 

[RWK]

Hmmm... Here it will

Sub CreateListItem(datum As String, title As String, body As String, Width As Int, Height As Int) As Pane
    Dim p As Pane
    p.Initialize("")
    p.SetSize(Width,Height)
    p.LoadLayout("notificationlistitem")
    Dim xlblTitle As B4XView = lblTitle
    xlblTitle.Font = xui.CreateDefaultBoldFont(20)
    xlblTitle.Text = title
    Dim xlblBody As B4XView = lblBody
    xlblBody.Font = xui.CreateDefaultFont(xFont)
    xFont = xFont + 8
    xlblBody.Text = body
    Return p
End Sub

 

[jayel]

Strange

 

[Erel]

I've tried the project you attached above. I've set the font size to:

xlblBody.Font = xui.CreateDefaultFont(52)

It works properly.