Изменение цвета и/или шрифта заданных узлов TreeView

procedure TForm1.TVAdvancedCustomDrawItem(Sender: TCustomTreeView;
   Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
   var PaintImages, DefaultDraw: Boolean);
var
   NodeRect : TRect;
begin
   NodeRect := Node.DisplayRect(True);
   with (Sender as TTreeView).Canvas do
   begin
      DefaultDraw := True;
 
      if cdsSelected in State then // Выбранный пользователем элемент?
      begin
         Brush.Color := clHighlight;
         FillRect(NodeRect);
         if Node.Level = 1 then // Отмечаем цветом элементы первого уровня
            Font.Color := clYellow
         else
            Font.Color := clWhite
      end
      else // Обычный, не выбранный
      begin
         if Node.Level = 1 then
            Font.Color := clRed
         else
            Font.Color := clBlack;
      end;
      TextOut(NodeRect.Left + 2, NodeRect.Top + 1, Node.Text);
   end;
end;
 
procedure TForm1.TVCustomDraw(Sender: TCustomTreeView;
   const ARect: TRect; var DefaultDraw: Boolean);
begin
   // Убираем артефакты с фона TreeView
   with (Sender as TTreeView).Canvas do
   begin
      Brush.Color:=clDefault;
      FillRect(ARect);
   end;
   DefaultDraw := True;
end;

with (Sender as TTreeView).Canvas do

with Sender.Canvas do

procedure TDataPointForm.ElementTreeViewAdvancedCustomDrawItem(
  Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState;
  Stage: TCustomDrawStage; var PaintImages, DefaultDraw: Boolean);
var
 NodeRect : TRect;
 MaxID: integer;
begin
  // определение максимального ID
  // вариант 1
  MaxID:=GetMaxID(TreeStringList).ID+1;
  // вариант 2
  // MaxID:=GetMaxID(TreeView1.Items.GetFirstNode)+1;
 
  NodeRect := Node.DisplayRect(True);
  with (Sender as TTreeView).Canvas do
    begin
      DefaultDraw := true;
      if Integer(Node.Data) = MaxID then
        Font.Color := clRed;
      TextOut(NodeRect.Left + 2, NodeRect.Top + 1, Node.Text);
    end;
end;