CheckRes

[fgondi]

Al hacer pruebas con SetResDebug( .t. ) y CHECKRES() me he encontrado con esto:

Code: Select all  Expand view

24/05/12 10:23:01: BMP,-2012934294,TLINKLIST:ADD(35)->_TREEITEM(53)->PS_GETTREE(911)
24/05/12 10:23:01: BMP,1963267896,TLINKLIST:ADD(35)->_TREEITEM(53)->PS_GETTREE(911) 
24/05/12 10:23:01: BMP,2097484339,TLINKLIST:ADD(35)->_TREEITEM(53)->PS_GETTREE(911)
24/05/12 10:23:01: BMP,-150661350,TLINKLIST:ADD(35)->_TREEITEM(53)->PS_GETTREE(911)
24/05/12 10:23:01: BMP,-1073409818,TLINKLIST:ADD(35)->_TREEITEM(53)->PS_GETTREE(911)
24/05/12 10:23:01: BMP,-217770255,TLINKLIST:ADD(35)->_TREEITEM(53)->PS_GETTREE(911)
24/05/12 10:23:01: BMP,1912936557,TLINKLIST:ADD(35)->_TREEITEM(53)->PS_GETTREE(911)

En la función ps_GetTree la línea que tengo es: _TreeItem( cNombre )
Osea no cargo ninguna imagen

Pero lo que mas se sorprenden es que en TLinkList:Add(35) tampoco se hace referencia a ninguna imagen.

[Antonio Linares]

Fernando,

En la clase TTreeItem (source\classes\treeitem.prg) añade estas líneas al Método End():

Code: Select all  Expand view

   ...
   
   for n = 1 to Len( aLines )
      DeleteObject( aLines[ n ] )
   next
   aLines = nil  

return nil
 

De todas formas, comentarte que esos Trees son antiguos, ya que posteriormente se implementaron los Trees propios de Windows (Clase TTreeView). Tienes ejemplos en FWH\samples (busca por TREEVIEW dentro de los .PRGs)

[fgondi]

Antonio,

Muchas gracias por la respuesta.

Incluyendo las lineas que mencionas, siguen quedando los BMP's


En cuanto a los Tree's antiguos.
El tree lo genero para mostrarlo en un xBrowse.
No para mostrarlo directamente

[fgondi]

Antonio,

Ya esta solicionado.

Como ya te indiqué, el tree lo creo para su visualización en un xbrowse.
Pero al cerrar el browse no finalizaba el tree.

De todas formas, en relación al 2º punto que me indicabas:
El tree que uso es el correcto?,
porque treeview entiendo que es para visualizar y yo uso xbrowse (por sus posiblidades) para visualizar el tree

[Antonio Linares]

Fernando,

Puedes mostrar una imagen de como se ve ó un PRG de ejemplo ? gracias

[fgondi]

Uso 2 formatos

El primero:

Uploaded with ImageShack.us

El segundo:

Uploaded with ImageShack.us

[fgondi]

Los datos los toma de un recordset.
Recorro todo el recordset creando el tree.

Esto es util para tree's (recordset) que no tengan muchos datos.
Si los tienen tarda mucho en montar el tree ya que tiene que recorrer entero el recordset.

Lo mas util sería que no fuera necesario recorrer todo el recordset.
El tree se carga con los datos del primer nivel y cuando se llame al expand que este ejecute un codeblock cargando los registros que correspondan a ese item del siguiente nivel.

Lo mas complicado es que esa estructura pueda visualizarlo xbrowse.