Page 1 of 1

Bug in TTrayIcon (64bit)

Posted: Sun May 24, 2020 8:43 am
by Enrico Maria Giordano
The sample testtray.prg doesn't show any icons in the tray area (FWH 64bit).

Any ideas?

EMG

Re: Bug in TTrayIcon (64bit)

Posted: Wed May 27, 2020 3:48 pm
by Enrico Maria Giordano
Up. :-)

EMG

Re: Bug in TTrayIcon (64bit)

Posted: Sat Jun 13, 2020 8:30 am
by Enrico Maria Giordano
Any news? :-)

EMG

Re: Bug in TTrayIcon (64bit)

Posted: Sat Jun 13, 2020 11:01 am
by Antonio Linares
testing it...

Sorry for the delay my friend :-)

Re: Bug in TTrayIcon (64bit)

Posted: Sat Jun 13, 2020 11:58 am
by Enrico Maria Giordano
Thank you! :-)

EMG

Re: Bug in TTrayIcon (64bit)

Posted: Mon Jul 20, 2020 9:23 am
by Enrico Maria Giordano
As a reminder... :-)

EMG

Re: Bug in TTrayIcon (64bit)

Posted: Mon Jul 20, 2020 9:59 am
by 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

  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 )

Re: Bug in TTrayIcon (64bit)

Posted: Mon Jul 20, 2020 10:10 am
by Enrico Maria Giordano
Thank you anyway.

EMG