GV
Galina Viktorova
как-то так
procedure TfmMain.tvCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
NodeRect: TRect;
begin
if cdsSelected in State then Exit;
with TTreeView(Sender), TTreeView(Sender).Canvas do
begin
if PData(Node.Data).Realized then
Font.Color := clGreen else Font.Color := clRed;
Brush.Color := clWindow;
NodeRect:=Node.DisplayRect(True);
FillRect(NodeRect);
TextOut(NodeRect.Left, NodeRect.Top, Node.Text);
end;
end;
посмотрите демки