Bug in TTrayIcon (64bit)
Posted: Sun May 24, 2020 8:43 am
The sample testtray.prg doesn't show any icons in the tray area (FWH 64bit).
Any ideas?
EMG
Any ideas?
EMG
www.FiveTechSoft.com
https://forums.fivetechsoft.com/
Code: Select all
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
Code: Select all
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 )