Das schwierige dabei ist nur, den richtigen Event zu finden.
Allerdings - in OnGetText kannst du höchstens lauter Minus-Zeichen in die Zellen schreiben. Eine grafische Linie kannst du besser in OnAfterCellPaint malen.
Delphi-Quellcode:
procedure TfrmFoobar.vstAfterCellPaint(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
CellRect: TRect);
var
Y: Integer;
begin
if (Node.Index = 3) and (Column in [3, 4]) then begin
Y := Round((CellRect.Bottom-CellRect.Top)/2);
TargetCanvas.PenPos := Point(CellRect.Left, Y);
TargetCanvas.LineTo(CellRect.Right, Y);
end;
end;