Fórum problema com integracao de img(imagelist) com uma treeview #255048

boa tarde doutores(ras)

possuo uma treeview agregando um plano de contas, o problema consiste em q no quarto nivel (conta de operacao), a fig q era p/ ser de credito esta como de debito, segue parte da rotina:

begin
TVPlano.Items.Clear ;
NodeD := TVPlano.Items.Add(nil, ´DESPESAS´);
NodeD.ImageIndex:=0;
NodeR := TVPlano.Items.Add(nil, ´RECEITAS´);
NodeR.ImageIndex:=1;
DMDados.IBPrincipal.First ;
//grupo
while not DMDados.IBPrincipal.Eof do
begin
if DMDados.DSPrincipal.DataSet[´operacao_planoconta´]=´DÉBITO´ then
begin
NodeFilhoD := TVPlano.Items.AddChild(NodeD, Trim(DMDados.DSPrincipal.DataSet[´desc_planoconta´])); // recebe o campo da tabela pai
NodeFilhoD.ImageIndex:=0;
end
else
begin
NodeFilhoR := TVPlano.Items.AddChild(NodeR, Trim(DMDados.DSPrincipal.DataSet[´desc_planoconta´])); // recebe o campo da tabela pai
NodeFilhoR.ImageIndex:=1;
end;
aux:=DMDados.DSPrincipal.DataSet[´id_planoconta´];
Campos:=´id_planoconta,desc_planoconta,operacao_planoconta´;
Tabela:=´PLANOCONTA´;
Complemento:=´where gruposuperior_planoconta=´´´+aux+´´´ order by desc_planoconta´;
SelecionaTemp(Campos,Tabela,Complemento);
DMDados.IBSecundario.First ;
//subgrupo
while not DMDados.IBSecundario.Eof do
begin
if DMDados.DSSecundario.DataSet[´operacao_planoconta´]=´DÉBITO´ then
begin
NodeFilhoFilhoD := TVPlano.Items.AddChild(NodeFilhoD, Trim(DMDados.DSSecundario.DataSet[´desc_planoconta´]));
NodeFilhoFilhoD.ImageIndex:=0;
end
else
begin
NodeFilhoFilhoR := TVPlano.Items.AddChild(NodeFilhoR, Trim(DMDados.DSSecundario.DataSet[´desc_planoconta´]));
NodeFilhoFilhoR.ImageIndex:=1;
end;
aux2:=DMDados.DSSecundario.DataSet[´id_planoconta´];
Campos:=´desc_planoconta,operacao_planoconta´;
Tabela:=´PLANOCONTA´;
Complemento:=´where gruposuperior_planoconta=´´´+aux2+´´´ order by desc_planoconta´;
SelecionaTemp2(Campos,Tabela,Complemento);
DMDados.IBTerceario.First ;
[b:b9d1cb77f2] //conta de operacao
while not DMDados.IBTerceario.Eof do
begin
if DMDados.DSTerceario.DataSet[´operacao_planoconta´]=´DÉBITO´ then
TVPlano.Items.AddChild(NodeFilhoFilhoD, Trim(DMDados.DSTerceario.DataSet[´desc_planoconta´]))
else
TVPlano.Items.AddChild(NodeFilhoFilhoR, Trim(DMDados.DSTerceario.DataSet[´desc_planoconta´]));
DMDados.IBTerceario.Next;
end;
DMDados.IBSecundario.Next ;
end ;[/b:b9d1cb77f2] DMDados.IBPrincipal.Next ;
end;
TVPlano.FullCollapse;
end;

Att, Maiki Perin.