Sub Button1_Click
Dim s As B4XLongTextTemplate
s.Initialize
s.Text=File.ReadString(File.DirAssets,"text.txt")
Dim rs As Object = dialog.ShowTemplate(s,"OK","","")
s.CustomListView1.AnimationDuration = 0
Dim lbl As B4XView = s.CustomListView1.GetPanel(0).GetView(0)
lbl.SetTextAlignment("TOP","CENTER")
lbl.Height = lbl.Height + 80dip
s.CustomListView1.ResizeItem(0, lbl.Height)
wait for (rs) complete (r As Int)
End Sub