FiveTech Software tech support forums

Code: Select all | Expand

#include "FiveWin.ch"

function Main()

   local oWnd, oWebView, oContent, oLink1, oLink2

   DEFINE WINDOW oWnd SIZE 2000, 1200

   @ 0, 0 WEBVIEW oWebView OF oWnd HTML "file://" + hb_DirBase() + "index.html" SIZE 2000, 1200

   REDEFINE ITEM oContent ID "content" OF oWebView 

   REDEFINE ITEM oLink1 ID "GiftCode" OF oWebView ;
      ON CLICK oContent:SetHTML( "GiftCode" )

   REDEFINE ITEM oLink2 ID "TopReview" OF oWebView ;
      ON CLICK oContent:SetHTML( "TopReview" )

   ACTIVATE WINDOW oWnd CENTERED ;
      VALID ( oWebView:End(), .T. )

return nil