Sub Process_Globals
End Sub
Sub Globals
Dim pnlAbout As Panel
Dim btnOk As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
Activity.AddMenuItem2("Settings", "settings", LoadBitmap(File.DirAssets, "settings.png"))
Activity.AddMenuItem2("About", "about", LoadBitmap(File.DirAssets, "info.png"))
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub settings_Click
StartActivity(Settings.screen.CreateIntent)
End Sub
Sub about_Click
pnlAbout.Visible = True
End Sub
Sub btnOk_Click
pnlAbout.Visible = False
End Sub