Delphi Treeview С Колонками

Компонент TreeView в Delphi представляет собой список с иерархической структурой, где каждый элемент может иметь несколько потомков. Для отображения дополнительной информации вместе с текстом элементов, можно использовать колонки.

Для добавления колонок в TreeView необходимо включить опцию hoVisible в свойстве Header.Options. Затем можно добавлять новые колонки в поле Header.Columns и устанавливать для каждой из них ширину и заголовок.

TreeView1.Header.Options := TreeView1.Header.Options + [hoVisible];
TreeView1.Header.Columns.Add;
TreeView1.Header.Columns[0].Width := 100;
TreeView1.Header.Columns[0].Text := 'Column 1';
TreeView1.Header.Columns.Add;
TreeView1.Header.Columns[1].Width := 200;
TreeView1.Header.Columns[1].Text := 'Column 2';

Для отображения информации в колонках необходимо предусмотреть обработчик события OnCustomDrawItem компонента TreeView. В этом обработчике можно использовать метод Canvas.TextRect для рисования текста в нужной позиции в колонке.

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  r: TRect;
begin
  DefaultDraw := True;
  r := Node.DisplayRect(True);
  r.Left := TreeView1.Header.Columns[0].Width + 10;
  r.Right := TreeView1.Header.Columns[0].Width + 10 +
             TreeView1.Header.Columns[1].Width;
  Sender.Canvas.TextRect(r, r.Left, r.Top,Node.Text);
end;

Как видно из примера, текст элемента располагается второй колонке, с учетом ширины первой колонки и некоторого отступа.