ToolTips en CELDA con XBROWSE...

ToolTips en CELDA con XBROWSE...

Postby joseluisysturiz » Tue Nov 29, 2011 6:51 pm

Lo primero es agradecer a los muchos colaboradores del foro, lo he hecho aunque muy poco, en este momento llego con un caso creo a tipico o poco comun, si alguien ya lo logro y tiene en bien compartirlo seria maravilloso, bueno, el tema es el siguiente, tengo 1 xbrowse con array, si se fijan a partir de la col.1 hasta la col.n hay unos colores los cuales cambian basado en 1 valor leido de una tabla, eso gracias a un link viejo que habia respondido Daniel, ahora necesito que de igual manera cuando ubique el cursor en cada CELDA(no columna, ni fila), se abra un TOOLTIPS que debe evaluar el valor de la celda, en este caso 1 fecha y asi mostrar los 3 primeros digitos del mes de la fecha, esa es la parte facil, lo que no consigo es como hacer el TOOLTIP por celda, habia leido un link viejo pero de verdad no me dio resultado, imagino por los muchos cambios que ya tiene el XBROWSE, abajo agrego una imagen para dar una mejor idea de lo que quiero, cualquier sugerencia y apoyo sera agradecida, de antemamos, gracias y saludos... :shock:

links original:

colores x celda
viewtopic.php?f=6&t=19153&start=0&hilit=color+de+celda

tooltips x celda
viewtopic.php?f=6&t=14934&start=0&hilit=doble+click+en+xbrowse

Image

Uploaded with ImageShack.us
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: ToolTips en CELDA con XBROWSE...

Postby jbrita » Wed Nov 30, 2011 12:24 pm

Amigo Probaste asi

oCol:bToolTip := {|oLbx, nRow, nCol, nKeyFlas| if ( oLbx:MouseRowPos( nRow ) == oLbx:nRowSel,if ( SQLField(oExi_Suc,"ma_arti")="DEMO12", "Married", "Single" ),) }


Saludos
jbrita
 
Posts: 486
Joined: Mon Jan 16, 2006 3:42 pm

Re: ToolTips en CELDA con XBROWSE...

Postby joseluisysturiz » Thu Dec 01, 2011 5:24 am

JBRITA, gracias por tu respuesta, probe como me dijistes y casi, casi lo logro, solo que me esta validando solo la linea, no la CELDA, en cualquier parte de la linea siempre sale el mismo resultado aunque el contenido de la celda sea otro, es como sino evaluara el valor de la celda, aca dejo como lo tengo a ver si es un error mio en la forma que use tu sugerencia, saludos... :shock:

lo probe asi ya que deb validar muchas celdas por columnas que se crean on line

oBrw:aCols[ nFor ]:bToolTip := {|oBrw,nRow,nCol,nKeyFlas| IF(oBrw:MouseRowPos(nRow)==oBrw:nRowSel ,;
IF(cQryPCUO:num_leyenda > 0, str(cQryPCUO:num_leyenda),"Single"), ) }
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: ToolTips en CELDA con XBROWSE...

Postby joseluisysturiz » Sat Dec 10, 2011 6:50 am

Alguien tendra alguna idea de lo que necesito.? de verdad me hace falta, el cliente me tiene @!·$!%!! con el tema, gracias.
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: ToolTips en CELDA con XBROWSE...

Postby FranciscoA » Wed Dec 14, 2011 10:28 pm

Hola José Luis, ¿ya probaste asi?


oBrw:aCols[ nFor ]:bToolTip := {|oBrw,nRow,nCol,nKeyFlas| IF(oBrw:MouseRowPos(nRow)==oBrw:nRowSel .and. oBrw:MouseColPos(nCol)==oBrw:nColSel ,;
IF(cQryPCUO:num_leyenda > 0, str(cQryPCUO:num_leyenda),"Single"), ) }
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2112
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: ToolTips en CELDA con XBROWSE...

Postby joseluisysturiz » Thu Dec 15, 2011 1:03 am

Creo ya lo probe en una de esas tantas tiraderas de flecha, igual vuelvo a intentar y comento por si se da la solucion...gracias...saludos... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: ToolTips en CELDA con XBROWSE...

Postby MarioG » Thu Dec 15, 2011 12:42 pm

José:
Probé como indica Francisco y no funcionó, luego probé como vos lo escribiste inicialmente y funcionó correctamente.
Code: Select all  Expand view
:aCols[col_Origen]:bToolTip := {|oBrw,nRow,nCol,nKeyFlas| if( oBrw:MouseRowPos(nRow)==oBrw:nRowSel, ;
                                                                    "Dato de fila 1"+CRLF+"Dato de fila 2"+CRLF+"Dato de fila 3"+CRLF+"Dato de fila 4", ) }

Y muestra solo en la columna col_Origen (browse de 6 columnas)
No te puedo mostrar porque no me captura la imagen con el tooltip :oops:
Uso FWH 1009
Resistencia - "Ciudad de las Esculturas"
Chaco - Argentina
User avatar
MarioG
 
Posts: 1380
Joined: Fri Oct 14, 2005 1:28 pm
Location: Resistencia - Chaco - AR

Re: ToolTips en CELDA con XBROWSE...

Postby FranciscoA » Thu Dec 15, 2011 7:56 pm

José Luis:

El siguiente ejemplo muestra el contenido de cada celda de una misma linea (linea seleccionada) FWH 10.06
Observaciones:
Trabaja únicamente sobre las columnas visibles del xBrowse.
Si das click o te mueves de fila, pero el cursor del mouse lo mueves sobre la misma columna, el tooltip no se presenta, tienes que mover el cursor momentáneamente a otra columna de la linea seleccionada, y luego posicionarte en la celda deseada.

FOR N:=1 TO LEN(oLbx:aCols)
oLbx:aCols[n]:bToolTip := {|oLbx,nRow,nCol,nKeyFlas| ;
IF(oLbx:MouseRowPos(nRow)==oLbx:nRowSel,;
if(!empty(oLbx:aCols[oLbx:MouseColPos(nCol)]:bStrData),;
oLbx:aCols[oLbx:MouseColPos(nCol)]:bStrData,nil),) }
NEXT

Espero sirva de guía para tu implementación.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2112
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: ToolTips en CELDA con XBROWSE...

Postby MarioG » Thu Dec 15, 2011 8:30 pm

disculpas... no lei con atención el primer mensaje; no se refieren al ejemplo que mencione
Resistencia - "Ciudad de las Esculturas"
Chaco - Argentina
User avatar
MarioG
 
Posts: 1380
Joined: Fri Oct 14, 2005 1:28 pm
Location: Resistencia - Chaco - AR


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 24 guests