Classe: TIBrowserCria um objeto do tipo página de internet. NewMétodo construtor da classe.TIBrowser(): New ( [ nRow], [ nCol], [ nWidth], [ nHeight], [ cPage], [ oWnd] ) --> oObjeto Nome | Tipo | Descrição | Obrigatório | Referência | nRow | Numérico | Indica a coordenada vertical em pixels ou caracteres. | | | nCol | Numérico | Indica a coordenada horizontal em pixels ou caracteres. | | | nWidth | Numérico | Indica a largura em pixels do objeto. | | | nHeight | Numérico | Indica a altura em pixels do objeto. | | | cPage | Caracter | Indica a URL (Uniform Resource Locator) da página de internet. | | | oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. | | |
oObjeto()- Retorna o objeto criado.
oTIBrowser:= TIBrowser():New(0,0,260,184,'http://www.totvs.com.br',oDlg ) GoHomeTIBrowser(): GoHome ( ) --> TButton():New( 172, 052, "GoHome", oDlg,; {|| oTIBrowser:GoHome() },40,010,,,.F.,.T.,.F.,,.F.,,,.F. ) NavigateDireciona para uma nova página Web.TIBrowser(): Navigate ( < cUrl> ) --> Nome | Tipo | Descrição | Obrigatório | Referência | cUrl | Caracter | Indica a URL (Uniform Resource Locator) da página Web. | X | |
TButton():New( 172, 002, "Navigate", oDlg,; {|| oTIBrowser:Navigate( "http://www.rm.com.br" ) },40,010,,,.F.,.T.,.F.,,.F.,,,.F. ) PrintAbre uma janela para impressão da página.TIBrowser(): Print ( ) --> TButton():New( 172, 102, "Print", oDlg,; {|| oTIBrowser:Print() },40,010,,,.F.,.T.,.F.,,.F.,,,.F. ) Nota |
---|
Observações - Para utilizar esta classe, no SmartClient, é necessário incluir, no arquivo de configuração do Smart Client (*.INI), a chave BrowserEnabled=1. Para o SmartClient HTML também é necessário incluir esta chave ( Opção BrowserEnabled ).
- Em builds superiores a 111010P este componente foi liberado para os sistemas operacionasis Linux® e MacOS®.
- Em ambiente Windows, build 121227P ou superior, quando o Internet Explorer estiver instalado na versão 10 ou superior, ocorre um problema ao abrir o Google Maps, este problema porém é em decorrência de uma incompatibilidade entre as tecnologias de terceiros, estamos aguardando uma solução por parte destes softwares externos.
- A classe em questão não tem suporte para Java e/ou JavaScript.
|
Bloco de código |
---|
theme | Eclipse |
---|
language | cpp |
---|
title | Exemplo |
---|
linenumbers | true |
---|
| #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.totvs.com.br",oDlg )
TButton():New( 172, 002, "Navigate", oDlg,;
{|| oTIBrowser:Navigate( "http://www.rm.com.br" ) },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 |
Exemplo da classe TIBrowser Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server |