TreeView Pierde el Icono asociado

[Enan0]

Estoy utlizando el componente TreeView para hacer una especie de Carpetas de Correo.

Nivel 0 (nombre de la Cuenta)
Nivel 1 (sub carpetas, Inbox, Sent.. etc).


ahora bien. cuando pongo un Icono en el Nivel 0, (y distintos o ninguno en nivel 1), al hacer Click en cualquier de los hijos (niveles 1) Cambia automaticamente el Icono del Item seleccionado del Padre (nivel 0).

Trabajo con delphi 5

Código Delphi [-]
var
  node:TTreeNode;
  child:TTreeNode;
begin
    Node:=TreeView1.Items.AddObjectFirst(nil,'cuenta1',PChar('Cuenta1'));
// esta linea fue agregada para probar su funcionamiento.. (igual resultado)
    TreeView1.Items.Item[node.AbsoluteIndex].ImageIndex:=0;
//fin test
    node.ImageIndex:=0;
    TreeView1.Items.AddChildFirst(node,'@Inbox').ImageIndex:=1;
    TreeView1.Items.AddChild(node,'@SentItems').ImageIndex:=1;

    node:=nil;


     Node:=TreeView1.Items.AddObject(nil,'Cuenta2',PChar('cuenta2'));
    TreeView1.Items.Item[node.AbsoluteIndex].ImageIndex:=0;
    node.ImageIndex:=0;
    TreeView1.Items.AddChildFirst(node,'@Inbox').ImageIndex:=1;
    TreeView1.Items.AddChild(node,'@SentItems').ImageIndex:=1;

    node:=nil;

[*Caro*]

Hola Enan0, creo que te falta asignar el mismo indice de tu imagen a la propiedad SelectedIndex de tu nodo.

Código Delphi [-]
  TreeView1.Items.Item[node.AbsoluteIndex].ImageIndex:=0;
  TreeView1.Items.Item[node.AbsoluteIndex].SelectedIndex:=0;

Saluditos

[Enan0]

Gracias Caroooo.. lo voy a probar y te cuento!1

[Enan0]

Si si Caro, Eso era todo el problema. Muchas gracias..