B4A Library WebViewSettings

Sub Process_Globals
End Sub

Sub Globals
   Dim WebView1 As WebView
   Dim WebViewSettings1 As WebViewSettings
End Sub

Sub Activity_Create(FirstTime As Boolean)
   WebView1.Initialize("")
   Activity.AddView(WebView1, 0, 0, 100%x, 100%y)
   
   WebViewSettings1.setDisplayZoomControls(WebView1, False)
   
   WebView1.LoadUrl("http://www.b4x.com/forum/index.php")
   
End Sub

Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

'Activity module
Sub Process_Globals

End Sub

Sub Globals
   Dim PhoneSms1 As PhoneSms
   Dim WebViewExtras1 As WebViewExtras
   Dim WebView1 As WebView
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("Main")
   
   WebViewExtras1.addJavascriptInterface(WebView1, "B4A")
   
   WebView1.LoadUrl("file:///android_asset/send_sms.html")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub PhoneSms1_SmsDelivered (PhoneNumber As String, Intent As Intent)
   Log("PhoneSms1_SmsDelivered")
End Sub

Sub PhoneSms1_SmsSentStatus (Success As Boolean, ErrorMessage As String, PhoneNumber As String, Intent As Intent)
   Log("PhoneSms1_SmsSentStatus: "&Success)
   If Success=False Then
      Log(ErrorMessage)
   End If
End Sub

Sub WebView1_SendSMS(MobileNumber As String, SMSMessage As String)
   Log(MobileNumber)
   Log(SMSMessage)
   PhoneSms1.Send(MobileNumber, SMSMessage)
End Sub

WebViewSettings1.setDefaultZoom(WebView1, "CLOSE")

WebViewSettings1.setDefaultZoom(WebView1, "FAR")

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

target-densitydpi=device-dpi

var metaTags=document.getElementsByTagName('meta');
for(var i=0; i<metaTags.length; i++){
  if(metaTags[i].name=='viewport'){
    metaTags[i].content='????';  // here insert the new content value
  }
}

var metaTags=document.getElementsByTagName('meta');
for(var i=0; i<metaTags.length; i++){
  if(metaTags[i].name=='viewport'){
    metaTags[i].parentNode.removeChild(metaTags[i]);
  }
}