TTRAYICON For xHarbour

TTRAYICON For xHarbour

Postby vilian » Thu Mar 09, 2006 1:32 am

Hi,

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

Thanks,
Vilian F. Arraes
Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil
User avatar
vilian
 
Posts: 975
Joined: Wed Nov 09, 2005 2:17 am
Location: Brazil

Re: TTRAYICON For xHarbour

Postby wmormar » Thu Mar 09, 2006 6:14 am

vilian wrote:Hi,

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

Thanks,
Vilian F. Arraes


Que tal.

Code: Select all  Expand view
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 )
William, Morales
Saludos

méxico.sureste
User avatar
wmormar
 
Posts: 1074
Joined: Fri Oct 07, 2005 10:41 pm
Location: México


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 77 guests