FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Como Poner cToolTip / EDIT_GET_BUTTON
Posts: 537
Joined: Mon Jan 16, 2006 03:42 PM
Como Poner cToolTip / EDIT_GET_BUTTON
Posted: Mon Oct 04, 2010 02:08 PM

Necesito saber si se puede poner un cToolTip en un EDIT_GET_BUTTON

Saludos

Posts: 593
Joined: Sat May 12, 2007 11:47 AM
Re: Como Poner cToolTip / EDIT_GET_BUTTON
Posted: Mon Oct 04, 2010 11:40 PM
Hola,

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

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

Por ej.
Code (fw): Select all Collapse
redefine btnget oUbicado var cUbicado ID 4024 OF oDlg

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


Saludos

Rolando :-)
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Re: Como Poner cToolTip / EDIT_GET_BUTTON
Posted: Tue Oct 05, 2010 05:45 AM
Rolando,

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

y se hace asi:

Code (fw): Select all Collapse
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.
William, Morales

Saludos



m茅xico.sureste
Posts: 188
Joined: Wed Feb 01, 2006 06:59 PM
Re: Como Poner cToolTip / EDIT_GET_BUTTON
Posted: Fri Oct 08, 2010 04:25 AM
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
Saludos



Fernando Espinoza
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Re: Como Poner cToolTip / EDIT_GET_BUTTON
Posted: Fri Oct 08, 2010 04:57 AM
fespinoza wrote: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.
William, Morales

Saludos



m茅xico.sureste
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Re: Como Poner cToolTip / EDIT_GET_BUTTON
Posted: Fri Oct 08, 2010 05:48 AM
fespinoza, Jos茅,

Esta ser铆a una posible modificaci贸n para aceptar tooltip en los GETS

En la clase TXBrwColumn
Code (fw): Select all Collapse
DATA cTooltipget INIT ""


En el metodo EDIT de la clase TXBrwColumn
Code (FW): Select all Collapse
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
William, Morales

Saludos



m茅xico.sureste
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Re: Como Poner cToolTip / EDIT_GET_BUTTON
Posted: Fri Oct 08, 2010 02:18 PM

SE me olvid贸,

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

William, Morales

Saludos



m茅xico.sureste
Posts: 188
Joined: Wed Feb 01, 2006 06:59 PM
Re: Como Poner cToolTip / EDIT_GET_BUTTON
Posted: Fri Oct 08, 2010 03:44 PM

William

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

Saludos

Fernando Espinoza

Saludos



Fernando Espinoza
Posts: 188
Joined: Wed Feb 01, 2006 06:59 PM
Re: Como Poner cToolTip / EDIT_GET_BUTTON
Posted: Sat Oct 09, 2010 06:20 PM

William

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

Saludos

Saludos



Fernando Espinoza
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Re: Como Poner cToolTip / EDIT_GET_BUTTON
Posted: Sat Oct 09, 2010 11:28 PM
fespinoza,

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

Code (fw): Select all Collapse
oBrw:aCols[n]:cToolTipGet := "Mi tooltip"

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

Saludos



m茅xico.sureste
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Como Poner cToolTip / EDIT_GET_BUTTON
Posted: Sun Oct 10, 2010 12:46 AM
Saludos

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

Code (fw): Select all Collapse
DATA bOnPreEdit


y justo antes de salir del metodo Edit

Code (fw): Select all Collapse
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 (fw): Select all Collapse
 聽 aeval( oBrw:aCols, {| o | o:nEditType := 1, ;
聽 聽聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 o:bOnPreEdit := {| oCol | oCol:oEditGet:cToolTip := cValToChar( oCol:Value() ) } } )
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Re: Como Poner cToolTip / EDIT_GET_BUTTON
Posted: Sun Oct 10, 2010 12:47 AM
Correcci贸n....

En la clase TXBrwColumn
Code (fw): Select all Collapse
DATA cTooltipget INIT ""


En el metodo EDIT de la clase TXBrwColumn
Code (FW): Select all Collapse
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

聽 聽.............
聽 聽.............
William, Morales

Saludos



m茅xico.sureste
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Como Poner cToolTip / EDIT_GET_BUTTON
Posted: Sun Oct 10, 2010 06:00 PM
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
Posts: 188
Joined: Wed Feb 01, 2006 06:59 PM
Re: Como Poner cToolTip / EDIT_GET_BUTTON
Posted: Sun Oct 10, 2010 08:19 PM

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

Saludos



Fernando Espinoza
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Como Poner cToolTip / EDIT_GET_BUTTON
Posted: Sun Oct 10, 2010 08:39 PM
Fernando...

fespinoza wrote: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