Acción al pulsar imagen en Browse

Post Reply
User avatar
VictorCasajuana
Posts: 269
Joined: Wed Mar 28, 2018 4:38 pm
Location: Vinaròs
Has thanked: 1 time
Contact:

Acción al pulsar imagen en Browse

Post by 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


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


Image

Que me estoy dejando?

Salud!
--------
¿ Y porque no ?
¿ And why not ?
User avatar
cnavarro
Posts: 6557
Joined: Wed Feb 15, 2012 8:25 pm
Location: España
Been thanked: 3 times

Re: Acción al pulsar imagen en Browse

Post by cnavarro »

Victor, prueba con la data bLDClickData del objeto columna
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
acuellar
Posts: 1645
Joined: Tue Oct 28, 2008 6:26 pm
Location: Santa Cruz-Bolivia

Re: Acción al pulsar imagen en Browse

Post by acuellar »

Victor

Intenta con:

Code: Select all | Expand


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

Adhemar C.
User avatar
VictorCasajuana
Posts: 269
Joined: Wed Mar 28, 2018 4:38 pm
Location: Vinaròs
Has thanked: 1 time
Contact:

Re: Acción al pulsar imagen en Browse

Post by VictorCasajuana »

acuellar wrote:Victor

Intenta con:

Code: Select all | Expand


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

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

: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!!!
--------
¿ Y porque no ?
¿ And why not ?
Post Reply