Page 1 of 1
CheckRes
Posted: Thu May 24, 2012 8:25 am
by fgondi
Al hacer pruebas con SetResDebug( .t. ) y CHECKRES() me he encontrado con esto:
Code: Select all | Expand
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.
Re: CheckRes
Posted: Thu May 24, 2012 8:41 am
by Antonio Linares
Fernando,
En la clase TTreeItem (source\classes\treeitem.prg) añade estas líneas al Método End():
Code: Select all | Expand
...
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)
Re: CheckRes
Posted: Thu May 24, 2012 8:54 am
by 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
Re: CheckRes
Posted: Thu May 24, 2012 11:16 am
by 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
Re: CheckRes
Posted: Thu May 24, 2012 3:10 pm
by Antonio Linares
Fernando,
Puedes mostrar una imagen de como se ve ó un PRG de ejemplo ? gracias
Re: CheckRes
Posted: Thu May 24, 2012 7:52 pm
by fgondi
Uso 2 formatos
El primero:
Uploaded with
ImageShack.usEl segundo:
Uploaded with
ImageShack.us
Re: CheckRes
Posted: Thu May 24, 2012 8:00 pm
by 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.
