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.
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):
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.
B4X:
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)
......
Loopin 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):