Sub Process_Globals
Private Page1 As Page
Private TableView1 As TableView
Private Systems As ResultSet
End Sub
Public Sub Show
If Page1.IsInitialized = False Then
Page1.Initialize("Page1")
Page1.Title = "Avionic Systems"
TableView1.Initialize("TableView1",False)
Page1.RootPanel.AddView(TableView1,0,0,100%x,100%y)
Dim Systems As ResultSet
Systems = Main.db.ExecQuery("SELECT * FROM Systems ORDER BY System")
Do While Systems.NextRow
TableView1.AddTwoLines(Systems.GetString("System"),Systems.GetString("LongName"))
Loop
End If
Main.NavControl.ShowPage(Page1)
End Sub
Sub Page1_Resize (Width As Int, Height As Int)
TableView1.SetLayoutAnimated(500, 0.6, 0, 0, 100%x, 100%y)
End Sub