Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 25-09-2006
Avatar de Manuel
Manuel Manuel is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz/Chile
Posts: 324
Poder: 22
Manuel Va por buen camino
TreeView cambio de imagenes

Hola amigos del foro, tengo un TreeView, el cual tiene un nodo padre y un nodo hijo, tengo asignado en un objeto imageslist dos iconos, 0=imagen libro cerrado, 1=imagen libro abierto. Como lo podría hacer para cambiar la imagen del nodo padre cuando este se expande y a la vez cuando se contrae. Yo he hecho algo así.

nodoPadre.ImageIndex := 0;
nodoPadre.SelectedIndex :=1;

pero esto solo me funciona cuando seleciono el nodo padre, me imago que habrá algún método para esto he buscado en el foro pero no he encontrado nada.
__________________
Manuel Muñoz L. Trabajando con delphi 7.0 , migrando sistema a Delphi XE8, matando BDE y pasando FIREDAC.
Responder Con Cita
  #2  
Antiguo 25-09-2006
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Poder: 24
maeyanes Va por buen camino
Podrías usar los eventos OnCollapsing y OnExpanding para lograr lo que te propones:

Código Delphi [-]
procedure TForm1.TreeView1OnCollapsing(Sender: TObject; Node: TTreeNode; AllowCollapse: Boolean);
begin
  Node.ImageIndex := 0;
  Node.SelectedIndex := 0
end;

procedure TForm1.TreeView1OnExpanding(Sender: TObject; Node: TTreeNode; AllowExpand: Boolean);
begin
  Node.ImageIndex := 1;
  Node.SelectedIndex := 1
end;


Saludos...
Responder Con Cita
  #3  
Antiguo 25-09-2006
Avatar de Manuel
Manuel Manuel is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz/Chile
Posts: 324
Poder: 22
Manuel Va por buen camino
Cita:
Empezado por maeyanes
Podrías usar los eventos OnCollapsing y OnExpanding para lograr lo que te propones:

Código Delphi [-]
procedure TForm1.TreeView1OnCollapsing(Sender: TObject; Node: TTreeNode; AllowCollapse: Boolean);
begin
  Node.ImageIndex := 0;
  Node.SelectedIndex := 0
end;

procedure TForm1.TreeView1OnExpanding(Sender: TObject; Node: TTreeNode; AllowExpand: Boolean);
begin
  Node.ImageIndex := 1;
  Node.SelectedIndex := 1
end;


Saludos...
Gracias marco me ha funcionado, algo habia hecho con expandig, pero no sabía como hacerlo cuando contraía, nunca se me habría ocurrido hacerlo en em método OnCollapsing, bueno el que sabe, sabe. Grcias de nuevo.
__________________
Manuel Muñoz L. Trabajando con delphi 7.0 , migrando sistema a Delphi XE8, matando BDE y pasando FIREDAC.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Copiar un treeview a otro treeview mierda OOP 0 26-07-2006 13:29:17
Imagenes en el TreeView Gustavo Gowdak OOP 2 13-12-2004 03:25:10
Cambio de IB6 a FB1.5 afxe Firebird e Interbase 0 13-07-2004 18:01:03
Como utilizar el Treeview, desplegar la info del arbol binario al treeview leo21 Varios 2 08-04-2004 23:47:30
Como utilizar el Treeview, desplegar la info del arbol binario al treeview leo21 OOP 1 08-04-2004 23:42:44


La franja horaria es GMT +2. Ahora son las 02:10:32.


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
Copyright 1996-2007 Club Delphi