Android Question B4X Custom Dialog Disappearing Title

[bocker77]

I am experiencing an issue with the title not appearing when increasing the panel height. The panel width works.

    Dim p As B4XView = xui.CreatePanel("")
    p.SetLayoutAnimated(0, 0, 0, 300dip, 300dip)
    p.LoadLayout("RandD")
    p.Height = 55%y
    p.Width = 55%x
    Dim rsp As ResumableSub = Dialog.ShowCustom(p, "Yes", "No", "")
    Dim btnYes As B4XView = Dialog.GetButton(xui.DialogResponse_Positive)
    btnYes.SetBitmap(bmpBtnUp)
    Dim btnNo As B4XView = Dialog.GetButton(xui.DialogResponse_Negative)
    btnNo.SetBitmap(bmpBtnUp)
    Wait For (rsp) Complete (Result As Int)

If I comment out p.Height I get this.

Before I moved this code block and inserted it in at another place in my code I was able to fix it by adding Dialog.PutAtTop = True. But for some reason now I can't get it to work by doing this. Not sure what's going on.

 

[LucaMs]

Why not directly:

p.SetLayoutAnimated(0, 0, 0, 55%y, 55%x)

 

[bocker77]

Thanks I will try your suggestion but still think there is an issue with the title not making an appearance on what I tried. In spite of my travails with this I am liking these B4X Dialogs!

 

[bocker77]

Nope that didn't work. Result - with those values a very long dialog in length and a narrow width and most importantly "no title".

 

[LucaMs]

Please, post the layout (RandD)

 

[bocker77]

Here you go.

 

[LucaMs]

Please, post the layout (RandD)

Here you go.

File RandD.bal

 

[Sagenut]

View attachment 160871

Why not directly:

p.SetLayoutAnimated(0, 0, 0, 55%y, 55%x)

I think that Width and Height are exchanged.
It should be

p.SetLayoutAnimated(0, 0, 0, 55%x, 55%y)

 

[bocker77]

Sagenut, I tried your suggestion but still no Title.

LucaMs, the bal file zipped is attached.

 

[LucaMs]

LucaMs, the bal file zipped is attached.

Sagenut is trying (with your bal file).

 

[Sagenut]

Sorry but I am getting lost, maybe because of missing files.
I am unable to help.
Sorry.

 

[bocker77]

Maybe this will help.

    Dim bmpAxisAllies As Bitmap = LoadBitmap(File.DirAssets, "Axis & Allies.png")

Sub InitializeDialog As ResumableSub
    ' Setup Message Dialog
    csMsgTitle.Initialize.Image(bmpAxisAllies, 130dip, 40dip, False)
    csMsgText.Initialize.Typeface(fntMsgSerif).Size(18)
    Dialog.Initialize(Root)
    Dialog.Title = csMsgTitle
    Dialog.TitleBarHeight = 60dip
    Dialog.TitleBarColor = Steel
    Dialog.BackgroundColor = xui.Color_RGB(250, 235, 215)
    Dialog.BodyTextColor = xui.Color_Black
    Dialog.BorderWidth = 10
    Dialog.BorderColor = Steel
    Dialog.BorderCornersRadius = 10
    Dialog.ButtonsTextColor = xui.Color_Black
    Dialog.ButtonsFont = xui.CreateFont(Typeface.CreateNew(Typeface.SERIF, Typeface.STYLE_BOLD), 18)
    Dialog.ButtonsHeight = 50dip
    Dialog.PutAtTop = True

    Return True
End Sub

Along with.

    Dialog.PutAtTop = True
    Dialog.Title = csMsgTitle
    Dim p As B4XView = xui.CreatePanel("")
    p.SetLayoutAnimated(0, 0, 0, 55%x, 55%y)
    p.LoadLayout("RandD")
'    p.Height = 55%y
'    p.Width = 55%x
    Dim rsp As ResumableSub = Dialog.ShowCustom(p, "Yes", "No", "")
    Dim btnYes As B4XView = Dialog.GetButton(xui.DialogResponse_Positive)
    btnYes.SetBitmap(bmpBtnUp)
    Dim btnNo As B4XView = Dialog.GetButton(xui.DialogResponse_Negative)
    btnNo.SetBitmap(bmpBtnUp)
    Wait For (rsp) Complete (Result As Int)

 

[bocker77]

Should have added this.

Dim fntMsgSerif As Typeface = Typeface.CreateNew(Typeface.SERIF, Typeface.STYLE_NORMAL)

 

[bocker77]

sorry more.

    Dim bmpBtnUp As Bitmap = LoadBitmap(File.DirAssets, "Gold Button Up.png")    
    Dim bmpBtnDis As Bitmap = LoadBitmap(File.DirAssets, "Gold Button Disabled.png")

 

[Alexander Stolte]

Create an example project what the behaivior shows. Anything else is wasting time

 

[bocker77]

Ok. Attached zip file

 

[bocker77]

I believe that I found the problem.

B4XDialog ShowCustom

When the dialog height is set to 300dip, the panel closes the dialog title. Can you tell me how to fix this?

www.b4x.com

Dialog's height is too big. I believe I will need to use smaller fonts to get this to work. Do you have any idea what the height max can be without loosing the Title?