Android Question Showing B4XListTemplate with 8 items

[toby]

Dim options As B4XListTemplate
    options.Initialize
    options.Options = Array("Cat", "Dog", "Fish", "Crocodile", "Tiger", "lion", "Kangaroo", "zebra")
    Wait For (Dialog.ShowTemplate(options, "OK", "", "CANCEL")) Complete (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        Dialog.Show($"You selected: ${options.SelectedItem}"$, "OK", "", "")
    End If

As shown in the attached image, the code snippet above shows first 6 items, and "Kangaroo" and "zebra" are hidden.

I'm looking for at least one of the following two solutions:

1. Make the list longer to accommodate all 8 items
2. Add a visual indicator to remind user that there are some more items hidden below.

Thank you in advance for any tips you might give!

 

[Mahares]

Make the list longer to accommodate all 8 items

Did you try to resize it:

B4XListTemplate1.Resize(500dip, 600dip)

In your case:

Dim options As B4XListTemplate
    options.Initialize
    options.Resize(300dip, 600dip)

 

[toby]

Thank you very much for trying to help, @Mahares . It didn't work for me, as shown in the attach photo, some extra space was added to the end but the last two items are missing with following line of code added

options.Resize(300dip, 600dip)

 

[Mahares]

It didn't work for me

Try the last post here:

B4XDialog resize issue

With this code : Dialog.Title = "Proizvodi" Dim rs As Object = Dialog.ShowTemplate(options, "", "", "Odustani") Dialog.Base.SetLayoutAnimated(0, Activity.Left + 5%x, Activity.top + 5%y, Activity.Width - 10%x, Activity.Height - 10%y) Wait For (rs) Complete (Result As Int) If...

www.b4x.com

Dim options As B4XListTemplate
    options.Initialize
    options.Resize(300dip, 600dip)
    options.CustomListView1.AsView.width=300dip
    options.CustomListView1.AsView.Height=600dip
    options.Options = Array("Cat", "Dog", "Fish", "Crocodile", "Tiger", "lion", "Kangaroo", "zebra")
    Wait For (Dialog.ShowTemplate(options, "OK", "", "CANCEL")) Complete (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        Dialog.Show($"You selected: ${options.SelectedItem}"$, "OK", "", "")
    End If