Edit profile

Page History

Versions Compared

Key

This line was added.
This line was removed.
Formatting was changed.

...

Returns a string that is the title of the current HTML document.

DefaultURL

sets Sets the URL which will load once the webview WebView is initialized.

Source

returns Returns the current URL in the Webview WebView component.

Here is an example of using these properties to control your UI:

...

     Evtroutine Handling(#BTN_Stop.Click)
        #WebView.Stop
     Endroutine

Events

NavigationComplete

...

Fired when the loading of a webpage has finished.

     Evtroutine Handling(#WebView.NavigationCompleted) Options(*NOCLEARMESSAGES *NOCLEARERRORS)
        #Navigating := False
        #COM_SELF.ToggleControls
        #URL := #WebView.Source
     Endroutine

...

NavigationStarting

Fired when the Loading of a webpage commences.

     Evtroutine Handling(#WebView.NavigationStarting) Options(*NOCLEARMESSAGES *NOCLEARERRORS)
        #Navigating := True
        #COM_SELF.ToggleControls
     Endroutine

...

     * **************************************************
     *
     *  COMPONENT:  STD_FORM*
     *
     * **************************************************
     Function Options(*DIRECT)
     Begin_Com Role(*EXTENDS #PRIM_FORM) Clientwidth(1659) Clientheight(1006) Componentversion(2) Left(1065) Top(203) Layoutmanager(#LayoutMain)
 
     Define_Com Class(#PRIM_VS.Style) Name(#Style1) Cornerbottomleft(0) Cornerbottomright(0) Borderleft(0) Bordertop(0) Borderright(0) Borderbottom(0)
 

     Define_Com Class(#PRIM_TBLO) Name(#LayoutMain)
     Define_Com Class(#PRIM_TBLO.Column) Name(#LayoutMainColumn1) Displayposition(1) Parent(#LayoutMain)
     Define_Com Class(#PRIM_TBLO.Row) Name(#LayoutMainRow1) Displayposition(3) Parent(#LayoutMain) Height(2)
     Define_Com Class(#PRIM_TBLO.Row) Name(#LayoutMainRow2) Displayposition(1) Parent(#LayoutMain) Height(58) Units(Pixels)
     Define_Com Class(#PRIM_TBLO.Row) Name(#LayoutMainRow3) Displayposition(2) Parent(#LayoutMain) Height(58) Units(Pixels)
     Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutMainItem1) Manage(#WebView) Parent(#LayoutMain) Row(#LayoutMainRow1) Column(#LayoutMainColumn1)
     Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutMainItem2) Alignment(TopLeft) Column(#LayoutMainColumn1) Manage(#Label1) Parent(#LayoutMain) Row(#LayoutMainRow2) Sizing(FitToWidth) Flow(Down) Marginleft(8) Marginright(8)
     Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutMainItem3) Alignment(TopLeft) Column(#LayoutMainColumn1) Manage(#URL) Parent(#LayoutMain) Row(#LayoutMainRow2) Sizing(FitToWidth) Flow(Down) Marginleft(24) Marginright(24)
     Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutMainItem4) Alignment(TopLeft) Column(#LayoutMainColumn1) Manage(#Label2) Parent(#LayoutMain) Row(#LayoutMainRow3) Sizing(FitToWidth) Flow(Down) Marginleft(8) Marginright(8)
     Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutMainItem5) Alignment(TopLeft) Column(#LayoutMainColumn1) Manage(#Panel1) Parent(#LayoutMain) Row(#LayoutMainRow3) Sizing(FitToWidth) Flow(Down) Marginleft(16) Marginright(16)
     Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutMainItem6) Alignment(BottomCenter) Column(#LayoutMainColumn1) Manage(#ProgressBar) Parent(#LayoutMain) Row(#LayoutMainRow2) Sizing(FitToWidth) Marginleft(24) Marginright(24)


     Define_Com Class(#PRIM_TBLO) Name(#Layout1)
     Define_Com Class(#PRIM_TBLO.Row) Name(#Layout1Row1) Displayposition(1) Parent(#Layout1)
     Define_Com Class(#PRIM_TBLO.Column) Name(#Layout1Column1) Displayposition(1) Parent(#Layout1)
     Define_Com Class(#PRIM_TBLO.Item) Name(#Layout1Item1) Alignment(CenterLeft) Column(#Layout1Column1) Manage(#BTN_Reload) Parent(#Layout1) Row(#Layout1Row1) Sizing(None) Flow(Right)
     Define_Com Class(#PRIM_TBLO.Item) Name(#Layout1Item2) Alignment(CenterLeft) Column(#Layout1Column1) Manage(#BTN_Forward) Parent(#Layout1) Row(#Layout1Row1) Sizing(None) Flow(Right)
     Define_Com Class(#PRIM_TBLO.Item) Name(#Layout1Item3) Alignment(CenterLeft) Column(#Layout1Column1) Manage(#BTN_Back) Parent(#Layout1) Row(#Layout1Row1) Sizing(None) Flow(Right)
     Define_Com Class(#PRIM_TBLO.Item) Name(#Layout1Item4) Alignment(CenterLeft) Column(#Layout1Column1) Manage(#BTN_Go) Parent(#Layout1) Row(#Layout1Row1) Sizing(None) Flow(Right)
     Define_Com Class(#PRIM_TBLO.Item) Name(#Layout1Item5) Alignment(CenterLeft) Column(#Layout1Column1) Manage(#BTN_Stop) Parent(#Layout1) Row(#Layout1Row1) Sizing(None) Flow(Right)

     Define_Com Class(#PRIM_EDIT) Name(#URL) Parent(#COM_OWNER) Left(24) Top(25) Displayposition(3) Tabposition(2) Width(1611) Height(30)

     Define_Com Class(#prim_WebV) Name(#WebView) Parent(#COM_OWNER) Displayposition(1) Tabposition(1) Height(890) Top(116) Left(0) Width(1659) Defaulturl('https://docs.lansa.com/15/en/')
 
     Define_Com Class(#PRIM_LABL) Name(#Label1) Caption('URL') Displayposition(2) Ellipses(Word) Height(25) Left(8) Parent(#COM_OWNER) Tabposition(3) Tabstop(False) Top(0) Verticalalignment(Center) Width(1643)
     Define_Com Class(#PRIM_PANL) Name(#Panel1) Displayposition(5) Left(16) Parent(#COM_OWNER) Tabposition(4) Tabstop(False) Top(83) Width(1627) Layoutmanager(#Layout1) Height(30)
     Define_Com Class(#PRIM_PHBN) Name(#BTN_Go) Caption('Go') Displayposition(1) Left(0) Parent(#Panel1) Tabposition(1) Top(3)
     Define_Com Class(#PRIM_PHBN) Name(#BTN_Back) Caption('Back') Displayposition(2) Left(80) Parent(#Panel1) Tabposition(2) Top(3)
     Define_Com Class(#PRIM_PHBN) Name(#BTN_Forward) Caption('Forward') Displayposition(3) Left(160) Parent(#Panel1) Tabposition(3) Top(3)
     Define_Com Class(#PRIM_PHBN) Name(#BTN_Reload) Caption('Reload') Displayposition(4) Left(240) Parent(#Panel1) Tabposition(4) Top(3)
     Define_Com Class(#PRIM_PHBN) Name(#BTN_Stop) Caption('Stop') Displayposition(5) Left(320) Parent(#Panel1) Tabposition(5) Top(3)
     Define_Com Class(#PRIM_LABL) Name(#Label2) Caption('Controls') Displayposition(4) Ellipses(Word) Height(25) Left(8) Parent(#COM_OWNER) Tabposition(5) Tabstop(False) Top(58) Verticalalignment(Center) Width(1643)
     Define_Com Class(#PRIM_PGBR) Name(#ProgressBar) Displayposition(6) Left(24) Parent(#COM_OWNER) Tabposition(6) Top(38) Width(1611) Height(20) Style(#Style1) Visible(False)
     Define_Com Class(#PRIM_TIMR) Name(#ProgressTimer) Interval(25) Startup(Manual)
     Define_Com Class(#prim_nmbr) Name(#ProgressNum)
     Define_Com Class(#PRIM_BOLN) Name(#Navigating)
 

     Evtroutine Handling(#COM_OWNER.Initialize)
     #URL := #WebView.DefaultUrl
     Endroutine
 
     Evtroutine Handling(#WebView.NavigationCompleted) Options(*NOCLEARMESSAGES *NOCLEARERRORS)
     #Navigating := False
     #COM_SELF.ToggleControls
     #URL := #WebView.Source
     Endroutine

     Evtroutine Handling(#WebView.NavigationStarting) Options(*NOCLEARMESSAGES *NOCLEARERRORS)
     #Navigating := True
     #COM_SELF.ToggleControls
     Endroutine
 
     Evtroutine Handling(#BTN_Go.Click)
     #WebView.NavigateTo( #COM_SELF.FormatURL )
     Endroutine
     Evtroutine Handling(#URL.Enter)
     #WebView.NavigateTo( #COM_SELF.FormatURL )
     Endroutine
     Evtroutine Handling(#BTN_Back.Click)
     #WebView.NavigateBack
     Endroutine
     Evtroutine Handling(#BTN_Forward.Click)
     #WebView.NavigateForward
     Endroutine
     Evtroutine Handling(#BTN_Reload.Click)
     #WebView.Reload
     Endroutine
     Evtroutine Handling(#BTN_Stop.Click)
     #WebView.Stop #COM_SELF.ToggleControls
     Endroutine

  
     Mthroutine Name(FormatURL)
     Define_Map For(*RESULT) Class(#prim_dc.UnicodeString) Name(#Result)
 
     Define Field(#Protocol) Type(*NVARCHAR) Length(8)

     #Protocol := #URL.Value.Substring( 1 8 ).UpperCase 

     If (#Protocol.UpperCase <> 'HTTPS://')

     #Protocol := #URL.Value.Substring( 1 7 ).UpperCase

     If (#Protocol.UpperCase <> 'HTTP://') 

     #URL := 'https://' + #URL

     Endif
 
     Endif 

     #Result := #URL 

     Endroutine 

     Mthroutine Name(ToggleControls)

     #BTN_Back.Enabled := #WebView.CanNavigateBack
     #BTN_Forward.Enabled := #WebView.CanNavigateForward
     #BTN_Stop.Enabled := #Navigating
     #BTN_Reload.Enabled := #Navigating.IsFalse
     #BTN_Go.Enabled #URL.Enabled := #Navigating.IsFalse

     #COM_OWNER.Caption := #WebView.DocumentTitle
     If (#Navigating)
     #ProgressBar.FadeIn Duration(250)
     #ProgressTimer.Start
     Else
     #ProgressTimer.Stop
     #ProgressBar.Value := 0
     #ProgressBar.FadeOut Duration(250) Visible(True)
     Endif

     Endroutine

     Evtroutine Handling(#ProgressTimer.Tick) Options(*NOCLEARMESSAGES *NOCLEARERRORS)

     #ProgressBar.Value += 1

     If (#ProgressBar.Value >= 100)
     #ProgressNum := 0
     Endif

     #Com_owner.UpdateDisplay


     Endroutine
     End_Com

...

Content

Space Tools

Versions Compared

Old Version 5

New Version Current

Key

DefaultURL

Source

Events

NavigationComplete

Fired when the loading of a webpage has finished.
Evtroutine Handling(#WebView.NavigationCompleted) Options(NOCLEARMESSAGES NOCLEARERRORS)
#Navigating := False
#COM_SELF.ToggleControls
#URL := #WebView.Source
Endroutine
...

NavigationStarting

Content

Space Tools

Page History

Versions Compared

Old Version 5

New Version Current

Key

DefaultURL

Source

Events

NavigationComplete

Fired when the loading of a webpage has finished. Evtroutine Handling(#WebView.NavigationCompleted) Options(*NOCLEARMESSAGES *NOCLEARERRORS) #Navigating := False #COM_SELF.ToggleControls #URL := #WebView.Source Endroutine...

NavigationStarting

Fired when the loading of a webpage has finished.
Evtroutine Handling(#WebView.NavigationCompleted) Options(NOCLEARMESSAGES NOCLEARERRORS)
#Navigating := False
#COM_SELF.ToggleControls
#URL := #WebView.Source
Endroutine
...