Tooltip en XIMAGE no funciona

[Xevi]

Bien, pues otra que pillo por ahí dando vueltas con mis pruebas... todavía con pruebas!!!

La clase TXIMAGE no muestra un tooltip.

Code: Select all

#include "fivewin.ch"

FUNCTION Main()
   Local oDlg, oImage

   DEFINE DIALOG oDlg FROM 0,0 TO 300,500 PIXEL TITLE "XIMAGE"
   oDlg:lTruePixel := .T.

   @ 50, 50 XIMAGE oImage SIZE 51, 51 FILENAME "c:\fwh\bitmaps\32x32\app.bmp" OF oDlg
   oImage:lTransparent := .T.
   oImage:cTooltip := "Mensaje Tooltip"

   ACTIVATE DIALOG oDlg

Return Nil
 

[FranciscoA]

Xevi, intenta asi: (a mi, con FWH 1204 me funciona)

Code: Select all

   REDEFINE IMAGE oImage ID 600 OF oDlg  //foto del empleado
   oImage:cTooltip := {"Hola"}
 

Saludos.

[Antonio Linares]

Xevi,

En la Clase TXImage en el Método MouseMove() hay que modificar la línea final asi:

return ::Super:MouseMove( nRow, nCol, nFlags )

Con este cambio tu ejemplo funciona correctamente y muestra el tooltip.

Añadimos este cambio para la próxima versión de FWH 18.01

gracias