FiveTech Support Forums

oTray := TTrayIcon():New( oWndTray, oTrayIcon, "Sistema Gerenciador" )

oTray:bLButtonUp  := { | nRow, nCol | TaskMenu( nRow, nCol - 5 ) }
oTray:bRButtonUp  := { | nRow, nCol | TaskMenu( nRow, nCol - 5 ) }

oTray:oNotifyIcon := oTrayIcon

   oTray:End()

   oTrayIcon:End()

   oTrayTimer:End()

   oWndTray:End()

// C:\FWH\SAMPLES\DORNELES.PRG

#Include "FiveWin.ch"

STATIC oWnd, oTray, oIcon, oTmridx, oTmrCheck, oFrame

FUNCTION Main()

   LOCAL oImage, oIcon1

   DEFINE ICON oIcon  FILE "..\icons\fivewin.ico"
   DEFINE ICON oIcon1 FILE "..\icons\folder.ico"

   DEFINE WINDOW oWnd Title "..:: Robo MD-e Manifestação do Destinatário " ;
      ICON oIcon

   // + cEmp_Cod + " ::.." //??? Codigo de que Empresa Dorneles?

   @ 0, 0 IMAGE oImage SIZE 0, 0 OF oWnd // Quem e oImage?

   // E UM DIALOGO? NUNCA VI ISSO NA VIDA.
   // O QUE E SKINFRAME, Dorneles? Baytolagem Sao Paulina? kkkkkkkkk
   // DEFINE SkinFrame oFrame OF oWnd Skin "", "2", "3" StartPosition 150, 450

   // TTrayIconEx() ?? E novo? Ou sua Dorneles? nao entendi isso? para que?
   // oTray := TTrayIconEx():New( oWnd, oIcon, oWnd:cTitle ) // Classe Propria?

   // Assim funciona.
   oTray := TTrayIcon():New( oWnd, oIcon, "Sistema Gerenciador" )

   // laskou-se, whats is this?
   // oTray : bLDblClick := {| nRow, nCol | MenuTray( nRow, nCol, oTray, oWnd, oTmrIdx ) }

   // oWnd:Hide() // Desnecessario a Classe ja faz isso.

   // ForeGroundWnd( oWnd:hWnd )  // vixe, o que faz isso? NUNCA VI

   // RemoveFromTask( oWnd:hWnd ) // vixe, o que faz isso? NUNCA VI

   // A cada 1 minuto
   DEFINE TIMER oTmrCheck INTERVAL 60000 ;
      ACTION ( UpdateHeartbeat() ) OF oWnd

   ACTIVATE TIMER oTmrCheck

   // 1 hora
   DEFINE TIMER oTmrIdx INTERVAL ( 60000 * 60 ) ;
      ACTION ( SysRefresh(), oWnd:Hide(),       ;
      AUpDateAI( oWnd, oTray, oTmrIdx, 1 ) ) OF oWnd // 6000

   ACTIVATE TIMER oTmrIdx

   ACTIVATE WINDOW oWnd CENTERED ;
     ON INIT oTray := TTrayIcon():New( oWnd, oIcon, "Mensangeria Tray...",   ;
             { || MsgInfo( "Left CLick" ) },                                 ;
             { | nRow, nCol | MenuTray( nRow, nCol, oTray ) } )              ;
     VALID( oTray:End() )                                                    ;
     ON RIGHT CLICK oTray:SetIcon( oIcon1, "Outra" )

     // ON INIT( oWnd:Hide() ) // Desnecessario.

RETURN NIL

FUNCTION UpdateHeartbeat()

   ? "Donde esta Dorneles? 1" // funciona.

RETURN NIL

FUNCTION AUpDateAI( oWnd, oTray, oTmrIdx, N )

   ? "Donde esta Dorneles? 2" // Nao esperei

RETURN NIL

FUNCTION MenuTray( nRow, nCol, oTray )

   local oMenu

   MENU oMenu POPUP

      MENUITEM "Show" ACTION oWnd:Show(), oWnd:SetFocus() ;
         FILENAME "..\bitmaps\16x16\info.bmp"

      MENUITEM "Hide" ACTION oWnd:Hide()                  ;
         FILENAME "..\bitmaps\16x16\faces.bmp"

      SEPARATOR
      MENUITEM "Close Application" ACTION oWnd:End()      ;
         FILENAME "..\bitmaps\16x16\Exit.bmp"

   ENDMENU

   ACTIVATE POPUP oMenu AT nRow, nCol OF oTray:oWnd

RETURN NIL

// FIN / END - kapiabafwh@gmail.com