XProfan

 {$cleq}
const appTitle=TrayApp
//messages
const m_base=wm_user+4096
const m_tray_TrackMenu_exitApp=m_base+0
//defaults
const d_hwndSizeX=300
const d_hwndSizeY=450
long hwnd.showMode=1
windowTitle apptitle
windowStyle 2 | 4 | 8 | 16 | 512 | 1024
window maxx,maxy - 0,0
hwnd.showWindow(false)
moveWindow(hwnd,(maxx/2-d_hwndSizeX/2),(maxy*0.4-d_hwndSizeY/2),d_hwndSizeX,d_hwndSizeY,false)
long tray.iconH=tray.init()
userMessages wm_close

do {

    select TrayIcon(msg,1)

        caseof wm_lButtonDown,wm_lButtonDblClk : hwnd.showWindow(true-hwnd.showMode)

        caseof wm_rButtonDown

        select tray.trackMenu()

            caseof m_tray_TrackMenu_exitApp : break

        endSelect

    endSelect

    select uMessage

        caseof wm_close : hwnd.showWindow(false)

    endSelect

    waitinput

}

tray.close(tray.iconH)
end

tray.init{

    long h=create(hIcon,A)
    trayIcon(add,hWnd,1,h,appTitle)
    return h

}

tray.close(long h){

    int bVal=trayIcon(delete,hWnd,1)
    deleteObject h
    return bVal

}

tray.trackMenu{

    createMenu
    appendMenu m_tray_TrackMenu_exitApp,terminate
    setActiveWindow(hWnd)
    int bVal=trackMenu()
    setMenuitem 0
    return bVal

}

hwnd.showWindow(int fashion){

    ifnot hwnd.showMode==fashion {

        showWindow(hWnd,fashion)

    }

    if fashion {

        setForeGroundWindow(hwnd)
        setActiveWindow(hwnd)

    }

    hwnd.showMode=fashion
    return true

}