Sub Process_Globals
Dim LastUrl As String=""
Dim LastZoom As String=""
End Sub
Sub Globals
Dim UrlSpinner As Spinner
Dim WebView1 As WebView
Dim WebViewExtras1 As WebViewExtras
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
Activity.AddMenuItem3("CLOSE", "MenuItem", Null, True)
Activity.AddMenuItem3("FAR", "MenuItem", Null, True)
Activity.AddMenuItem3("MEDIUM", "MenuItem", Null, True)
' after initializing the WebViewExtras object it can be used instead of the WebView
' WebViewExtras contains all methods of WebView plus many more
WebViewExtras1.Initialize(WebView1)
If LastUrl<>"" Then
WebViewExtras1.LoadUrl(LastUrl)
End If
If LastZoom<>"" Then
WebViewExtras1.GetSettings.SetDefaultZoom(LastZoom)
End If
UrlSpinner.AddAll(Array As String("http://www.heise.de/", "http://www.google.com/", "http://www.kingslynn-forums.co.uk/index.php"))
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub MenuItem_Click
LastZoom=Sender ' Sender will be the Text of the clicked MenuItem
Select LastZoom
Case "CLOSE"
WebViewExtras1.GetSettings.SetDefaultZoom("CLOSE")
Case "FAR"
WebViewExtras1.GetSettings.SetDefaultZoom("FAR")
Case "MEDIUM"
WebViewExtras1.GetSettings.SetDefaultZoom("MEDIUM")
End Select
End Sub
Sub UrlSpinner_ItemClick (Position As Int, Value As Object)
LastUrl=Value
WebViewExtras1.LoadUrl(LastUrl)
End Sub