B4J Question How can I make a simple cross platform dialog with Heading message and Yes No Cancel

[rgarnett1955]

Hi,

I have been trying to use the B4XDialog to make a Yes No Cancel Dialog with a Label as a title and three buttons. But I have been unable to do this.

I tried something like this but it doesn't work. I think is has something to do with dialog templates.

'============================================================================================
Private Sub MainForm_Close
    If clockRunning = False Then

        Dim p As B4XView = xui.CreatePanel("")
        p.SetLayoutAnimated(0, 0, 0, 252dip, 455dip)
        p.LoadLayout("CustomDialog.bjl")
        dialog.PutAtTop = True 'put the dialog at the top of the screen
        Dim rs As ResumableSub = dialog.ShowCustom(p, "OK", "NO", "CANCEL")
        Wait For (rs) Complete (Result As Int)

        Select Result
            Case xui.DialogResponse_Positive
                rbtnRunClock_SelectedChange(True)
            Case xui.DialogResponse_Negative
                
            Case xui.DialogResponse_Cancel
                Return
        End Select
        
    End If
    mcuc.socketClose
    Toast.SetTMDefaults
    'set red backgroud, thick blue border with radius
    Toast.SetTMBackground(fx.Colors.Yellow, 4, fx.Colors.Black, 4)
    'set text size to 24, aligned left (horizontal) and center (vertical), white color
    Toast.SetTMTextProp(24,Toast.HPOS_LEFT,Toast.VPOS_CENTER,fx.Colors.Black)
    Toast.TMShow("Please Start the Shortt Bridge before closing this app", True, True)

    Sleep(5000)
    

Any ideas 

Regards
Rob
    MainForm.Close
End Sub

 

[Erel]

Tip: don't add the bjl extension. It is not needed and only makes the code less cross platform.

Don't add the buttons to the layout. They will be added automatically by B4XDialog.

 

[rgarnett1955]

Hi Erel,

All good thank's for that

Regards
Rob