Página 1 de 1

Numeracion de Renglones en TArrayBrowser

Publicado: Jue Jun 12, 2014 9:51 pm
por jrcpoli-quitar_1
Saludos:
No sé si es lo que buscas pero he contestado por privado ya que en el
foro Pro no tengo acceso, por aquí­ te dejo otra respuesta por si es lo
que buscas.
1º Visualiza el formulario y pulsa en la columna mas a la izquierda
del TArrayBrowse.
2º En Propiedades del Inspector de objetos aumenta el valor de nWidth
hasta por lo menos 40 para que entren los números.
3º Abre Eventos crea un evento en OnGetData y luego pon
METHOD Nombre_Creado_en_el_Evento( oSender, cText, nImage, lSelected )
CLASS Nombre_de_la_Clase
*
cText := TRANSFORM(::ObjetoTArrayBrowse:KeyNo(), "999")
*
RETURN Nil
--
José R.Castro
---
Este mensaje no contiene virus ni malware porque la protección de avast! Antivirus está activa.
http://www.avast.com

Numeracion de Renglones en TArrayBrowser

Publicado: Vie Jun 13, 2014 1:44 am
por zeasoftware
En tu browse configuras la columna:
WITH OBJECT TBrwRecSel():New( ::oBrwPartidas )
:nWidth := 25
:nBmpMargin := 5
:lRecordPointer := .F.
:OnGetData := {|o,c,n| c := zFillZero( ::oBrwPartidas:nArrayAt,
2 ) }
:Create()
END
Yo así­ lo ocupo y me funciona, espero sea lo que buscas.
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
https://www.facebook.com/zeasoftware
Proveedor Autorizado:
REACHCORE
FACTURAXION
SERVISIM
"José Ramón Castro Polinio" escribió en el mensaje de
noticias:539a04bf$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Saludos:
No sé si es lo que buscas pero he contestado por privado ya que en el
foro Pro no tengo acceso, por aquí­ te dejo otra respuesta por si es lo
que buscas.
1º Visualiza el formulario y pulsa en la columna mas a la izquierda
del TArrayBrowse.
2º En Propiedades del Inspector de objetos aumenta el valor de nWidth
hasta por lo menos 40 para que entren los números.
3º Abre Eventos crea un evento en OnGetData y luego pon
METHOD Nombre_Creado_en_el_Evento( oSender, cText, nImage, lSelected )
CLASS Nombre_de_la_Clase
*
cText := TRANSFORM(::ObjetoTArrayBrowse:KeyNo(), "999")
*
RETURN Nil
--
José R.Castro
---
Este mensaje no contiene virus ni malware porque la protección de avast!
Antivirus está activa.
http://www.avast.com