B4J Question B4XDialog scroll ?

[Gianni M]

    'Root As Form
    '
    Dim Dialog As B4XDialog
    Dialog.Initialize(Root.RootPane)
    Dim CustomPanel As B4XView
    CustomPanel = xui.CreatePanel("")
    CustomPanel.SetLayoutAnimated(0, 0, 0, Root.Width - 160dip, Root.Height - 190dip)
    CustomPanel.LoadLayout("LayoutClienti") 
    ' there are many TextField and Label on Vertical axis, and on PC with low resolution (example 800 x 600)
    ' not all objects are displayed
    'into LayoutClienti, there is a Pane and ALL TextField
    '
    Dialog.BackgroundColor = xui.Color_White
    Dialog.ButtonsColor = xui.Color_White
    Dialog.BorderColor = xui.Color_Gray
    Dialog.ButtonsTextColor = 0xFF007DC3
    Dialog.Title = "Clienti"
    '
    Dim rs As Object = Dialog.ShowCustom(CustomPanel, "OK", "NO", "")
    Wait For (rs) Complete (Result As Int)

it is possible to scroll with Dialog?
this is start-up of new project, and i can modify all (layout and code)

 

[Alexander Stolte]

it is possible to scroll with Dialog?

You use ShowCustom, so you have complete freedom. Simply load a layout with a CustomListView and add the elements you need to the list.

 

[Gianni M]

Simply load a layout with a CustomListView

do i need to change the code ?
can you help me understand better?

Dim CustomPanel As B4XView
    CustomPanel = xui.CreatePanel("")
    CustomPanel.SetLayoutAnimated(0, 0, 0, Root.Width - 160dip, Root.Height - 190dip)
    CustomPanel.LoadLayout("LayoutClienti")

 

[Alexander Stolte]

Example project is attached.

    Dialog.Initialize(Root)
    Dim CustomPanel As B4XView
    CustomPanel = xui.CreatePanel("")
    CustomPanel.SetLayoutAnimated(0, 0, 0, Root.Width - 160dip, Root.Height - 190dip)
    CustomPanel.LoadLayout("frm_ListView")

    For i = 0 To 20 -1
        CustomListView1.AddTextItem("Test " & (i+1),"")
    Next
    
    Dialog.BackgroundColor = xui.Color_White
    Dialog.ButtonsColor = xui.Color_White
    Dialog.BorderColor = xui.Color_Gray
    Dialog.ButtonsTextColor = 0xFF007DC3
    Dialog.Title = "Clienti"
    '
    Dim rs As Object = Dialog.ShowCustom(CustomPanel, "OK", "NO", "")
    Wait For (rs) Complete (Result As Int)

 

[Gianni M]

Dialog.Initialize(Root)
    Dim CustomPanel As B4XView
    CustomPanel = xui.CreatePanel("")
    CustomPanel.SetLayoutAnimated(0, 0, 0, Root.Width - 160dip, Root.Height - 190dip)
    CustomPanel.LoadLayout("frm_ListView")
    'how to load myLayout ?
    'i no need to create a "form" via code
    For i = 0 To 20 -1
        CustomListView1.AddTextItem("Test " & (i+1),"")
    Next
    'wish CustomListView1 load custom layout from internal designer (bjl)

this code is perfect, but how to load myLayout ?

 

[Alexander Stolte]

but how to load myLayout ?

by creating another panel, loading your layout into it and adding the whole thing to the list as an item

 

[Gianni M]

by creating another panel, loading your layout into it and adding the whole thing to the list as an item

ok, Thank you