Uso de Tree para XBrowse

[jfafive]

Hola a todos,

Estoy haciendo un tree para XBrowse. He visto que en el XBrowse que viene en la función TreeBrowse() de SAMPLES\testxbr3.prg, su sintaxis es

Code: Select all  Expand view

@ x,y XBROWSE oBRw OF oWnd


Quiero hacer lo mismo, pero con un XBrowse en un dialogo, es decir,

Code: Select all  Expand view

REDEFINE XBROWSE oBrw ID ID_BRW OF oDlg


Pero al cargar la aplicación, me da un error.
¿es que acaso, el Tree para un XBrowse, no se puede aplicar a un XBrowse en dialogo?



[/code]

[Manuel Aranda]

Creo que REDEFINE XBROWSE sólo funciona en las últimas versiones de FWH.
Si tienes una versión anterior la sintaxis es distinta:

oLbx := TXBrowse():New(oDlg)
oLbx:nMarqueeStyle := MARQSTYLE_HIGHLROW
oLbx:nColDividerStyle := LINESTYLE_BLACK
oLbx:lColDividerComplete := .t.
oLbx:nHeaderLines := 1
oLbx:nFooterLines := 1
oLbx:nDataLines := 1
oLbx:CreateFromResource(200)

[jfafive]

Hola Manuel,

Mi FWH es de hace tres meses, por lo que no creo que se deba a su antiguedad.

Aún así, he probado con tu codigo y me sigue dando fallo. No se a que se puede deber,.

El mensaje de error dice:

Code: Select all  Expand view

Error BASE/1004  No exported method: EVAL


Para que no falle, debo pasarle el codigo como sigue:

Code: Select all  Expand view

REDEFINE XBROWSE oBrw ARRAY aDatos ID ID_BRW OF oDlg


Pero en este caso, para aplicar el Tree, ese ARRAY aDatos, solo me molesta.

[jfafive]

Hola de nuevo Manuel,

Bueno, parece que ye encontré el motivo del fallo.
Al código que me distes, falta agregar la linea:

Code: Select all  Expand view

oBrw:SetArray( aDatos, .T. )


Y hasta este punto, funciona.
Saludos.

[jfafive]

Hola a todos,

Quiero hacer un TXBrowse con Tree basandome en SAMPLES\TestXbr3.prg

La diferencia es que en este ejemplo, traabja con un RecordSet a base de datos y yo quiero trabajar solo con Array.
¿alguien sabe o ha hecho un TXBrowse con Tree pero que funcione solo con array?

He intentado adaptar dicho ejemplo para que funcione con array pero no hay manera, siempre me da error.

Una ayudita porfa?

[Antonio Linares]

Javier,

Vamos a proporcionarte un ejemplo

[jfafive]

Ok, gracias Antonio.

Quedo a la espera.

[Antonio Linares]

Javier,

Revisa este ejemplo:

Code: Select all  Expand view

#include "fivewin.ch"
#include "xbrowse.ch"


function main()

   local oWnd, oBrw
   local aData := { ;
      { "NY", "       ", 300, 3000 }, ;
      { "NY", "ONE    ", 100, 1000 }, ;
      { "NY", "TWO    ", 200, 2000 }, ;
      { "TX", "       ",1100,11000 }, ;
      { "TX", "THREE  ", 300, 3000 }, ;
      { "TX", "FOUR   ", 350, 3500 }, ;
      { "TX", "FIVE   ", 450, 4500 }  }
// Should start with data grouped and softed like above
 

   DEFINE WINDOW oWnd

   @ 0,0 XBROWSE oBrw OF oWnd ;
      ARRAY aData AUTOCOLS

   oBrw:CreateFromCode()
   oBrw:SetTree( nil, { "OPEN", "CLOSE", "GREEN" } ) // build tree structure from the array automatically

   oWnd:oClient := oBrw

   ACTIVATE WINDOW oWnd


return nil


GREEN BITMAP "..\bitmaps\level1.bmp"
OPEN BITMAP "..\bitmaps\16x16\folder3.bmp"
CLOSE BITMAP "..\bitmaps\16x16\folder.bmp"

[jfafive]

Ok,

En cuanto lo pruebe, te digo que tal.

Un saludo,
Javier.

[jfafive]

Antonio,

El ejemplo funciona bien.
Ahora solo me falta adaptarlo a mi codigo.

Gracias,
Javier.