Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private Dialog As B4XDialog
Private LongText As B4XLongTextTemplate
Private xui As XUI
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.Show
Dialog.Initialize(MainForm.RootPane)
Dialog.Title = "B4XDialog Example"
LongText.Initialize
LongText.CustomListView1.DefaultTextBackgroundColor = xui.Color_White
LongText.CustomListView1.DefaultTextColor = xui.Color_Black
LongText.Text = $"js dlkf jskldfj slkdf
sdf kjlsdfj lk jwelrkfj welkfj wlekfj wlkef
wef jlkwe jflkw ejflkwej flkwe jflkwe jflwkef j
we jflkwe jflwek jflkw efjlkwe f
"$
End Sub
Sub MainForm_Resize (Width As Double, Height As Double)
If Dialog.Visible Then Dialog.Resize(Width, Height)
End Sub
Private Sub MainForm_MouseClicked (EventData As MouseEvent)
Dialog.ShowTemplate(LongText, "OK", "", "")
End Sub