Page 1 of 1
TTRAYICON For xHarbour
Posted: Thu Mar 09, 2006 1:32 am
by vilian
Hi,
Somebody has a version of class TTRAYICON for xHarbour/FWH26?
Thanks,
Vilian F. Arraes
Re: TTRAYICON For xHarbour
Posted: Thu Mar 09, 2006 6:14 am
by wmormar
vilian wrote:Hi,
Somebody has a version of class TTRAYICON for xHarbour/FWH26?
Thanks,
Vilian F. Arraes
Que tal.
Code: Select all
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 )