Como Poner cToolTip / EDIT_GET_BUTTON

[jbrita]

Necesito saber si se puede poner un cToolTip en un EDIT_GET_BUTTON

Saludos

[rolando]

Hola,

Supongo que te refieres a la clase BTNGET de Ricardo Ramirez.

Si es así, yo la uso y pudiera ayudarte.

Por ej.

Code: Select all  Expand view

redefine btnget oUbicado var cUbicado ID 4024 OF oDlg

oUbicado:cToolTip:="Ingresar UBICACION DEL ARTEFACTO para buscar"

Saludos

Rolando

[wmormar]

Rolando,

El amigo josé no se ha explicado, se refiere a colocarle un tooltip al get del xbrowse.

y se hace asi:

Code: Select all  Expand view

oBrw:aCols[n]:oEditGet:cTooltip := "Mi tooltip"

// Nota: "n" es el numero de columna que le asignaremos el tooltip

Servido mi estimado josé y creo que debemos ser mas explicitos para preguntar porque enredamos a los posibles colegas que nos puedan ayudar.

Sin animo de polemizar.

[fespinoza]

William

Intento tu código con FWH907 y me sale el siguiente mensaje de error: Descripción de error: Error BASE/1005 Class: 'NIL' has no property: CTOOLTIP
¿Desde que versión funcionara este código?

Saludos

Fernando Espinoza

[wmormar]

William

Intento tu código con FWH907 y me sale el siguiente mensaje de error: Descripción de error: Error BASE/1005 Class: 'NIL' has no property: CTOOLTIP
¿Desde que versión funcionara este código?

Saludos

Fernando Espinoza

Si revisas el xbrowse.prg encontraras la data oEditget que es donde se guarda el GET al editar.
Haré pruebas para saber si el codigo funciona como se requiere.

[wmormar]

fespinoza, José,

Esta sería una posible modificación para aceptar tooltip en los GETS

En la clase TXBrwColumn

Code: Select all  Expand view

DATA cTooltipget INIT ""

En el metodo EDIT de la clase TXBrwColumn

Code: Select all  Expand view

METHOD Edit( nKey ) CLASS TXBrwColumn
   .............
   .............
   ::oBrw:lEditMode := .T.

   IF !EMPTY(::cToolTipGet)
      ::oEditGet:cToolTip := cToolTipGet
   ENDIF

   if ::oBtnElip != nil
      ::oBtnElip:Refresh()
   endif

   .............
   .............

Con eso aceptaria los tooltips en los GETS

esperemos les sirva

[wmormar]

SE me olvidó,

Adicionar el xbrowse.prg modificado como un prg mas de su proyecto.

[fespinoza]

William

Gracias por el detalle, voy a probar y confirmo como funciona.

Saludos

Fernando Espinoza

[fespinoza]

William

Una vez corregido el xBrowse y agregado a mi programa; sigue saliendo el mismo error.

Saludos

[wmormar]

fespinoza,

Tienes mucha razón, la cuestion es que se usaria de la siguiente manera:

Code: Select all  Expand view

oBrw:aCols[n]:cToolTipGet := "Mi tooltip"

// Nota: "n" es el numero de columna que le asignaremos el tooltip

[Daniel Garcia-Gil]

Saludos

intenta crear una data para la clase TXBrwColumn dentro de xbrowse.prg

Code: Select all  Expand view

DATA bOnPreEdit

y justo antes de salir del metodo Edit

Code: Select all  Expand view

METHOD Edit( nKey ) CLASS TXBrwColumn
....

   if ::bOnPreEdit != nil
      Eval( ::bOnPreEdit, Self )
   endif

return .t.
 

asi tendras no solo acceso al tooltip sino que hasta todas las datas de la clase xbrowse y cambiar los datos de forma dinamica, es decir, amplias la abertura del compas a un acceso ilimitado de la clase
en este caso Self es el objeto columna

esta seria una simple manera de usarse para tus propositos, el resto que puedas hacer es a tu criterio

Code: Select all  Expand view

  aeval( oBrw:aCols, {| o | o:nEditType := 1, ;
                             o:bOnPreEdit := {| oCol | oCol:oEditGet:cToolTip := cValToChar( oCol:Value() ) } } )
 

[wmormar]

Corrección....

En la clase TXBrwColumn

Code: Select all  Expand view

DATA cTooltipget INIT ""

En el metodo EDIT de la clase TXBrwColumn

Code: Select all  Expand view

METHOD Edit( nKey ) CLASS TXBrwColumn
   .............
   .............
   ::oBrw:lEditMode := .T.

   IF !EMPTY(::cToolTipGet)
     // cTooltip debe ser con los 2 dobles puntos
      ::oEditGet:cToolTip := ::cToolTipGet
   ENDIF

   if ::oBtnElip != nil
      ::oBtnElip:Refresh()
   endif

   .............
   .............

[Daniel Garcia-Gil]

Ahora bien

Para los tooltip por celdas y no por el get
prueba ver este post

http://forums.fivetechsupport.com/viewtopic.php?p=70273#p70273

el ejemplo lo encuentars aqui para descargarlo y el codigo fuente

http://forums.fivetechsupport.com/viewtopic.php?p=72563#p72563

[fespinoza]

William

El asunto mejora, pero todavía no llega le resultado deseado. ahora no s emuestra ningún mensaje de error; pero al momento de la ejecución del programa y pasar el raton sobre el boton no aparece el Tooltip.

Saludos

Fernando Espinoza

[Daniel Garcia-Gil]

Fernando...

El asunto mejora, pero todavía no llega le resultado deseado. ahora no s emuestra ningún mensaje de error; pero al momento de la ejecución del programa y pasar el raton sobre el boton no aparece el Tooltip.

esto no sucedera de esa forma, para poder desplegar el tooltip necesitas tener activo el GET y para qu eel get se active, necesitas entrar en modo edicion, prueba editar la celda y te mostrara el tooltip
El boton que se pinta en una celda no es un control real, es un control virtual el cual no procesa mensajes, por eso no podras desplegar un tooltip asi nada mas
presumiendo esa situacio n te recomende este post (fue unos aportes que hice para lo que quires) http://forums.fivetechsupport.com/viewtopic.php?p=105645#p105645