#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
#Extends: android.support.v7.app.AppCompatActivity
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Private SMTP As SMTP
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Activity.Color=Colors.RGB(228,228,228)
ActionBar.Initialize("ActionBar")
Activity.AddView(ActionBar,0,0,100%x,56dip)
'Set the ToolBar (it is called ActionBar in the layout file) as the ActionBar of this activity.
ActionBar.SetAsActionBar
ActionBar.Title = "Login"
' Set the Toolbar Shadow
AC.SetElevation(ActionBar, 8dip)
ABHelper.Initialize
ABHelper.ShowUpIndicator = True
ActionBar.InitMenuListener
IME1.Initialize("IME1")
Dim MapSmtpDtls As Map
MapSmtpDtls.Initialize
MapSmtpDtls = Starter.kvs.GetEncrypted("SmtpDetails", "MyPassword")
If MapSmtpDtls.IsInitialized Then
SMTP.Initialize( MapSmtpDtls.Get("SmtpServer"), MapSmtpDtls.Get("SmtpPort"), MapSmtpDtls.Get("SmtpUserID"), MapSmtpDtls.Get("SmtpPassword"), "SMTP")
Else 'Most of the time the ELSE statement is executed ie Map is not initialized
ToastMessageShow("Email Map not initialized",False)
Activity.Finish
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub