problemas com imagen no treeview
Antes de mais nada já procurei no forum, li tópico por tópico mas não ajudou.
Tenho um componente treeview (Name=T) e um imagelist, tudo como manda o figurino e o seguinte código no evento CustomDrawItem:
============================================
if Node.Level = 1 then begin
CFun.Locate(´NOME´,Node.text,[]);
QHab.Close;
QHab.Params[0].asInteger := CFunFuncao.asInteger;
QHab.Open;
//Localizando a habilidade selecionada
QHab.Locate(´NOME´,Node.text,[]);
//Verificando se a Habilidade esta nas habilidades do funcao/profissional
QBuh.Close; //sql de busca
QBuh.Params[0].asInteger := QHabCodigo.asInteger;
QBuh.Open;
if QBuf.Eof then
Node.ImageIndex := 6
else
Node.ImageIndex := 7;
end else begin
Node.ImageIndex := 0;
end;
============
O objetivo é colocar as imagens respectivas para o nó pai sempre vai ser a imageindex = 0, porém no nó filho e que troca de 6 para 7, o problema é que somente quando clico no treeview é que funciona, mas eu preciso que ao carregar o treeview ele já funcione.
Como fazer ?
Obrigado
César[/list]
Tenho um componente treeview (Name=T) e um imagelist, tudo como manda o figurino e o seguinte código no evento CustomDrawItem:
============================================
if Node.Level = 1 then begin
CFun.Locate(´NOME´,Node.text,[]);
QHab.Close;
QHab.Params[0].asInteger := CFunFuncao.asInteger;
QHab.Open;
//Localizando a habilidade selecionada
QHab.Locate(´NOME´,Node.text,[]);
//Verificando se a Habilidade esta nas habilidades do funcao/profissional
QBuh.Close; //sql de busca
QBuh.Params[0].asInteger := QHabCodigo.asInteger;
QBuh.Open;
if QBuf.Eof then
Node.ImageIndex := 6
else
Node.ImageIndex := 7;
end else begin
Node.ImageIndex := 0;
end;
============
O objetivo é colocar as imagens respectivas para o nó pai sempre vai ser a imageindex = 0, porém no nó filho e que troca de 6 para 7, o problema é que somente quando clico no treeview é que funciona, mas eu preciso que ao carregar o treeview ele já funcione.
Como fazer ?
Obrigado
César[/list]
Cesarpir
Curtidas 0