Histórico da Página

#include "TOTVS.CH"
 
MAIN FUNCTION testTIBrowse()
 
    DEFINE DIALOG oDlg TITLE "Exemplo TIBrowser" FROM 180,180 TO 550,700 PIXEL
     
        oTIBrowser := TIBrowser():New(0,0,260,170, "http://www.googletotvs.com.br", oDlg )
        TButton():New( 172, 002, "Navigate", oDlg,;
            {|| oTIBrowser:Navigate( "http://tdn.totvs.com/display/home/TDN+-+TOTVS+Developer+Network" ) },40,010,,,.F.,.T.,.F.,,.F.,,,.F. )
         
        TButton():New( 172, 052, "GoHome", oDlg,;
            {|| oTIBrowser:GoHome() },40,010,,,.F.,.T.,.F.,,.F.,,,.F. )
             
        TButton():New( 172, 102, "Print", oDlg,;
            {|| oTIBrowser:Print() },40,010,,,.F.,.T.,.F.,,.F.,,,.F. )
             
    ACTIVATE DIALOG oDlg CENTERED
 
Return