colorir treeview

Delphi

05/03/2008

Caros colegas, entamos ai novamente para que voces possam me dar uma luz no fim do tunel, rs.., bom vamos lá, tenho um treeview e gostaria de colorir os itens nele inseridos de cores diferentes de acordo com seu nivel, Ex.: Nivel 0 Vermelho, Nivel 1 Verde, Nivel 2 Azul e assim sucessivamente, se alguem puder me ajudar agradeco desde ja.

Luciano


Luciano Andrade

Luciano Andrade

Curtidas 0

Respostas

Onjahyr

Onjahyr

05/03/2008

Se for o que eu entendi vamos ver...

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Node.Text = ´Vermelho´ then
    Sender.Canvas.Font.Color:=clred;
  if Node.Text = ´Verde´ then
    Sender.Canvas.Font.Color:=clGreen;
 if Node.Text = ´Amarelo´ then
    Sender.Canvas.Font.Color:=clYellow;
end;



GOSTEI 0
Onjahyr

Onjahyr

05/03/2008

.

[b:9c27ba243b]Também pode ser assim, por nível como disse:[/b:9c27ba243b]

procedure TFTreeView.TreeViewCustomDrawItem( Sender: TCustomTreeView;  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean );
begin
  if Node.Level = 1 then
    begin
      Sender.Canvas.Font.Color := clBlue;
      Sender.Canvas.Font.Style := [fsBold];
    end
  else
    begin
      Sender.Canvas.Font.Color := clBlack;
      Sender.Canvas.Font.Style := [];
    end;

  if cdsFocused in State then
    Sender.Canvas.Font.Color := clWhite;
end;


Agora é só adaptar para o que vc deseja usando o [b:9c27ba243b]IF[/b:9c27ba243b]...



[i:9c27ba243b]Se for isso por gentileza diga se funcionou!!![/i:9c27ba243b]



Blz.


GOSTEI 0
POSTAR