topic-2094

vilian

Posts: 1067

Joined: Wed Nov 09, 2005 02:17 AM

TTRAYICON For xHarbour

Posted: Thu Mar 09, 2006 01: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

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: TTRAYICON For xHarbour

Posted: Thu Mar 09, 2006 06:14 AM

vilian wrote:Hi,

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

Thanks,
Vilian F. Arraes

Que tal.

Code: Select all Collapse

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

FiveTech Support Forums

TTRAYICON For xHarbour

Re: TTRAYICON For xHarbour

Continue the discussion