Возник такой вопрос, можно ли раскрасить узлы TreeView разными стилями и цветами, у меня почему то эта зараза берет только один стиль

if (Node = tvPPlan.Selected) and (tvPPlan.Selected.Level = 1) then begin
Brush.Color := clWindow;
Font.Style := [fsItalic];
Font.Color := clBlue;
TextOut( ARect.Left, ARect.Top, Node.Text);

tvPPlan.Canvas.Create;
Nd := tvPPlan.Selected.Parent;
ARect := Nd.DisplayRect(True);
ARect.Right := tvPPlan.ClientWidth-10;
FillRect(ARect);
Brush.Color := clWindow;
Font.Style := [fsBold];
Font.Color := clNavy;
TextOut( ARect.Left, ARect.Top, Nd.Text);
end;

в таком раскладе она все красит наклонным и clBlue, и логики я в этом не вижу никакой

решение (если его так можно назвать) здесь
http://www.delphikingdom.com/stones/stone_24.htm

хотя если у кого будет другое решение, с удовольствием прислушаюсь )))

не помогает отрефрешить канвас, он перерисовывает все на фиг.
А если без канваса то как????