Xailer & OZ Software

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

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.

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.