Sub Globals
Dim scvText As ScrollView
Dim lblText As Label
Dim txt As String
Dim StrUtil As StringUtils
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Activity.LoadLayout("Layout1")
scvText.Initialize(100)
scvText.Color = Colors.RGB(250, 250, 210)
Activity.AddView(scvText, 0, 0, 100%x, 100%y)
lblText.Initialize("")
scvText.Panel.AddView(lblText, 0, 0 , 100%x, 100%y)
Dim bmp As Bitmap
bmp.Initialize(File.DirAssets, "ic_action_share.png")
Activity.AddMenuItem3("Share", "ShareMenu", bmp, True)
bmp.Initialize(File.DirAssets, "ic_action_copy.png")
Activity.AddMenuItem3("Copy", "CopyMenu", bmp, True)
LoadText
SetText
End Sub
Sub LoadText
txt = File.GetText(File.DirAssets, "text1.txt")
End Sub
Sub SetText
Dim ht As Float
lblText.Text = txt
ht = StrUtil.MeasureMultilineTextHeight(lblText, txt)
scvText.Panel.Height = ht
lblText.Height = ht
scvText.ScrollPosition = 0
DoEvents
End Sub