Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
SetNavColors(0xFF0098FF)
SetTitleColor(Nav, Colors.White)
Page1.Initialize("Page1")
Page1.RootPanel.LoadLayout("RootPanel")
Page1.RootPanel.SetBorder(0, 0, 0)
Page1.RootPanel.Color = Colors.Black
Page1.Title = "Football Scorekeeper" & Common.AppVersion
Drawer.Initialize(Me, "drawer", pnlRoot, 275dip)
'SwitchPage(1)
Drawer.CenterPanel.LoadLayout("fblarge")
Drawer.LeftPanel.LoadLayout("left")
NavControl.ShowPage(Page1)
NavControl.ToolBarVisible = False
NavControl.NavigationBarVisible = True
Dim bb As BarButton
bb.InitializeBitmap(KeepOriginalColors(LoadBitmapResize(File.DirAssets, "hamburger.png", 32dip, 32dip, True)), "hamburger")
Page1.TopLeftButtons = Array(bb)
SetMenuItems(False, 0)
'Build Left Menu Items
BuildLeftMenu
'Declare Fonts
lblGuest.Font = Font.CreateNew2("Digital-7", 30)
lblHome.Font = Font.CreateNew2("Digital-7",30)
lblPeriod.Font = Font.CreateNew2("Digital-7",30)
lblTime.Font = Font.CreateNew2("Digital-7",36)
ScoreEngine.TimeOfDay = False
'Load Dialogs
dialog.Initialize(Page1.RootPanel)
' dialog.Title = "Input Dialog Example"
'Read in the game save configuration file
CheckConfig
ReadConfig
'Keep the device alive
App.IdleTimerDisabled = True
End Sub