beGET_LISTBOX

[carlos]

Muy buenas tardes a todos.
Permitanme explicarme.
Quisiera que cuando despliege el dialogo de este ListBox en una columna del
Brow, me vaya mostrando segun pase con el mouse,, en el cToolTip la
descripción de el Codigo.
No encuentro un evento ni Methodo dentro del objeto columna que me permita
que cuando pase por encima de alguna opción de las que estan desplegadas,
pues k me haga algo,, por ejemplo,, un OnMouseOver
He tratado de hacerlo con el onDataClick y ni siquiera me hace nada,,
obviamente algo no esta bien,,, pudieran ayudarme???
aqui un ejemplito de lo que quiero hacer!!
METHOD ArrayBrowse1Column5Create( oSender ) CLASS TControlar
LOCAL i := 0
Local aPro
WITH OBJECT ::oDSProvee
if !:lOpen
:lOpen := .T.
Endif
aPro := Array(:RecCount())
:GoTop()
Do While !:Eof()
i++
aPro := :IDPROV //+"
"+ALLTRIM(:Descrip)
:Skip()
EndDo
WITH OBJECT oSender
:aEditListText := aPro
:aEditListBound := aPro
AEval( :aEditListText, {|| :OnDataClick := {|oSender,i|
::oDSProvee:Goto(i), :cFooter := :cToolTip := ::oDSProvee:Descrip,
msginfo(::oDSProvee:Descrip)}})
END
END OBJECT
RETURN NIL
Saludos

[ignacio]

Carlos,
A ver si te he entendido bien:
¿Cuando se tiene desplegado el listbox de edición de una columna. Segun vas
recorriendo con el ratón los distintos elementos del listbox
(TBrwColumn:aEditListText) quieres que se muestre un Tooltip con la
descripción de cada uno de esos valores?
Si es eso lo que quieres, me temo que no es posible, lo siento. Te
recomiendo que utilices el estilo beBUTTON y hagas un diálogo con todo lo
que quieras mostrar.
Un saludo,
"Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el mensaje
news:4345a4a4$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Muy buenas tardes a todos.
>
> Permitanme explicarme.
>
> Quisiera que cuando despliege el dialogo de este ListBox en una columna
> del Brow, me vaya mostrando segun pase con el mouse,, en el cToolTip la
> descripción de el Codigo.
>
> No encuentro un evento ni Methodo dentro del objeto columna que me permita
> que cuando pase por encima de alguna opción de las que estan desplegadas,
> pues k me haga algo,, por ejemplo,, un OnMouseOver
>
> He tratado de hacerlo con el onDataClick y ni siquiera me hace nada,,
> obviamente algo no esta bien,,, pudieran ayudarme???
>
> aqui un ejemplito de lo que quiero hacer!!
>
> METHOD ArrayBrowse1Column5Create( oSender ) CLASS TControlar
> LOCAL i := 0
> Local aPro
> WITH OBJECT ::oDSProvee
> if !:lOpen
> :lOpen := .T.
> Endif
> aPro := Array(:RecCount())
> :GoTop()
> Do While !:Eof()
> i++
> aPro := :IDPROV //+"
> "+ALLTRIM(:Descrip)
> :Skip()
> EndDo
> WITH OBJECT oSender
> :aEditListText := aPro
> :aEditListBound := aPro
> AEval( :aEditListText, {|| :OnDataClick := {|oSender,i|
> ::oDSProvee:Goto(i), :cFooter := :cToolTip := ::oDSProvee:Descrip,
> msginfo(::oDSProvee:Descrip)}})
> END
> END OBJECT
> RETURN NIL
>
> Saludos
>