The sample testtray.prg doesn't show any icons in the tray area (FWH 64bit).
Any ideas?
EMG
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index Bugs report & fixes / Informe de errores y arreglos Bug in TTrayIcon (64bit)
Any news? 
EMG
testing it...
Sorry for the delay my friend
Thank you!
EMG
As a reminder...
EMG
Dear Enrico,
We have implemented some changes in Class TTrayIcon and in Class TStruct for 64 bits, but still we are unable to get it
working on 64 bits...
We have implemented some changes in Class TTrayIcon and in Class TStruct for 64 bits, but still we are unable to get it
working on 64 bits...
if ! IsExe64()
STRUCT oTray
MEMBER cbSize AS LONG
MEMBER hWnd AS LONG
MEMBER uID AS LONG
MEMBER uFlags AS LONG
MEMBER uCallMsg AS LONG
MEMBER hIcon AS LONG
MEMBER cTip AS STRING LEN 64
ENDSTRUCT
else
STRUCT oTray
MEMBER cbSize AS LONG
MEMBER hWnd AS LONGLONG
MEMBER uID AS LONG
MEMBER uFlags AS LONG
MEMBER uCallMsg AS LONG
MEMBER hIcon AS LONGLONG
MEMBER cTip AS STRING LEN 64
ENDSTRUCT
endif case nType == LONGLONG
do case
case cType == "N"
uData = PadR( AllTrim( Str( uData ) ), nLen )
endcase
::cBuffer = If( nOffset > 0, SubStr( ::cBuffer, 1, nOffset ), "" ) + ;
uData + SubStr( ::cBuffer, nOffset + nLen + 1 )Thank you anyway.
EMG