Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Private dialog As B4XDialog
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.Title = "Page 1"
Page1.RootPanel.Color = Colors.White
NavControl.ShowPage(Page1)
dialog.Initialize(Page1.RootPanel)
dialog.Title = $"first line
second line"$
dialog.TitleBarHeight = 60dip
End Sub
Sub Page1_Click
Dim rs As Object = dialog.Show("aaa", "ok", "", "")
Dim lbl As Label = dialog.TitleBar.GetView(0)
lbl.Multiline = True
'if you want to wait for the dialog to complete:
Wait For (rs) Complete (Result As Int)
End Sub