Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Dim Lbl As Label
Dim Lb2 As Label
Dim seprator1 As Panel
Dim Sc1 As ScrollView
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.Title = "Page 1"
Lbl.Initialize("Lbl")
Lbl.Color = Colors.Yellow
Lbl.Multiline = True
Lbl.Text = File.ReadString(File.DirAssets,"my.txt")
Lbl.Font = Font.CreateNew(20)
Lbl.Width = 96%x
Lbl.SizeToFit
Lb2.Initialize("Lb2")
Lb2.Color = Colors.Gray
Lb2.Multiline = True
Lb2.Text = File.ReadString(File.DirAssets,"sample2.txt")
Lb2.Font = Font.CreateNew(20)
Lb2.Width = 96%x
Lb2.SizeToFit
seprator1.Initialize("")
seprator1.Color = Colors.Blue
Sc1.Initialize("sc1",98%x,100%y)
Sc1.Color = Colors.Red
Page1.RootPanel.AddView(Sc1,1%x,1%y,98%x,98%y)
Sc1.Panel.AddView(Lbl,1%x,0,96%x,Lbl.Height)
Sc1.Panel.AddView(seprator1,0,Lbl.Height,100%x,20dip)
Sc1.Panel.AddView(Lb2,1%x,Lbl.Height + seprator1.Height,98%x,Lb2.Height)
Sc1.Panel.Height = Lbl.Height
NavControl.ShowPage(Page1)
End Sub
Private Sub Page1_Resize(Width As Int, Height As Int)
If Sc1.IsInitialized=True Then
Sc1.Height=100%y
Sc1.ContentHeight=Lbl.Height + Lb2.Height + 40dip
Sc1.ContentWidth=98%x
Sc1.Width=98%x
End If
End Sub