Sub Globals
Dim sw As ScrollView
Dim lblInformation As Label
Dim su As StringUtils
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("HowTo")
Scale.SetReferenceLayout(480, 800, 1.5)
Scale.ScaleAll(Activity, True)
sw.Initialize(Activity.Height - 300dip) [*]
lblInformation.Initialize("")
sw.Panel.AddView(lblInformation, 10dip, 10dip, sw.Width - 20dip, 100dip) [**]
lblInformation.Color = Colors.White
lblInformation.TextColor = Colors.Black
lblInformation.Text = "Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Aenean commodo ligula eget dolor. Aenean massa. Cum sociis natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus. Donec quam felis, ultricies nec, pellentesque eu, pretium quis, sem. Nulla consequat massa quis enim..."
lblInformation.Height = su.MeasureMultilineTextHeight(lblInformation, lblInformation.Text)
sw.Panel.Height = lblInformation.Top + lblInformation.Height + 10dip
End Sub