problemas con TsBrowse

[horacio]

Estoy trabajando con tsbrowse y tengo el siguiente problema. Cuando trabajo con DBF's no tengo inconvenientes pero cuando uso arrays no funciona. Estoy utilizando FWH 2.7. Alguna Idea. Desde ya muchas gracias

[Patricio Avalos Aguirre]

Horacio

Yo utilizo TsBrowse y funciona muy bien

te adjunto un ejemplo como lo utilizo

Code: Select all  Expand view

...
aadd( aArray,{ space(15),Space(30) } )

DEFINE BRUSH oBrush    RESOURCE "wood"

REDEFINE BROWSE oLbx ID 103 OF oDlg CELLED ;
        COLORS CLR_BLACK, RGB( 255, 255, 235) ;
        ALIAS "ARRAY"               

oLbx:SetArray( aArray )
oLbx:nHeightCell += 5  //filas
oLbx:nHeightHead += 10  //columnas

oLbx:SetColor( { 9, 10 }, { CLR_BLACK, oBrush } )  // brushed Footers background
oLbx:SetColor( { 5, 6, 4, 15 }, ;
               { CLR_WHITE, CLR_BLACK, ; // cursor
                 oBrush,                ; // brushed headers background
                 CLR_BLACK },          ; // grid lines
                 NIL )

ADD COLUMN TO BROWSE oLbx DATA oLbx:nLogicPos() ;
      TITLE "Item" ;
      SIZE 42 PIXELS ;
      3DLOOK TRUE,TRUE,FALSE ;
      ALIGN DT_CENTER,DT_CENTER,DT_CENTER;
      COLORS CLR_BLACK, CLR_HGRAY

ADD COLUMN TO BROWSE oLbx DATA ARRAY ELEMENT 1;
      TITLE "Código" ;
      SIZE 100 PIXELS ;
      3DLOOK TRUE,TRUE,FALSE ;
      ALIGN DT_LEFT,DT_CENTER,DT_CENTER;
      COLORS CLR_BLACK, RGB( 255, 255, 235)

ADD COLUMN TO BROWSE oLbx DATA ARRAY ELEMENT 2;
      HEADER "Descripción" ;
      SIZE 204 PIXELS ;
      3DLOOK TRUE,TRUE,FALSE ;  // cels, header, footer
      ALIGN DT_LEFT,DT_CENTER,DT_CENTER ;   // cells, header, footer
      COLORS CLR_BLACK, RGB( 255, 255, 235)//COLORS CLR_BLACK, CLR_HGRAY



ACTIVATE DIALOG oDlg CENTERED

Saludos
Patricio

[Miguel Salas]

y hablando de esto , tengo un detalle con tsbrowse.

En el clasico mastro-detalle, cuando en el detalle ya existen registros (pertenecientes a la llave del maestro, claro) y le agrego mas, funciona ok, el problema viene cuando es el primer registro del detalle , si me lo agrega y lo muestra , peeerooo, al hacer click en el browse desaparece el encabezado mostrando en lugar de este, los datos de ese primer registro , aparentando ser 2 registros, y no me deja acceder a el.
Todo se soluciona saliendo y volviendo a entrar a ese browse, pero quiero darle solucion, con su ayuda oviamente.

de antemano muchas gracias

Pd. tengo las imagenes de lo que hace solo que no supe como ponerlas aqui

[horacio]

Patricio: Te agradezco la respuesta. Voy a probar a ver que resulta. Miguel a veces me ha pasado eso y lo solucione de esta forma
oBrw : Paint()
oBrw : Refresh()

Saludos

[horacio]

Patricio

Funcionó. Es raro porque en fw16 El comando ALIAS 'ARRAY' nunca lo usé y funcionaba. Gracias por todo