topic-11428

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Uso de Tree para XBrowse
Posted: Wed Jun 04, 2008 11:36 AM

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 Collapse

@ x,y XBROWSE oBRw OF oWnd

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

Code: Select all Collapse

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]

Javier,

FWH 8.04 2008

Manuel Aranda

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

Uso de Tree para XBrowse
Posted: Wed Jun 04, 2008 11:57 AM

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)

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Uso de Tree para XBrowse
Posted: Wed Jun 04, 2008 12:22 PM

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 Collapse

Error BASE/1004  No exported method: EVAL

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

Code: Select all Collapse

REDEFINE XBROWSE oBrw ARRAY aDatos ID ID_BRW OF oDlg

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

Javier,

FWH 8.04 2008

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Uso de Tree para XBrowse
Posted: Wed Jun 04, 2008 08:03 PM

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 Collapse

oBrw:SetArray( aDatos, .T. )

Y hasta este punto, funciona.
Saludos.

Javier,

FWH 8.04 2008

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

TXBrowse y Tree me traen loco. S.O.S. por favor!
Posted: Thu Jun 05, 2008 04:33 PM

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? :cry:

Javier,

FWH 8.04 2008

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Uso de Tree para XBrowse
Posted: Thu Jun 05, 2008 05:34 PM

Javier,

Vamos a proporcionarte un ejemplo

regards, saludos

Antonio Linares
www.fivetechsoft.com

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Uso de Tree para XBrowse
Posted: Thu Jun 05, 2008 10:13 PM

Ok, gracias Antonio.

Quedo a la espera.

Javier,

FWH 8.04 2008

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Uso de Tree para XBrowse
Posted: Tue Jun 10, 2008 06:36 PM

Javier,

Revisa este ejemplo:

Code: Select all Collapse

#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"

regards, saludos

Antonio Linares
www.fivetechsoft.com

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Uso de Tree para XBrowse
Posted: Tue Jun 10, 2008 09:10 PM

Ok,

En cuanto lo pruebe, te digo que tal.

Un saludo,
Javier.

Javier,

FWH 8.04 2008

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Uso de Tree para XBrowse
Posted: Tue Jun 10, 2008 09:17 PM

Antonio,

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

Gracias,
Javier.

:wink:

Javier,

FWH 8.04 2008

FiveTech Support Forums

Continue the discussion