Histórico da Página

import.css=/download/attachments/6062824/tecnologia.css

Cria um ícone na área de notificação do sistema operacional, permite a utilização de menu e mensagem popup.

Classe: TSystemTray

Cria um ícone na área de notificação do sistema operacional, permite a utilização de menu e mensagem popup.

Métodos

...

Método New

Método construtor da classe.

...

Sintaxe

tSystemTray(): New ( [ oWnd], [ cResIcon] ) --> oObjeto

...

Parâmetros
 
Nome
Tipo
Descrição
Obrigatório
Referência
oWnd
Objeto
Indica a janela ou controle visual onde o objeto será criado. Permitido apenas tWindow.
x
...

cResIcon
Caracter
Icone que será apresentado na área de notificação.


  
 Nota
title
Atenção!
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
Sintaxe
systemTray := tSystemTray():New(
...
oMainWnd , "OK" )
 
...
Métodos
setIcon
...
Método 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
 
 Nota
title
Atenção!
Método pode apresentar restrições para algumas versões de Linux.
Sintaxe
tSystemTray(): setIcon( [ cResIcon] )
Nome
Tipo
Descrição
Obrigatório
Referência
cResIcon
Caracter
Icone que será apresentado na área de notificação.
...
Exemplo
...
Exemplos
tSystemTray():setIcon( 
...
 "OK" 
...
 )
...
Método 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
 Nota
title
Atenção!
Método pode apresentar restrições para algumas versões de Linux.
Sintaxe
tSystemTray(): setMenu( [ oMenu ] )
Parâmetros
 
Nome
Tipo
Descrição
Obrigatório
Referência
oMenu
Objeto
Menu apresentado no componente
...
Exemplo
...
Exemplos
tSystemTray():setMenu( 
...
 oMenu 
...
 )
...
Método showMessage
...
 showMessage
Apresenta um ícone na área de notificação do sistema operacional.
Sintaxe
tSystemTray(): showMessage( [ cTitulo ], [ cMessage ], [ nTypeMessage ], [ ntimeout ] , [ bAction ] )

 Nota
title
Atenção!
Observação: 
Método "showMessage" não suportado em Mac.

Parâmetros
...
Nome
Tipo
Descrição
Obrigatório
Referência
cTitulo 
Caracter
Titulo da mensagem.
...


cMessage 
Caracter
Mensagem apresentado.
...


nTypeMessage 
Numérico
Tipo de Mensagem
...

0 = NoIcon, 1 = Information, 2 = Warning, 3 = Critical
ntimeout 
Numérico
Timeout em Milissegundos
da mensagem.
...


bAction 
Bloco de código
ndica o bloco de código que será executado quando clicar, sobre o botão.
...
...
Exemplo
tSystemTray():showMessage( 
...
 "Titulo", 
...
 "Mensagem", 
...
 1, 
...
 2000, 
...
 {||Alert("Click")} )


...

 Bloco de código
language
cpp
theme
Eclipse
title
Exemplo
linenumbers
true
#INCLUDE "TOTVS.CH"

Function u_tSystemTray()
  Local systemTray
  
 )
Exemplos 
User Function tSystemTray()
Local systemTray
Local nX := 1


  Local aItems:= {'NoIcon','Information','Warning','Critical'}


  Local lVisible := .T.


  Private aListCons := GetResArray("*.png")


  If Len(aListCons)>0


    oDlg := TWindow():New( 10, 10, 200, 200, "Exemplo tSystemTray",,,,,,,,CLR_BLACK,CLR_WHITE,,,,,,,.T. )


    systemTray := 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


Return
 
Preview
Exemplo da classe TSystemTray


Previews
Windows
...
Image Modified
Image Modified
Image Modified
...
MacOS
Image Modified
Image Modified
Linux
...
...
Image Modified
Image Modified
Image Modified
...
 
Abrangência
TOTVS - Build superior a 7.00.120420A
 
 
 
...