[poli-smen]

Сообщение от VarvarNet

Если это будет не слишком нагло с моей стороны, то могу я попросить пример данного варианта? Был бы очень признателен!

В этом примере числовые значения рисуются на салатном фоне:

Код:

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  int: Integer;
begin
  if TryStrToInt(Node.Text, int) then
  begin
    Sender.Canvas.Brush.Color := clLime;
    Sender.Canvas.Font.Color := clBlack;
  end;
end;