Cómo asignar imagenes a un TTreeView
Hola
Tengo un Ttreeview cuyos nodos voy rellenando de una base de datos, con categorias y al final en nombre del informe . La idea es seleccionar un informe para imprimir. El arbol puede contener varias directorios , tal y así : raiz -Carpeta1-CarpetaA - Informe100 -Informe101 -Carpeta2 - informe102 etc... Así pues en el ejemplo que he puesto , en Carpeta1 y Carpeta2 y CarpetaA (que esta contenida en Carpeta1) , iría una imagen del Timagelist , por ejemplo la 0 , y donde pone informeXXX iria pues otra imagen , por ejemplo la 1. Quiero que al crearse el arbol , pues salga cada nodo del TTreeView con su imagen correspondiente. Un saludo |
Me imagino que estás preguntando como asignar estas imagenes en tiempo de ejecución mientras llenas el TreeView?
Si es así, solo tienes que asignar la propiedad ImageIndex y SelectedIndex del TTreeNode:
Saludos... |
De esa manera , hay un problema .
Mi código es más o menos así :
Bien , si hago esto , el primer valor , el raiz , NO toma la imagen , y luego los demás si los lleva bien , PERO , cuando selecciono un nodo de los que contiene la propiedad ImageIndex = 1 , se me cambia la imagen al que tiene el ImageIndex := 0. Este es el problema. Que si me los rellena , pero al seleccionar pues los de dibujo informe ,cambia el icono. |
Tu problema está en que estás usando Nodo[index]...
Has solo:
Esto es, si usas la forma Nodo[0] en realidad estás haciendo Nodo.Item[0].ImageIndex := 0; lo que establece el valor de la propiedad del primer nodo hijo de Nodo... Graficamente sería así: Código:
- Nodo Saludos... |
Esto es increible , el mismo código que he puesto arriba lo he probado en otro ordenador y sale bien .
Ahora si que no entiendo nada . De todas maneras , por si mañana no me sale , hay algo que no puedo hacer y es no poner el nodo sin un array , es decir tengo que poner nodo[X] , por que es la única manera de de rellenar los datos de la base de datos. |
La franja horaria es GMT +2. Ahora son las 19:59:42. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi