Bug in TTrayIcon (64bit)

[Enrico Maria Giordano]

The sample testtray.prg doesn't show any icons in the tray area (FWH 64bit).

Any ideas?

EMG

[Enrico Maria Giordano]

Up.

EMG

[Enrico Maria Giordano]

Any news?

EMG

[Antonio Linares]

testing it...

Sorry for the delay my friend

[Enrico Maria Giordano]

Thank you!

EMG

[Enrico Maria Giordano]

As a reminder...

EMG

[Antonio Linares]

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...

Code: Select all  Expand view  RUN

 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  Expand view  RUN

      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 )

[Enrico Maria Giordano]

Thank you anyway.

EMG