personal Posted April 12, 2004 Report Share Posted April 12, 2004 Estou precisando de uma rotina, para colocar o programa na tray. Somente lá, e não ficar minimizado. Se alguem puder ajudar. Oliveira, Sérgio A. PERSONAL - LINS pcspersonal@uol.com.br MSN - sergio@personal.com.br Quote Link to comment Share on other sites More sharing options...
karinha Posted April 12, 2004 Report Share Posted April 12, 2004 Voce já testou TESTTRAY.PRG? Já viu no www.dbwide.com.ar ?? João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br Quote Link to comment Share on other sites More sharing options...
personal Posted April 12, 2004 Author Report Share Posted April 12, 2004 Valeu... fico devendo. Oliveira, Sérgio A. PERSONAL - LINS pcspersonal@uol.com.br MSN - sergio@personal.com.br Quote Link to comment Share on other sites More sharing options...
personal Posted April 15, 2004 Author Report Share Posted April 15, 2004 Detalhe. Quando o icone na tray, abre o programa em tela, só que quando fecha o programa, ele tambem sai da tray, tem como fechar o programa e ele voltar para a tray, somente encerrando quando determinado pela função da tray. será que fui claro. Oliveira, Sérgio A. PERSONAL - LINS pcspersonal@uol.com.br MSN - sergio@personal.com.br Quote Link to comment Share on other sites More sharing options...
karinha Posted April 15, 2004 Report Share Posted April 15, 2004 // Original de TestTray.prg - Modifique Para o Seu Gosto Pessoal #INCLUDE "Fivewin.CH" STATIC oApp, oTray, oIcon, oWnd FUNCTION TESTIT() LOCAL oIcon1 Local lSaida := .F. DEFINE ICON oIcon FILE "..\icons\fivewin.ICO" DEFINE ICON oIcon1 FILE "..\icons\folder.ico" DEFINE WINDOW oApp ; TITLE "Icon Tray Classe Para FiveWin! De Jim Gale" ; ICON oIcon ACTIVATE WINDOW oApp ; ON INIT oTray := TTrayIcon():New( oApp, oIcon, ; "Testando Tray Icon...", ; { || MsgInfo( "Left CLick" ) }, ; { | nRow, nCol | MenuTray( nRow, nCol, oTray ) } ) ; VALID oTray:End() ; ON RIGHT CLICK oTray:SetIcon( oIcon1, "Another" ) GlobalFree() ResAllFree() RETURN NIL FUNCTION MenuTray( nRow, nCol, oTray ) LOCAL oMenu // O que você quer, deve ser controlado pelo MENU POPUP. Como no Exemplo Abaixo: MENU oMenu POPUP MENUITEM "Abre Window" ; ACTION( Abre_Window_e_Volta(), oApp:SetFocus() ) // // Isto e só um exemplo // SEPARATOR // MENUITEM "Show" ; // ACTION oApp:Show(), ; // oApp:SetFocus() // MENUITEM "Hide" ACTION oApp:Hide() // SEPARATOR MENUITEM "Fechar Programa" ; ACTION oApp:End() ENDMENU ACTIVATE POPUP oMenu AT nRow, nCol OF oTray:oWnd RETURN NIL // Static Function Abre_Window_e_Volta() // Para o Dr. Sérgio Entender! DEFINE WINDOW oWnd // Bla Bla Bla... ACTIVATE WINDOW oWnd GlobalFree() ResAllFree() Return( .T. ) João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br Quote Link to comment Share on other sites More sharing options...
karinha Posted April 15, 2004 Report Share Posted April 15, 2004 // Para acionar Aplicação com o Botão Esquerdo do Mouse, proceda assim: ACTIVATE WINDOW oApp ; ON INIT oTray := TTrayIcon():New( oApp, oIcon, "Testando Tray...", ; {|| ( Abre_Window_e_Volta(), oApp:SetFocus() ) }, ; {| nRow, nCol|MenuTray( nRow, nCol, oTray ) } ) ; VALID oTray:End() ; ON RIGHT CLICK oTray:SetIcon( oIcon1, "Another" ) João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.