[VarvarNet]

Доброго всем времени суток.
У меня происходит программное заполнение содержимого TreeView в цикле, и в нём же мне нужно раскрашивать тем или иным цветом вновь добавленную строку. Подскажите пожалуйста, это вообще реально и если реально, то как?

Заранее благодарю.

Использую XE2

[poli-smen]

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

У меня происходит программное заполнение содержимого TreeView в цикле, и в нём же мне нужно раскрашивать тем или иным цветом вновь добавленную строку. Подскажите пожалуйста, это вообще реально и если реально, то как?

Да, реально. Отрисовку элементов делай в событиях OnCustomDrawItem или OnAdvancedCustomDrawItem.

[VarvarNet]

Сообщение от poli-smen

Да, реально. Отрисовку элементов делай в событиях OnCustomDrawItem или OnAdvancedCustomDrawItem.

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

[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;

[VarvarNet]

Премного благодарен!
Дальше уже идею разовью!

[poli-smen]

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

Премного благодарен!
Дальше уже идею разовью!

Для более сложной отрисовки лучше использовать OnAdvancedCustomDrawItem вместо OnCustomDrawItem. Примерно так:

Код:

procedure TForm1.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
  var PaintImages, DefaultDraw: Boolean);
var
  int: Integer;
  aRect: TRect;
begin
  DefaultDraw := True;

  if (Stage = cdPostPaint) and TryStrToInt(Node.Text, int) then
  begin
    DefaultDraw := False;
    aRect := Node.DisplayRect(True);
    Sender.Canvas.Font.Color := clBlack;
    Sender.Canvas.Brush.Color := clLime;
    Sender.Canvas.FillRect(aRect);
    Sender.Canvas.TextRect(aRect, aRect.Left + 1, aRect.Top + 1, Node.Text);
    if cdsSelected in State then Sender.Canvas.DrawFocusRect(aRect);
  end;
end;