Sub Globals
Dim listHelp As ListView
Dim ForumSupport As PhoneIntents
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("help")
listHelp.SetLayout(0%x,0%y,100%x,100%y)
'listHelp.AddSingleLine("Support")
listHelp.AddTwoLinesAndBitmap(Main.L_Support, Main.L_Support_community,LoadBitmap(File.DirAssets,"community.png"))
listHelp.AddTwoLinesAndBitmap(Main.L_Donation, Main.L_Donation_info,LoadBitmap(File.DirAssets,"heart.png"))
listHelp.AddTwoLinesAndBitmap(Main.L_Contact_us, Main.L_Contact_send_email,LoadBitmap(File.DirAssets,"email.png"))
listHelp.AddTwoLinesAndBitmap(Main.L_Info, Main.L_Info_app,LoadBitmap(File.DirAssets,"info.png"))
End Sub
Sub listHelp_ItemClick (Position As Int, Value As Object)
If Value=Main.L_Support Then
StartActivity(form1)
Else If Value=Main.L_Donation Then
StartActivity(form2)
Else If Value=Main.L_Contact_us Then
StartActivity(sendemail)
Else If Value=Main.L_Info Then
StartActivity(versioninfo)
End If
End Sub