'Code module
#Region Project Attributes
#ApplicationLabel: ChocoLatte
#Version: 1.0.0
'Orientation possible values: Portrait, LandscapeLeft, LandscapeRight and PortraitUpsideDown
#iPhoneOrientations: Portrait
#iPadOrientations: Portrait
#Target: iPhone, iPad
#ATSEnabled: True
#MinVersion: 8
#If RELEASE
#ProvisionFile: ChocoLatteProvision.mobileprovision
#END IF
#End Region
Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Type DBResult (Tag As Object, Columns As Map, Rows As List)
Type DBCommand (Name As String, Parameters() As Object)
End Sub
Private Sub Application_Start (Nav As NavigationController)
Dim PagesManager As B4XPagesManager
' Dim nativeobjectInstance As NativeObject
' Dim nativeObjectAttributes As NativeObject
NavControl = Nav
Dim No As NativeObject = NavControl
No.GetField("navigationBar").RunMethod("setTintColor:", Array(No.ColorToUIColor(Colors.White)))
NavControl.NavigationBarVisible = False
PagesManager.Initialize(NavControl)
End Sub
'Template version: B4i-1.0
#Region Delegates
Private Sub Application_Background
B4XPages.Delegate.Activity_Pause
End Sub
Private Sub Application_Foreground
B4XPages.Delegate.Activity_Resume
End Sub
#End Region