'Class module
Sub Class_Globals
Public mTitle As String = "Bowling Brackets Sidepots Help"
Public mIndexPage As String = "help.htm"
Private mWebViewPanel As Panel
Private mWebViewTitle As Label
Private mWebViewClose As ImageView
Private mWebView As WebView
Private mWebViewBack As ImageView
Private mWebViewIndex As ImageView
Private mWebViewNext As ImageView
Private mShowing As Boolean
Private mStartedURL As String
Private mT8TextSize As cT8TextSize
End Sub
Public Sub Initialize(Act As Activity, T8TextSize As cT8TextSize)
mT8TextSize = T8TextSize
mWebViewPanel.Initialize("cHelp_WebView")
mWebViewPanel.Color = cColors.Yellow
Act.AddView(mWebViewPanel, 0, 0, 100%x, 100%y)
mWebView.Initialize("") '<------------------ I Believe this is crashing or at least is Java Line 200
mWebViewTitle.Initialize("")
mWebViewTitle.Gravity = Gravity.CENTER
mWebViewTitle.TextColor = Colors.Black
mWebViewTitle.TextSize = 24
mWebViewClose.Initialize("cHelp_WebView_Close")
mWebViewClose.Background = LoadThisBitmapDrawable("red_x.png")
mWebViewBack.Initialize("cHelp_WebView_Back")
mWebViewBack.Background = LoadThisBitmapDrawable("red_arrow_back.png")
mWebViewIndex.Initialize("cHelp_WebView_Index")
mWebViewIndex.Background = LoadThisBitmapDrawable("index.png")
mWebViewNext.Initialize("cHelp_WebView_Next")
mWebViewNext.Background = LoadThisBitmapDrawable("red_arrow_next.png")
mWebViewNext.Enabled = False
mWebViewNext.Visible = False
mWebViewPanel.AddView(mWebView, 10dip, 50dip, 100%x-20dip, 100%y-100dip)
mWebViewPanel.AddView(mWebViewTitle, (100%x/4), 5dip, (100%x/2), 40dip)
mWebViewPanel.AddView(mWebViewClose, 100%x-40dip, 10dip, 30dip, 30dip)
mWebViewPanel.AddView(mWebViewBack, (100%x/3)-30dip , 100%y-40dip, 30dip, 30dip)
mWebViewPanel.AddView(mWebViewIndex, ((100%x-30dip)/2), 100%y-40dip, 30dip, 30dip)
mWebViewPanel.AddView(mWebViewNext, ((100%x/3)*2) , 100%y-40dip, 30dip, 30dip)
mWebViewPanel.Visible = False
mWebViewPanel.Enabled = False
mShowing = False
End Sub