TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Acacio Fernandes Egas Junior

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Acacio Fernandes Egas Junior

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Portuguese

Classe: tXMLViewer

Cria um visualizador de "xml" em formato de arvore. Apenas para arquivos localizados no Cliente (SmartClient).
 
Hierarquia

TSrvObject -> tControl -> TXMLViewer

Construtores

New

 

New

Método construtor da classe.

 
Sintaxe

tSystemTraytXMLViewer(): New ( anRownRow, anColnCol, [ aoWnd oWnd ], [acFilecFile], anWidthnWidth, anHeightnHeight, alPixellPixel) --> oObjeto

 
Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
anRownRowInteiroNuméricoIndica a coordenada vertical em pixels ou caracteres.x  
anColnColInteiroNumérico.Indica a coordenada horizontal em pixels ou caracteres.  
Observação: O Parâmetro
oWnd
deve ser sempre uma "TWindow". Caso contrario será disparada uma exceção no SmartClient.
Retorno
oObjeto
    ()
  • Retorna o objeto criado.
 
Exemplos
systemTray := tSystemTray():New(oDlg , "OK" )

 

Métodos

setIcon

 setIcon

Método para alterar ícone da área de notificação do sistema operacional.

 
Sintaxe

tSystemTray(): setIcon( [ cResIcon] )

Observação: Método pode apresentar restrições para algumas versões de Linux.
Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
cResIconCaracterIcone que será apresentado na área de notificação.  

Exemplos

tSystemTray():setIcon( "OK" )
setMenu

 

 setMenu

Método para definir o menu apresentado quando efetuado o clique com o botão direito sobre o componente.

Sintaxe

tSystemTray(): setMenu( [ oMenu ] )

 
Observação: Método pode apresentar restrições para algumas versões de Linux. 
Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
oMenuObjetoMenu apresentado no componente  

Exemplos

tSystemTray():setMenu( oMenu )
showMessage

 

 showMessage

Apresenta um ícone na área de notificação do sistema operacional.

Sintaxe
ObjetoIndica a janela ou controle visual onde o objeto será criado.  
cFileCarácterEndereço do arquivo "xml" no Client.  
nWidthNuméricoIndica a largura em pixels do objeto.  
nHeightNuméricoIndica a altura em pixels do objeto.  
lPixelLogicoIndica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.).  

 

Retorno
oObjeto
    ()
  • Retorna o objeto criado.
 
Exemplos
oXml:= tXMLViewer():New(10, 10, oDlg , cFile , 100, 100, .T. )

 

Métodos

setXML

 setXML

Método para definir o arquivo "xml" que será apresentado.

 
Sintaxe

tXMLViewer(): setXML( cfile )

tSystemTray(): showMessage( [ cTitulo ], [ cMessage ], [ nTypeMessage ], [ ntimeout ] , [ bAction ] )

Observação: Método "showMessage" não suportado em Mac.

Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
cTituloCaracterTitulo da mensagem.  
cMessageCaracterMensagem apresentado.  
nTypeMessageNuméricoTipo de Mensagem 0 = NoIcon, 1 = Information, 2 = Warning, 3 = Critical
ntimeoutNumérico

Timeout em Milissegundos

da mensagem.

  
cfile CaracterEndereço do arquivo "xml" no Client
bActionBloco de códigondica o bloco de código que será executado quando clicar, sobre o botão
.  

Exemplos

tSystemTray
tXMLViewer():XMLViewer:
showMessage( "Titulo", "Mensagem", 1, 2000, {||Alert("Click")} 
setXML(cFile)

Exemplos 

#include "totvs.ch"

User

Function

tSystemTray

TXMLViewer()

Local

systemTray
Local nX := 1Local aItems:= {'NoIcon','Information','Warning','Critical'}
Local lVisible :=

cTempPath := GetTempPath(.T.


Private aListCons := GetResArray("*.png")
If Len(aListCons)>0
oDlg := TWindow

)
Local cFile := cTempPath +'teste.xml'

oDlg := TDialog():New(

10

150,

10

150,

200

500,

200, "Exemplo tSystemTray",,,,,,,,CLR_BLACK,CLR_WHITE

500,'',,,,,,,,,.T.

)

systemTray

ofileXML :=

tSystemTray():New(oDlg , aListCons[nX] )
//Seta o Icone do System Tray
oTButton1 := TButton():New( 002, 002, "Muda Icone",oDlg,{|| if (nX<Len(aListCons),nX++,nX:=1), systemTray:setIcon(aListCons[nX])},40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
oTButton3 := TButton():New( 002, 055, "Visible",oDlg,{|| oTGet1:lVisible := systemTray:lVisible := lVisible := !lVisible},40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
cTGet1 := Space(100)
cTGet2 := 50000
oTGet1 := TGet():New( 022,02,{|u| if(Valtype(u)=="C",cTGet1 := u , cTGet1)},oDlg,050,009,"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,, )
oTGet2 := TGet():New( 022,55,{|u| if(Valtype(u)=="N",cTGet2 := u , cTGet2)},oDlg,050,009,"@E 999999",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,/*cTGet2*/,,,, )
cCombo1:= aItems[1]
nItemCombo := 1
oCombo1 := TComboBox():New(042,02,{|u|if(PCount()>0,cCombo1:=u,cCombo1)},aItems,50,20,oDlg,,{|| nItemCombo := aScan(aItems,cCombo1) - 1},,,,.T.,,,,,,,,,'cCombo1')
//Envia mensagem para o System Tray
oTButton2 := TButton():New( 042, 055, "Mensagem",oDlg,{|| systemTray:showMessage("Titulo" , Alltrim(cTGet1) , nItemCombo , cTGet2, {|| Alert("Click")} )},40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
systemTray:cToolTip := "ToolTip"
oTMenu1 := TMenu():New(0,0,0,0,.T.,,oDlg)
oTItem1 := TMenuItem():New(oDlg,'Menu Item 1',,,,{|| Alert('Menu Item 1') },,'AVGLBPAR1',,,,,,,.T.)
oTItem2 := TMenuItem():New(oDlg,'Menu Item 2',,,,{|| Alert('Menu Item 2') },,,,,,,,,.T.)
oTMenu1:Add(oTItem1)
oTMenu1:Add(oTItem2)
//Seta o Menu do System Tray
systemTray:setMenu(oTMenu1)
oDlg:Activate()
EndIf

FCREATE(cFile)
cContent := "<?xml version='1.0' encoding='ISO-8859-1' standalone='yes' ?><testsuite time='0.0000'><testcase id='1'></testcase></testsuite>"
If ofileXML>0
FWrite(ofileXML, cContent)
FClose(ofileXML)
EndIf

oXml := TXMLViewer():New(10, 10, oDlg , cFile, 150, 150, .T. )

if oXml:setXML(cFile)
Alert("Arquivo não encontrado")
EndIf

oDlg:Activate()

Return

 
Preview
Exemplo da classe TSystemTrayWindowstXMLViewer: 
Image Removed
Image Removed
Image Removed
  • Mac:
    Image Removed
    Image Removed
    • Linux:
     Image Removed
    Image Removed
    Image Removed
    Image Added

     

    Abrangência
    TOTVS - Build superior a 7.00.120420A