Pregunta sencilla, ¿En las opciones del menú desplegable se puede mostrar un Tooltip?

[nanoespinoza]

Estimados todos:

La consulta es sencilla, ¿En las opciones de los menús desplegables, se puede hacer que al pasar el cursor en cada opción, se muestre como Tooltip el valor de MESSAGE?

Saludos

Fernando Espinoza A.

[Antonio Linares]

Este ejemplo debe funcionar:

Code: Select all | Expand

#include "FiveWin.ch"

function Main()

    local oWnd 

    DEFINE WINDOW oWnd MENU BuildMenu()

    oWnd:bMenuSelect = { | oMenuItem | MsgBeep(), If( oMenuItem != nil, oWnd:ShowToolTip( 100, 100, oMenuItem:cMsg ),) }

    SET MESSAGE OF oWnd TO "test"

    ACTIVATE WINDOW oWnd CENTERED 

return nil    

function BuildMenu()

   local oMenu

   MENU oMenu 
      MENUITEM "Files"
      MENU 
         MENUITEM "New" MESSAGE "menuitem"
      ENDMENU
   ENDMENU

return oMenu

[nanoespinoza]

Estimado Antonio:

Hice la prueba, compila bien, al ejecutarse el EXE no me muestran mensajes de error, pero el Tooltip con el contenido de MESSAGE no se muestra.

Saludos

Fernando Espinoza A.

[Antonio Linares]

Si, algo falla, estamos revisándolo

[nanoespinoza]

Algún avance?

[Antonio Linares]

No de momento

[cnavarro]

Le he intentado de varias formas durante bastante tiempo, y, aunque no he "tirado la toalla aun", he visto que es bastante complicado conseguirlo.
Si consigo algun avance, lo publicaré en este hilo