Joaquin, qué necesitas, algo como esto?
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
//----------------------------------------------------------------------------//
