Acción al pulsar imagen en Browse

[VictorCasajuana]

Hola.

Estoy intentando ejecutar una acción cuando se pulsa una imagen de una celda del xBrowse pero no me reacciona, supongo que me dejo algo.

En base al ejemplo xbrimag2.prg de Fivewin, he incluido el data bBmpAction:

Code: Select all  Expand view

WITH OBJECT :aCols[ 1 ]
         :cDataType     := 'F'
         :nWidth        := 80
         :nDataBmpAlign := AL_CENTER
         :aImgRect      := "circle"
         :bBmpAction    := {||MsgInfo('hola')}
END

Que me estoy dejando?

Salud!

[cnavarro]

Victor, prueba con la data bLDClickData del objeto columna

[acuellar]

Victor

Intenta con:

Code: Select all  Expand view

oBrw:bLClicked:= {|r,c,f,oBrw| If(oBrw:MouseColPos(c)=1,MsgInfo('hola')), ) }
 

[VictorCasajuana]

Victor

Intenta con:

Code: Select all  Expand view

oBrw:bLClicked:= {|r,c,f,oBrw| If(oBrw:MouseColPos(c)=1,MsgInfo('hola')), ) }
 

Esto no me funciona ya que es a nivel del browse y lo que necesito es que reacciones a la pulsación de la imagen en una columna

Victor, prueba con la data bLDClickData del objeto columna

Me ha funcionado, lo único que ha de ser con doble click

Code: Select all  Expand view

:bLDClickData  := { || Msginfo("Hola")}

He visto en la clase que existe la DATA bRClickData pero no bLClickData, supongo que será una limitación del sistema ya que el click simple izquierdo del ratón es el que lleva el foco al objeto.
Con el doble click izquierdo ya me apaño.

Gracias a los dos!!!