FiveTech Support Forums

#include "fivewin.ch"

FUNCTION MAIN()

LOCAL oWnd
LOCAL oTimer
LOCAL oTray
LOCAL oIcoMain

#define GCL_HICON -14

DEFINE ICON oIcoMain RESOURCE "TRAYICO"
DEFINE WINDOW oWnd TITLE "Salvaschermo" ICON oIcoMain FROM 1000,1000 TO 1000,1000

oWnd:bRButtonUp = { | nRow, nCol | Menu( oWnd, oTray, nRow, nCol, oTimer ) }

ACTIVATE WINDOW oWnd ON INIT oTray := TTrayIcon( oWnd )


oTray:End()

RETURN NIL


STATIC FUNCTION MENU( oWnd, oTray, nRow, nCol, oTimer )

LOCAL oMenu
LOCAL iMenu
LOCAL oIcon

DEFINE ICON oIcon  FILE "..\icons\fivewin.ICO"

DEFINE FONT oFont NAME GetSysFont() SIZE 0 , -14

MENU oMenu POPUP  FONT oFont 2007

     MENUITEM "First"
     MENUITEM "Second"
     MENUITEM "Close this menu"             ACTION oMenu:end()
     MENUITEM "&Exir from prograci"         ACTION oWnd:End()

ENDMENU

ACTIVATE MENU oMenu OF oTray:oWnd AT nRow, nCol

RETURN NIL



#pragma BEGINDUMP

void GetMonitorInfo(){}
void MonitorFromPoint(){}
void MonitorFromWindow(){}
void SetClassLongPtr(){}
void GetClassLongPtr(){}
void SendInput(){}
void PrintWindow(){}
void GetDCBrushColor(){}
void GetMenuInfo(){}
void SetMenuInfo(){}
void GetMenuBarInfo(){}
void GetComboBoxInfo(){}
void GetListBoxInfo(){}
void GetWindowLongPtr(){}

#pragma ENDDUMP

ACTIVATE WINDOW oWnd ON INIT oTray := TTrayIcon( oWnd ) HIDDEN

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