eu usei esse codigo
procedure TPlanoContas.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
NodeRect: TRect;
begin
NodeRect := Node.DisplayRect(True);
if node.Level = 0 then
begin
Sender.canvas.Font.Style := [fsBold];
Sender.canvas.Font.Color := clBlue;
end
else
if node.Level = 1 then
begin
Sender.canvas.Font.Style := [fsBold];
Sender.canvas.Font.Color := clRed;
end
else
begin
Sender.canvas.Font.Style := [];
Sender.canvas.Font.Color := clBlack;
end;
Sender.canvas.FillRect(NodeRect);
end;
funcionou legal vc pode adaptar para sua necessidade.
Em 1 de setembro de 2010 09:28, Gilberto Bazilio
<gmbazi...@hotmail.com>escreveu:
>
>
> Bom Dia Senhores e Senhoras do Grupo,
>
> Me deparei com um problema no treeview, alguem já conseguiu colorir os nós
> do treeview em tempo de execução? Consegui utilizando o OnCustomDrawItem,
> mas ele não me soluciona o problema, queria colorir atraves de um button.
>
> Atenciosamente,
>
> Gilberto Bazilio
>
> Stärke
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Luciano S. Bruno
Consultor em TI
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
