#Region Activity Attributes
#FullScreen: true
#IncludeTitle: false
#End Region
Sub Process_Globals
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim context As JavaObject
context.InitializeContext
Dim window As JavaObject = context.RunMethod("getWindow", Null)
window.RunMethod("addFlags", Array(0x80000000)) 'FLAG_DRAWS_SYSTEM_BAR_BACKGROUNDS
window.RunMethod("addFlags", Array(0x00000200)) 'FLAG_LAYOUT_NO_LIMITS
Activity.Height = GetDeviceLayoutValues.Height + 48dip
Activity.LoadLayout("1")
End Sub