tTreeView - Formatar Fonte

Delphi

18/08/2009

Quero deixar a cor da fonte do texto dos nós pai de um TtreeView diferente dos filhos. Então, no envento CustomDrawItem, fiz o seguinte:

if Node.HasChildren then
Sender.Canvas.Font.Color := clMaroon
else
Sender.Canvas.Font.Color := clBlue;

Funciona com um probleminha, se o nó for filho e pai ao mesmo tempo, ele também terá a fonte de cor clmaroon. Quero que apenas o primeiro nó de cada série tenha a cor modificada.

É possível isso? Como?

Obrigado.


Armindo

Armindo

Curtidas 0

Respostas

Lehapan

Lehapan

18/08/2009

Quando não possui Parent, significa que está no primeiro nodo da raiz.
  if  Node.Parent = nil then
      Sender.Canvas.Font.Color := clMaroon
  else
      Sender.Canvas.Font.Color := clBlue
  ;


Espero ter ajudado.


GOSTEI 0
Armindo

Armindo

18/08/2009

Quando não possui Parent, significa que está no primeiro nodo da raiz. 
  if  Node.Parent = nil then
      Sender.Canvas.Font.Color := clMaroon
  else
      Sender.Canvas.Font.Color := clBlue
  ;
Espero ter ajudado.



Muitíssimo obrigado.


GOSTEI 0
POSTAR