Dudas sobre TXBrowse
Posted: Sun Nov 19, 2006 11:22 pm
Buenas noches foro!!
Tengo un par de preguntitas, a ver si se puede:
1) Tengo un array anexado a un TXBrowse con 3 campos, el primero autoincremental, un código y un nombre. ¿Cómo puedo en base al primer campo (autoincremental) poner una línea de un color y la otra de otra?
2) En este mismo array, lo he creado para ordenar por columnas y realizar búsquedas incrementales, pero cada vez que pulso sobre una tecla las cabeceras y el selector de registro me desaparecen.
//////////////EL CÖDIGO////////////////
DEFINE DIALOG oDlg RESOURCE "PRUEBAS.TXBROWSE"
redefine button obton1 id 301 of odlg action odlg:end()
oBrw := TXBrowse():New( oDlg )
oBrw:SetArray( acDatos,.t.)
oBrw:aCols[1]:cHeader := " * "
oBrw:aCols[2]:cHeader := "Cabecera 1" + space(5)
oBrw:aCols[3]:cHeader := "Cabecera 2" + space(5)
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:CreateFromResource( 501 )
ACTIVATE DIALOG oDlg center
MUCHAS GRANCIAS
Tengo un par de preguntitas, a ver si se puede:
1) Tengo un array anexado a un TXBrowse con 3 campos, el primero autoincremental, un código y un nombre. ¿Cómo puedo en base al primer campo (autoincremental) poner una línea de un color y la otra de otra?
2) En este mismo array, lo he creado para ordenar por columnas y realizar búsquedas incrementales, pero cada vez que pulso sobre una tecla las cabeceras y el selector de registro me desaparecen.
//////////////EL CÖDIGO////////////////
DEFINE DIALOG oDlg RESOURCE "PRUEBAS.TXBROWSE"
redefine button obton1 id 301 of odlg action odlg:end()
oBrw := TXBrowse():New( oDlg )
oBrw:SetArray( acDatos,.t.)
oBrw:aCols[1]:cHeader := " * "
oBrw:aCols[2]:cHeader := "Cabecera 1" + space(5)
oBrw:aCols[3]:cHeader := "Cabecera 2" + space(5)
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:CreateFromResource( 501 )
ACTIVATE DIALOG oDlg center
MUCHAS GRANCIAS