www.FiveTechSoft.com
https://fivetechsoft.com/forums/
Code: Select all
DEFINE WINDOW oWnd
oWebV := TWebView2():New("title")
oWnd:oClient := oWebV
ACTIVATE WINDOW oWnd ON INIT oWebV:SetUrl( "https://www.fivetechsoft.com")
Code: Select all
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
//----------------------------------------------------------------------------//
