In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Browse

Foro público de Xailer en español
Responder
zeasoftware
Mensajes: 1831
Registrado: Mar Oct 11, 2005 9:53 am

Browse

Mensaje por zeasoftware »

Quiero implementar en un ArrayBrowse, en el cual quiero que aparezca una
imagen X y que al darle clic a esa imagen se abra un cuadro de captura, como
puedo hacerlo?
requiero que en una lí­nea tener uno a 3 de este tipo de columnas, pro
ejemplo para indicar de un campo memo.
Saludos.
Ramón Zea
Móvil.: 993-231.62.29
Tel./Fax: 993-353-46-73
www.zeasoftware.com.mx
soporte@zeasoftware.com.mx
zeasoftware@hotmail.com
Proveedor Autorizado:
REACHCORE
FACTURAXION
SERVISIM
xevi[1]
Mensajes: 39
Registrado: Lun Jun 14, 2010 3:52 pm

Browse

Mensaje por xevi[1] »

Utiliza el evento OnGetData para mostrar la imagen...
METHOD ArrayBrowse1Column2GetData( oSender, Value, nImage ) CLASS
TFrmConsolidacioEmpreses
nImage := If( Value = "S", 1, 0 )
RETURN Nil
Utiliza el evento OnDataClick para efectuar las operaciones que creas
oportunas...
En mi caso lo que hago es mostrar u ocultar la imagen cambiando el valor de
la celda
METHOD ArrayBrowse1Column2DataClick( oSender, nFlags, nPosX, nPosY ) CLASS
TFrmConsolidacioEmpreses
If ::oArrayBrowse1:nArrayAt > 1
::oArrayBrowse1:aArrayData[::oArrayBrowse1:nArrayAt,2] := IF(
::oArrayBrowse1:aArrayData[::oArrayBrowse1:nArrayAt,2] # "S", "S", "" )
::oArrayBrowse1:Refresh()
EndIf
RETURN Nil
Espero te sirva.
Un Saludo,
Xevi.
zeasoftware
Mensajes: 1831
Registrado: Mar Oct 11, 2005 9:53 am

Browse

Mensaje por zeasoftware »

Gracias, haré pruebas.
Saludos.
Ramón Zea
Móvil.: 993-231.62.29
Tel./Fax: 993-353-46-73
www.zeasoftware.com.mx
soporte@zeasoftware.com.mx
zeasoftware@hotmail.com
Proveedor Autorizado:
REACHCORE
FACTURAXION
SERVISIM
"Xevi" escribió en el mensaje de noticias:52ea99ff$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Utiliza el evento OnGetData para mostrar la imagen...
METHOD ArrayBrowse1Column2GetData( oSender, Value, nImage ) CLASS
TFrmConsolidacioEmpreses
nImage := If( Value = "S", 1, 0 )
RETURN Nil
Utiliza el evento OnDataClick para efectuar las operaciones que creas
oportunas...
En mi caso lo que hago es mostrar u ocultar la imagen cambiando el valor de
la celda
METHOD ArrayBrowse1Column2DataClick( oSender, nFlags, nPosX, nPosY ) CLASS
TFrmConsolidacioEmpreses
If ::oArrayBrowse1:nArrayAt > 1
::oArrayBrowse1:aArrayData[::oArrayBrowse1:nArrayAt,2] := IF(
::oArrayBrowse1:aArrayData[::oArrayBrowse1:nArrayAt,2] # "S", "S", "" )
::oArrayBrowse1:Refresh()
EndIf
RETURN Nil
Espero te sirva.
Un Saludo,
Xevi.
Responder