topic-29217

Posts: 458

Joined: Tue Mar 14, 2006 07:26 PM

BUG msgitem (Antonio)
Posted: Mon Sep 08, 2014 10:13 PM

Hola,

En un mensaje anterior del que nadie comentó nada, dije que cuando asignaba un tooltip a un msgitem, ni salía el cursor dedo del ratón al ponerse
encima ni mostraba el tooltip.

Me he dado cuenta que es un bug en la clase msgitem. No funciona el tooltip, si no está definido una ACTION.

DEFINE MSGITEM oMsgTTS OF oMsgprin PROMPT "TTS" ;
SIZE 40;
COLOR If(ltts,CLR_WHITE,CLR_GRAY),If(ltts,CLR_GREEN,CLR_HGRAY);
ACTION .T. ;
TOOLTIP If(ltts,"TTS activo","TTS desactivado")

Esto SÍ funciona, sin el ACTION no funciona.

Deduzco que el ACTION no está definido por defecto cuando existe un tooltip y no una acción.

Un Saludo,

Joaquín Martínez

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: BUG msgitem (Antonio)
Posted: Tue Sep 09, 2014 06:50 AM

Joaquín,

Gracias! Por favor cambia asi el método MouseMove() de la Clase TMsgBar:

Code (fw): Select all Collapse

METHOD MouseMove( nRow, nCol, nFlags ) CLASS TMsgBar

   local n, oItem

   for n = 1 to Len( ::aItems )
      oItem = ::aItems[ n ]
      if oItem:IsOver( nRow, nCol ) 
         if oItem:bAction != nil
            CursorHand()
         endif   
         if ::nItem != n
            ::nItem := n
            ::DestroyToolTip()
         endif
         ::CheckToolTip()
         return nil
      endif
   next
   ::DestroyToolTip()
   ::nItem := 0

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion