==> OnCustomDrawItem을 이용하세요.. OnAdvancedCustomDrawItem()도 있습니다.. {$DELPHI}DemosCustomDraw 밑에 데모도 있습니다. ^^;;

ms outlook ex.. 처럼 읽지 않은 메세지가 표현되는 것과 비슷하군여..

KDDG_BaSTaD이 좋은 답변을 해주셨네요.

CustomDrawItem 이벤트를 이용하고 더 간단하게
node 의 data를 활용하면 더 쉽게 할수도 있겠네여,

node.data <- pointer에
DB를 열어 treeview에 뿌려주면서
여기에 특정 정보를 넣어주어
이 정보를 가지고  CustomDrawItem 이벤트에서 적용하면 되겠네여..

  

procedure TForm1.treeview1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  with treeview1.canvas do
    begin
      if node.data = @value then begin
           font.color := clblue;
           brush.color := clwhite;
         end else begin
           font.color := clgreen;
           brush.color := clwhite;
          end;
    end;
end;