Tooltip para botón de un get ( solucionado )

[horacio]

Compañeros, quiero hacer eso y lo defino de la siguiente manera

Code: Select all  Expand view

oGet : oBtn : cTooltip := 'este es un mensaje'
 

y me da el siguiente error

Code: Select all  Expand view

   Error description: Error BASE/1005  No existe la variable de instancia: CTOOLTIP
   Args:
     [   1] = U  
     [   2] = C   este es un mensaje

 

Existe algún método para poner un tooltip en dicho botón ? Muchísimas gracias

Saludos

[ronaldo]

oGet:cTooltip := {"Sua mensagem","Titulo"}

[horacio]

Ronaldo, gracias por contestar pero no es lo que necesito. Me gustaría que el tooltip apareciese cuando paso el ratón sobre el botón y no sobre el get. Estuve mirando la clase y el botón está creado con la clase BtnBmp que si soporta tooltip, porque no cuando está asociado a un get ? Alguna idea ? Muchas gracias

Saludos

[cnavarro]

Horacio

Puedes probar este fichero para saber si es lo que necesitas?

https://www.dropbox.com/s/572qvxul85n21 ... p.exe?dl=0

Saludos

[horacio]

Cristobal, Eso es lo que necesito. Que debería modificar en la clase ?. Muchas gracias.

Saludos

[cnavarro]

Code: Select all  Expand view

METHOD MouseMove

.../...
//               ::CheckToolTip( nRow, nCol )                           // Sustituir por
// Add this
      if ::oBtn != nil
         if IsOverWnd( ::oBtn:hWnd, nRow, nCol )
            if !Empty( ::oBtn:cToolTip )
               ::oBtn:CheckToolTip( nRow, nCol )
            else
               ::CheckToolTip( nRow, nCol )                           // Modify
            endif
         else
            ::CheckToolTip( nRow, nCol )                           // Modify
         endif
      else
         ::CheckToolTip( nRow, nCol )                           // Modify
      endif

.../...
 

Como se aplica

Code: Select all  Expand view

.../...
   @ 10, 10 GET oGet VAR cVar ACTION ( MsgInfo( "Hola" ) )
   oGet:cTooltip := "TOOLTIP GET"   //o tambien // { "FiveTech Soft Get ", "MyToolTip", 3,CLR_WHITE,CLR_HBLUE }
   oGet:oBtn:cTooltip := "TOOLTIP BOTON"   // o tambien //{ "FiveTech Soft Boton ", "MyToolTip", 3,CLR_WHITE,CLR_HBLUE }
.../...
 

[horacio]

Cristobal, muchas gracias por tu tiempo pero obtengo el mismo error

Code: Select all  Expand view

   Error description: Error BASE/1005  No existe la variable de instancia: CTOOLTIP
   Args:
     [   1] = U  
     [   2] = C   este es un mensaje
 

Alguna pista ? Gracias nuevamente

Saludos

[cnavarro]

Puedes poner el codigo en el que creas el GET ?
Que version de Fwh estas usando?

[horacio]

Cristobal, uso FWH 14.12 - Harbour 3.2.0dev (r1412151448) - BCC 5.82.

Este es el codigo

Code: Select all  Expand view

Redefine Get oGet[ 3 ]  Var oSelf : nDocumento  Id 105 Of oFdr : aDialogs[ 1 ] Picture "99999999" Font oFont Action( MsgRun( 'Consultando afip, espere por favor ...',, { || aDatos := ConsultarDni( oSelf : nDocumento ) } ), oSelf : MuestraLosDatos( aDatos, oGet, oSelf, oCbx[ 1 ] ) ) Bitmap 'internet2'
oGet[ 3 ] : oBtn : cTooltip := 'este es un mensaje'

 

Muchas gracias

[cnavarro]

Que es 'internet2' ?, un recurso?

[horacio]

Si, es un bitmap desde recursos.

Saludos

[cnavarro]

Horacio
Si es un REDEFINE GET pon el oGet:oBtn:cTooltip := "Mi tooltip del boton" en el ON INIT del ACTIVATE DIALOG

[horacio]

Cristobal, funciono perfectamente. Gracias por tu tiempo.

Saludos

[cnavarro]

Horacio, por favor pon en el titulo del primer post del hilo "Solucionado" o algo parecido para que nos sea más facil despues tener referencias a la hora de buscar temas
Saludos

[Jairo Barbosa]

Cristobal buen dia
Gracias por la informacion fue importante para mi,
Hay forma de cambiar la fuente_? quisa el tamaño y el tipo

Gracias de antemano

Jairo