Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.10;
Descargar: [xml.tar.bz2];

abajo

Pregunta sobre TreeView y ImageList Encontrar ramas similares


$Hic0   (2001-12-21 13:17) [0]

En general, tengo un TreeView que agrego elementos dinámicamente usando lo siguiente cuando. En el mismo código, asigno a estos elementos las imágenes que están almacenadas en ImageList. Todo esta bien. Todo se agrega como necesito. PERO cuando inicio el programa selecciono un hilo con un elemento, independientemente de su nodo, la imagen al lado se reemplaza con el 0 en la lista de ImageList. Cuando elijo otro elemento, nuevamente el seleccionado se reemplaza por cero y el que me queda se convierte en lo que debería ser :)
¿Cuál es el problema? :)
Procedimiento TMain_Box.UpdateTree;
var
CurentNode: TTreeNode;
CurentNode1, CurentNode2: TTreeNode;
i: byte;
Comenzar
TreeView1.Items.Clear;
CurentNode: = TreeView1.Items.Add (nil, AccountAr [1] .Login);
CurentNode.ImageIndex: = 0;
CurentNode1: = TreeView1.Items.AddChild (CurentNode, Inbox);
CurentNode1.ImageIndex: = 1;
CurentNode2: = TreeView1.Items.AddChild (CurentNode, Enviado)
CurentNode2.ImageIndex: = 2;
Si AcsCount> 2, entonces comience
Para i: = 2 a AcsCount-1 do
Comenzar
CurentNode: = TreeView1.Items.Add (CurentNode, AccountAr [i] .Login);
CurentNode.ImageIndex: = 0;
CurentNode1: = TreeView1.Items.AddChild (CurentNode, Inbox);
CurentNode1.ImageIndex: = 1;
CurentNode2: = TreeView1.Items.AddChild (CurentNode, Enviado)
CurentNode2.ImageIndex: = 2;
End;
End;
End;



Gennady   (2001-12-21 14:30) [1]

CurentNode1.SelectedIndex: = CurentNode1.ImageIndex



$Hic0   (2001-12-21 14:45) [2]

¿Y para qué tendrán que ser descritos globalmente? :)



McSimm   (2001-12-21 15:25) [3]

¿Por qué a nivel mundial?
Cuando asigne ImageIndex, agregue la línea que se le propone
CurentNode1: = TreeView1.Items.AddChild (CurentNode, Inbox);
CurentNode1.ImageIndex: = 1;
CurentNode1.SelectedIndex: = CurentNode1.ImageIndex



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.10;
Descargar: [xml.tar.bz2];

arriba





Memoria: 0.55 MB
Tiempo: 0.012 c
1-28490
TimJiGer
2001-12-22 20:00
2002.01.10
¿Cómo presionar el botón para mover el carro a RichEdite en la siguiente línea?


1-28450
agarrar
2001-12-21 18:21
2002.01.10
Texto de TEdit en un formulario a las celdas de la tabla en otro formulario


6-28526
Perro Diamante
2001-10-14 17:21
2002.01.10
Deshabilitar la computadora a través de la red.


3-28410
don
2001-12-07 16:01
2002.01.10
Texto de salida en un encabezado StringGrid verticalmente


14-28530
señor Alex
2001-11-12 19:37
2002.01.10
DMFC y Fuentes y Cliente CVS





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish French
gallego georgiano Alemán Griego criollo haitiano Hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese Rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español