Imagem no TreeView

|-|Acupuntura
-----|-|Dr. Machado de Assis
------------|-|Clínica Teste
-----|-|Dr. Santos Drumont
------------|-|Clínica Teste
|-|Cardiologia
-----|-|Dra. Eva Vargas
------------|-|Clínica Teste



Tenho um TreeView, como acima ... que puxa os dados de um TQuery e
utiliza uma Unit q peguei na net chamada TreeFunc (bem conhecida do
pessoal) ... vc passa os campos da tabela (no meu caso são 3 .. ou
seja, 3 niveis também – Especialidade, Médico e Clínica.

No evento do TreeView – OnGetImageIndex estou colocando o seguinte
código para atribuir as devidas imagens – vindas de ImageList já
ligado na propriedade Images do TreeView.... Para os níveis Médico e
Clínica está dando certo ... mas para o nível 0 – da especialidade
(Acupuntura e Cardiologia)– só a Acupuntura está recebendo a imagem
certa .. talvez por eu não conhecer nenhuma outra propriedade pra
pegar o primeiro nível todo, não estou conseguindo definir a imagem
q quero – No caso, como identifico a Cardiologia ?

Segue o código do evento OnGetImageIndex:



procedure TFrm420F.TvEspeGetImageIndex(Sender: TObject; Node:
TTreeNode);

begin

if Node.IsFirstNode then

Node.ImageIndex := 2 // é aqui q devo fazer esse nível
receber o index desejado

Else // do meu imageList

if Node.HasChildren then

begin

Node.ImageIndex := 3;

end

else

Node.ImageIndex := 1;



End;



Tem como eu continuar a utilizar esse evento dessa forma utilizando
de algum outra função/propriedade do Node pra conseguir o que quero ?



abraço

Diogo
diogoalles@terra.com.br

[i:9eb9d2083b]Título editado. Leia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689&sid=add834b4ed94967502cf2381c38e751a][u:9eb9d2083b]Regras de Conduta[/u:9eb9d2083b][/url]. (marcelo.c – Moderador)[/i:9eb9d2083b]