B4J Question B4XDialog, Panel not move with Code

[mw71]

hi,

on Android i show a CustomLayoutPanel, works fine. Now i will use it in B4J with B4XPages.
I use the follow Code, change to use it with B4XPages.

    Dim cld As B4XDialog
    cld.Initialize(Root)
    Dim p As B4XView = xui.CreatePanel("")
    p.SetLayoutAnimated(0, 0, 0, 400dip, 380dip)
    p.Color=xui.Color_LightGray


        Do While rbtn_check < 2 'and ret = DialogResponse
            rbtn_check=0

            p.LoadLayout("cld_Export_GMA")
          
            pnl_port.Visible = True
            pnl_exp.Visible = True
            pnl_loc.Visible = True

              
            If varExpMode.Contains("GMA") =False Then
                pnl_exp.Visible = False
                pnl_port.Top = 5dip
                pnl_loc.Top = pnl_port.Height + 5dip
                Dim hoehe As Int=pnl_loc.Top + pnl_loc.Height
            Else
                pnl_loc.top=pnl_port.Height + pnl_port.Top +10dip
            End If
            Dim rs As ResumableSub =  cld.ShowCustom(p, Main.loc.Localize("txt_start"), "", "CANCEL")
            Wait For (rs) Complete (ret As Int)
        ......
        Loop

in the Case varExpMode contains NOT "GMA", the pnl_loc should be brought to the top (height) of Panel p, and so of the cld, but it remains at the bottom.

The Layout File is attached as zip and as (pnl_Loc is the lowes of the 3 panels):

 

[Erel]

Better to create a small project with the layout and the code.

 

[mw71]

Attach the Test Project

 

[Erel]

Correct way to export as zip, B4XPages projects:

'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip

Uncheck this option:

Otherwise, the layout is reset when the container is resized.