Android Question how multi webview and webw.extras progress

Erel said:

The Sender keyword will return the WebView that raised the event (if the event is implemented correctly in the library).

Click to expand...

Erel said:

The Sender keyword will return the WebView that raised the event (if the event is implemented correctly in the library).

Click to expand...

warwound said:

The WebViewExtras ProgressChanged event Sender is the WebChromeClient NOT the WebView.

@Tayfur
I've attached an updated version of WebViewExtras.
It raises a new event:

ProgressChanged2 (WebView1 As WebView, NewProgress As Int)

Replace your sub
ProgressChanged (NewProgress As Int)
with
ProgressChanged2 (WebView1 As WebView, NewProgress As Int)

Post with your results - if it works as expected then i'll upload the update to the WebViewExtras thread.

Click to expand...

Tayfur said:

java.lang.Exception: Sub webviewextras1_progresschanged2 signature does not match expected signature.

Click to expand...

warwound said:

By the way - post #4 currently shows that no-one has downloaded the v1.42 update.
That must be a glitch with the forum software...

Click to expand...

Public Sub AddWebPage(Web_Url As String)
  
'    Dim Panels(Max(NumberOfPanels,2)) As Panel
'    vYpos = Display.Height/2
'    vWidth = Display.Width
'    For c = 0 To Panels.Length-1
'        Panels(c).Initialize(EventTouch)
'        Panels(c).Tag = c
'        Display.AddView(Panels(c),vWidth,0,vWidth,Display.Height)
'    Next
    Dim wpn, left_point As Int
    If PanelsCount=0 Then
            left_point=0
        Else
            Web=WebPages.Get(PanelsCount-1)
            left_point=Web.Left+Display_Boyut.Panel_Width
    End If
    wpn=PanelsCount
  
    Dim ww As WebView
    ww.Initialize("WebPage")
    Dim webtag As Map
    webtag.Initialize
    webtag.Clear
    webtag.Put("URL",Web_Url)
    webtag.Put("LOADING",True)
    webtag.Put("LOADRATE",0)
    'ww.Tag=WebPages.Size+1
    ww.Tag=webtag
'      WebPages.Get(wpn).Initialize("Webpage")
'    WebPages.Get(wpn).Tag=wpn
    Display.AddView(ww,left_point,0,Display_Boyut.Panel_Width,Display_Boyut.Panel_Height)
    Dim WebViewExtras1 As WebViewExtras
    WebViewExtras1.addWebChromeClient(ww, "WebViewExtras1")
   'wextra.addWebChromeClient(ww,"WebPage")
 
    ww.LoadUrl(Web_Url)
    WebPages.Add(ww)
    PanelsCount=WebPages.Size
    'Log(PanelsCount&"-- web pages")
    TouchPanel.BringToFront
End Sub

Sub WebViewExtras1_ProgressChanged2(WebView1 As WebView, NewProgress As Int)
Log("ok")
'    Log("webviwetag:"&WebView1.Tag)
End Sub