VirtualTreeView. Как изменить ширину дочернего столбца?

Question

Мой друг работает в Delphi с VirtualTreeView и имеет следующую проблему: У него есть два столбца с данными и дочерними элементами для каждой строки в первом столбце. Возможно ли изменение ширины первого столбца для установки максимальной ширины столбца для детей?

So. Круги - узлы, прямоугольники - текст. (черные прямоугольники корневых узлов - два столбца). Как это выглядит сейчас - посмотрите на черный черный ответ. Как это должно быть - выглядите красным прямоугольником.

Благодаря

Answer 1

Это называется столбец порождающий и да, это можно сделать довольно легко - просто установите параметр TreeOptions -> AutoOptions -> toAutoSpanColumns в True. Способ, которым он работает, заключается в том, что если соседний столбец пуст, заголовок текущего будет расширен. Как вы только хотите работать для детей колонок вы должны реализовать OnGetCellIsEmpty событие и возвращать IsEmpty := True только для дочерних узлов, то есть что-то вроде

procedure TForm1.VT_GetCellIsEmpty(Sender: TBaseVirtualTree; 
      Node: PVirtualNode; Column: TColumnIndex; var IsEmpty: Boolean); 
begin 
    IsEmpty := (Sender.GetNodeLevel(Node) > 0); 
end;