FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
TreeView
Hola, necesito ayuda para lo siguiente, mi idea es llanar un treewiev con los datos correspondientes a una tabla, la cosa es que no se como hacerlo, jeje.... mi idea es que quedara alg así :
+General +General1 SubGeneral1 SubGeneral2 +General2 SubGeneral21 SubGeneral22 y así sucesivamente ...... o si hay otra forma no tan complicada de presentar informacion, aclarando que cuando uno hace click sobre alguno de los links del treewiev, al lado se muestra otra informacion que se corresponde con lo clickeado anteriormente, se entiende ? o la complique mucho ?? saludos y gracias .- |
#2
|
|||
|
|||
TreeView
Hola Lenocb: yo tuve que hacer un sistema que hacia algo parecido, mostraba los datos de una tabla en un treeview y, modificando la estructura del treeview, modificaba las relaciones padre-hijo en la tabla. Esta hecho para un sistema que gestiona auditorías y permite realizar análisis de arbol de causas.
Te paso a continuación el código para mostrar la tabla en el treeview con comentarios:
Cuando modifico la estructura de los nodos en el treeview, y quiero modificar la estructura padre-hijo de la tabla, ejecuto el siguiente código:
Basicamente lo que hace este ultimo código es borrar todo el arbol mostrado y volverlo a cargar como figura en el treeview. Como veras, lo mas importante es armar los datos de la tabla indicando de que nodo se van a desprender al mostrarlos en un treeview. Saludos, Enrique Gabriel Baquela. Http://enrique-gabirel-baquela.neurona.com Última edición por egbaquela fecha: 20-02-2008 a las 13:24:20. |
#3
|
|||
|
|||
no es que sea encajoso, pero no podrias poner el codigo fuente
de la base de datos y el programa.. si no tienes problema con ellos gracias |
#4
|
|||
|
|||
Hola, puedes indicarnos la delcaracion de PunteroInteger?
Por favor? |
#5
|
|||
|
|||
Varios
Hola eljuan: PunteroInteger es un puntero del tipo integer, nada mas:
type PunteroInteger = ^Integer; Lo tendría que haber puesto. Igual se puede obviar esta declaración ya que es un paso intermedio redundante. ******* JXJ: hace rato que no me conectaba, no tengo problema en poner el código, dame unos días para que lo prepare y lo arregle un poco. Si necesitas algo mas pedimelo, no tengo drama. Saludos, Enrique Gabriel Baquela. Http://enrique-gabriel-baquela.neurona.com |
#6
|
|||
|
|||
Gracias por la respuesta
|
#7
|
||||
|
||||
En realidad no hace falta adquirir memoria con la función "New", ya que la propiedad Data es de tipo puntero ocupando 2 bytes en memoria, lo mismo que ocupa un Integer.
Podría quedar así: Y cuando queramos acceder: En este caso no tenemos que liberar nada de memoria cuando se libere el nodo, porque no hemos reservado memoria. Lo realmente interesante es que podemos crear nuestro propio objeto y asociarlo a cada nodo, guardando mucha más información: Por supuesto, al eliminar un TTreeNode si necesitamos liberar nuestro objeto Cliente (evento OnFreeNode). Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#8
|
|||
|
|||
Mucho mejor así, la verdad es que no se me había ocurrido.
Saludos, Enrique Gabriel Baquela. Http://enrique-gabriel-baquela.neurona.com |
#9
|
|||
|
|||
claro, te espero.
egbaquela
me ayudaria bastante conocer como haces tu codigo. ahora estoy empezando con un programa. co una interfaz como la de la ventana principal del messenger. y tengo que entender el manejo de treeviews. para agregar nodos, arrastrar y soltar items de un grupo a otro. te espero a que lo tengas listo. Gracias por tu codigo... |
#10
|
|||
|
|||
Sabeis alguna forma de obtener los nodos hijos,nietos,... a partir
de un nodo padre (cualquiera del arbol, no tiene que ser el nivel superior) de un Treeview,debe ser de forma recursiva |
#11
|
|||
|
|||
Hijos y nietos
Bueno, cada nodo del treeview (TTreeNode) tiene una propiedad Parent del tipo TTreeNode:
Esta propiedad devuelve la referencia al nodo padre del nodo actual. Dado un nodo X, para ubicar a sus hijas habría que recorrer el treeview guardando en un array (de TTreeNode) la referencia de los nodos con la propiedad Parent igual a X. Luego habría que aplicar esta función al array generado para encontrar a los nietos de X. Me pongo a pensar un poco y cuando lo implemente lo posteo. Saludos, Enrique Gabriel Baquela. Http://enrique-gabriel-baquela.neurona.com Última edición por egbaquela fecha: 20-02-2008 a las 13:25:05. |
#12
|
|||
|
|||
Te agradeceria mucho que lo hicieras, pk esto bastante pillado
en este tema, me podrias indicar mas o menos algun codigo aunque no este probado para tenerlo de referencia?. Gracias |
#13
|
||||
|
||||
El título es hijos y nietos, sin embargo, al hablar de "Parent" estas hablando de padres y abuelos... la ascendencia en lugar de la descendencia.
Bueno, después del trabalenguas, lo que debes mirar es la propiedad "HasChild" para saber si tienes hijos. Obtener el primero de ellos (GetFirstchild) y mediante un bucle realizar la misma tarea mientras el siguiente hermano (GetnextSibling ) sea distinto de nulo. ¿cómo quieres obtener los hijos y nietos, todos mezclados? Porque un nodo puede tener dos hijos, y cada uno de ellos a su vez, pueden tener varios nietos del primero, obtener una lista "plana" quizás no sirva de nada. El código es lo de menos. Lo importante es lo que tenía el programador en la cabeza cuando escribió el código . PD: JXJ, tampoco hay que ser así, muchas veces se pone código y no pasa nada. El problema es "cuando te exigen que pongas el código" Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. Última edición por Lepe fecha: 20-02-2008 a las 15:03:24. |
#14
|
|||
|
|||
Lo siento, es que estoy bastante pillao
en este tema. El caso es que quiero obtener en una lista, me da igual el orden los nodos que dependan de uno padre (cualquier nivel del arbol), es para realizar una serie de acciones con cada uno antes de eliminar el padre y todos ellos... Un Saludo |
#15
|
|||
|
|||
Eljuan: te paso un procedimiento que que cambia el texto a toda la descendencia de un nodo determinado, supongo que es parecido a lo que quieres hacer:
Como bien dijo Lepe, HasChildren devuelve true si el nodo tiene descendencia. Item[n] te permite trabajar con el hijo número n del nodo actual (están indexados a partir de 0). Count cuenta cuantos hijos tiene el nodo actual. Para ejecutarlo, suponiendo que queres alterar el texto de la descendecia del nodo seleccionado:
Para adaptarlo a lo que necesitas, solo tendrías que cambiar la asignación de texto al nodo por la/s operación/es que necesitas realizar. Espero que te sirva. Saludos, Enrique Gabriel Baquela. Última edición por egbaquela fecha: 23-02-2008 a las 03:33:30. |
#16
|
|||
|
|||
Hola de nuevo, sabriais alguno decirme como resaltar (cambiando el color o el fondo por ejemplo), de ciertos nodos que son el resultado de una busqueda?
procedure TFHSFabaMain.BuscayResaltaNodo(n:string); var Nodo: TTreeNode; I: Integer; begin for I := 0 to tv.Items.Count - 1 do begin Nodo := tv.Items[i]; if Pos(n,Nodo.Text)>0 then begin Nodo.Selected := true; Nodo.MakeVisible; AQUI NECESITO COLOREAR O RESALTAR DE ALGUNA MANERA LOS NODOS COINCIDENTES break; end; end; end; |
#17
|
|||
|
|||
Resaltar o colorear nodos
Elijuan: la verdad es que no tenía ni idea, pero buscando en el google encontre esta web:
http://delphiallimite.blogspot.com/2...view-y-ii.html Fijate que explica como cambiar los atributos de las fuentes y como asociarle imágenes a cada ícono. Saludos, Enrique Gabriel Baquela. Http://enrique-gabriel-baquela.neurona.com |
#18
|
|||
|
|||
Dado el procedimiento
para cargar el arbol de la BD procedure TFrmAuditoriaArbolCausa.CargarTree(Sender: TObject; SQL: String); os consulto lo siguiente: he añadido un campo orden a cada registro de la base de datos para mostrar los nodos de una forma ordenada, y en la consulta del procedimiento, hago "order by orden". Pues da un fallo, invalid index ¿Alguna sugerencia? |
#19
|
|||
|
|||
Falla en el SQL
¿Podrías poner la sentencia SQL de la consulta que generás?
¿Con que base de datos trabajás?. Saludos, Enrique Gabriel Baquela. |
#20
|
|||
|
|||
Este es el procedimiento, el que tu indicaste pero
modificado para mi consulta: procedure TFHSFabaMain.CargarTree(Sender: TObject; SQL: String;raiz:integer); var I, X, N,C: Integer; Nod: TTreeNode; NodSuplementario: TTreeNode; MiPunteroInteger:^Integer; q:TDataSet; color:string; begin //Proceso que carga el arbol desde la BD //Obtenemos los parametros para los colores e.g('_col1',e.ValorParametro('FAB/NOD/NIV1/COLOR',False)); e.g('_col2',e.ValorParametro('FAB/NOD/NIV2/COLOR',False)); e.g('_col3',e.ValorParametro('FAB/NOD/NIV3/COLOR',False)); e.g('_col4',e.ValorParametro('FAB/NOD/NIV4/COLOR',False)); e.g('_col5',e.ValorParametro('FAB/NOD/NIV5/COLOR',False)); e.g('_col6',e.ValorParametro('FAB/NOD/NIV6/COLOR',False)); e.g('_col7',e.ValorParametro('FAB/NOD/NIV7/COLOR',False)); e.g('_col8',e.ValorParametro('FAB/NOD/NIV8/COLOR',False)); e.g('_col9',e.ValorParametro('FAB/NOD/NIV9/COLOR',False)); e.g('_col10',e.ValorParametro('FAB/NOD/NIV10/COLOR',False)); //Bloqueamos el onChange para que no se ejecute e.g('_bloqchange',1); tv.Items.Clear; // Cargo la consulta a mostrar en el TreeView q :=e.DataSetFromSQL(self,'select codigo,padre,nombre,nivel from fab_nodos where emp=:e_empresa and dep=:e_departamento order by orden'); q.Close; q.Open; if (q.eof) then exit; //Recorro la consulta registro por registro C:=0; q.First; while not q.eof do begin C:=C+1; q.Next; end; q.First; for X:=0 to (C-1) do begin I:=q.fieldByName('Padre').asinteger; // Si el campo padre vale 0 (no tiene padre) if I=raiz then begin //Agrego un nuevo nodo, que nazca directamente del raíz Nod:=tv.Items.Add (nil,q.FieldByName('nivel').asstring+'.'+q.FieldByName('codigo').asstring+' '+q.FieldByName('nombre').asstring); Nod.ImageIndex:=-1; New(MiPunteroInteger); MiPunteroInteger^:=q.Fieldbyname('Codigo').asinteger; nod.Data:=MiPunteroInteger; nod.Selected :=true; end else begin //Agrego un nuevo nodo hijo al padre que le corresponda //Recorro desde el último nodo al primero, hasta que la propiedad data (donde guardo //el código de cada nodo, sea igual al campo padre del nodo a agregar N:=tv.Items.Count -1; while PunteroInteger(tv.Items[N].Data)^ <>I do Dec(N); //Agrego el nodo hijo nodSuplementario:=tv.Items.AddChild(tv.Items[N],q.FieldByName('nivel').asstring+'.'+q.FieldByName('codigo').asstring+' '+q.FieldByName('nombre').asstring); nodSuplementario.ImageIndex:=-1; New(MiPunteroInteger); MiPunteroInteger^:= q.Fieldbyname('Codigo').asinteger; nodSuplementario.Data:=MiPunteroInteger; Nod.selected:=True; Nod.Expanded:=False; end; q.Next; end; if (e.ValorParametro('FAB/TV','')=1) then tv.FullExpand; if (e.ValorParametro('FAB/TV','')=2) then tv.FullCollapse; e.g('_bloqchange',0); if (tv.Items.Count>0) then tvChange(tv,tv.Selected); end; Cuando se crea un nuevo nodo en el arbol el campo orden se inicializa a 100; como tengo implementada una opcion de copiar y pegar en el arbol lo que pretendes que cuando copio y pego , el nodo copiado se inserte inmediatamente antes que el destino en el que lo estoy pegando (orden 99), pues hasta ahi lo hace bien, incluso si copio y pego alguno mas, el problema viene al ejecutar el procedure para cargar el arbol, da un error de index, supongo que porque al no estar ordenado de padres a hijoss... ¿se os ocurre algo? Me seria de gran ayuda. La base de datos es Firebird 2.0 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Copiar un treeview a otro treeview | mierda | OOP | 0 | 26-07-2006 12:29:17 |
treeview | kiringui | OOP | 4 | 18-07-2006 11:52:38 |
Ver Mi Pc en un TreeView | gilberto_1126 | API de Windows | 2 | 22-06-2004 01:07:36 |
Como utilizar el Treeview, desplegar la info del arbol binario al treeview | leo21 | Varios | 2 | 08-04-2004 22:47:30 |
Como utilizar el Treeview, desplegar la info del arbol binario al treeview | leo21 | OOP | 1 | 08-04-2004 22:42:44 |
|