Private Sub btnTerms_Click
Dim tem As String
Dim cs As CSBuilder
tem = File.ReadString(File.DirAssets, "privacy policy.txt")
Sleep(50)
LongTextTemplate.Text = tem
cs.Initialize.Color(xui.Color_Blue).Typeface(Typeface.DEFAULT_BOLD).Size(14).Append(LongTextTemplate.text).PopAll
LongTextTemplate.Text =cs
LongTextTemplate.CustomListView1.DefaultTextBackgroundColor = xui.Color_Yellow
LongTextTemplate.Resize(pnlBottom.Width,6*pnlBottom.Height)
Dim sf As Object = Dialog.ShowTemplate(LongTextTemplate, "OK", "", "")
Sleep(0)
LongTextTemplate.CustomListView1.sv.ScrollViewOffsetY = LongTextTemplate.CustomListView1.sv.ScrollViewContentHeight
Wait For (sf) Complete (Result As Int)
End Sub