FiveTech Software tech support forums

Code: Select all

Function Main()
   DEFINE Window oWnd  TITLE "Test Call"

   DEFINE BUTTON resource "EXIT" of oBar  Message "Exit"   Group  Action ( lExit:=.t., oWnd:end() )


    ACTIVATE WINDOW oWnd Maximized ;
     ON INIT (oTray := TTrayIcon():New( oWnd, oIcon, "Testing tray ...",;
             { || MsgInfo( "Left CLick" ) },;
             { | nRow, nCol | MenuTray( nRow, nCol, oTray ) } ),oWnd:Show()) ;
     ON RESIZE SHOWRESIZETYPE( nSizeType ) ;
     VALID ( oWnd:hide(), lExit )

Return nil


#define SIZE_INIT      NIL
#define SIZE_RESTORED  0
#define SIZE_MINIMIZED 1
#define SIZE_MAXIMIZED 2

STATIC FUNCTION SHOWRESIZETYPE( nSizeType )
  STATIC lInit := .T.

    DO CASE
        CASE nSizeType = SIZE_INIT
            lInit = .F.
        CASE nSizeType = SIZE_RESTORED .AND. !lInit
        CASE nSizeType = SIZE_MINIMIZED
           oWnd:hide()
        CASE nSizeType = SIZE_MAXIMIZED
    ENDCASE

RETURN NIL

Function MenuTray( nRow, nCol, oTray )

   local oMenu

   MENU oMenu POPUP
      MENUITEM "Show" ACTION oWnd:Show(), oWnd:SetFocus()
      MENUITEM "Hide" ACTION oWnd:Hide()
      SEPARATOR
      MENUITEM "Close Application" ACTION ( lExit:=.t., oWnd:end() )
   ENDMENU

   ACTIVATE POPUP oMenu AT nRow, nCol OF oTray:oWnd

return NIL