Webview2 en Fivewin

[Joaquim Ferrer]

Saludos al grupo

Sería posible integrar en Fivewin el control WebView2 de Edge Cromium ?

Existe algo parecido ?

+ info webview2 en
https://docs.microsoft.com/en-us/microsoft-edge/webview2/

[cnavarro]

Claro, yo lo tengo integrado en FivEdit, para ir viendo el diseño que voy haciendo

Hace tiempo se hizo una versión básica sobre el tema
viewtopic.php?f=45&t=39158&p=233708&hilit=WebView#p233670

[Joaquim Ferrer]

Muchas gracias Cristobal por responder...

Ese control que tienes integrado es alguna clase de Fivewin o alguna clase tuya ?

El enlace que indicas, es a un buen ejemplo para construir el visor (viewer.exe) pero en C

Existe alguna clase harbour para acceso a los wrappers de webview2 ?

Al estilo FW

Code: Select all  Expand view

DEFINE WINDOW oWnd
  oWebV := TWebView2():New("title")
  oWnd:oClient := oWebV
ACTIVATE WINDOW oWnd ON INIT oWebV:SetUrl( "https://www.fivetechsoft.com")
 

Gracias !

[cnavarro]

Aún no lo he convertido en clase, ya que estoy viendo todas sus posibilidades, pero sí, la idea es hacer un wrapper lo más completo posible a través de una clase.

[AngelSalom]

Voy cogiendo sitio

[cnavarro]

Joaquin, qué necesitas, algo como esto?

Code: Select all  Expand view

Function Main()

   local oBar
   local oBtn

   DEFINE FONT oFontMenu NAME "Calibri" SIZE 0, -16
   DEFINE FONT oFontItem NAME "Calibri" SIZE 0, -14 BOLD

   oWebView   := TWebView():New()

   DEFINE WINDOW oWindow TITLE "Test WebView" MENU MenuWebView()

      DEFINE BUTTONBAR oBar OF oWindow 2015 BUTTONSIZE 96, 48 NOBORDER
      DEFINE BUTTON oBtn OF oBar PROMPT "Salir" ;
         FILE "D:\FWH\FWHTEAM\BITMAPS\WINDOWS\icon210.ico" ;
         ACTION oWindow:End() GROUP
      DEFINE BUTTON oBtn OF oBar PROMPT "Test Control" ;
         FILE "D:\FWH\FWHTEAM\BITMAPS\WINDOWS\icon210.ico" ;
         ACTION Test1()

      oPnelP := TPanel():New( 0, 0, , , oWindow )
      oPnelP:SetColor( CLR_BLUE, METRO_GRIS7 )

      oWindow:oClient := oPnelP
      oWindow:bInit   := { || ;
                                        oWebView:Activate( 1, 1, , , oPnelP:hWnd, , , .T. ) }

   ACTIVATE WINDOW oWindow MAXIMIZED VALID ( oWebView:CloseView(), .T. )

   RELEASE FONT oFontItem
   RELEASE FONT oFontMenu

Return nil

//----------------------------------------------------------------------------//
 

[Joaquim Ferrer]

Fantástico Cristóbal, tiene muy buena pinta, enhorabuena !

Saludos