TTRAYICON For xHarbour

[vilian]

Hi,

Somebody has a version of class TTRAYICON for xHarbour/FWH26?

Thanks,
Vilian F. Arraes

[wmormar]

Hi,

Somebody has a version of class TTRAYICON for xHarbour/FWH26?

Thanks,
Vilian F. Arraes

Que tal.

Code: Select all  Expand view  RUN

FUNCTION SetTray(oIcon,cEmpresa,oWnd,oTray)
         DEFAULT oTray := NIL
         oTray := TTrayIcon():New( oWnd,oIcon,cEmpresa,{|| (oWnd:Show(),Shell_NotifyIcon( 2,@oTray:oTray:cBuffer ),oWnd:setfocus()) }, ;
                                   {| nRow,nCol | MenuTray( nRow,nCol,@oWnd,@oTray ) } )
RETURN( oTray )