Imprimir TreeView en QuickReport

[Neeruu]

Hola a todos!!!!

La estructura de árbol esta solucionada..... lo que no encuentro la vuelta del todo es con las lineas....

Con respecto a este código:

Código Delphi [-]
procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
 MoreData := ItemIndex <= TreeView1.Items.Count-1;
 if MoreData then
  begin
   Nivel := TreeView1.Items[ItemIndex].Level;
   Case Nivel Of
    0 : QRLabel1.Left := LeftIni;
    1 : QRLabel1.Left := LeftIni+20;
    2 : QRLabel1.Left := LeftIni+40;
   end;
   qrLabel1.Caption := '|_ '+TreeView1.Items[ItemIndex].Text;
  end;
end;
.................................................................
.................................................................
//variable global ItemIndex inicializas en 0
 ItemIndex := 0;
 LeftIni := QRLabel1.Left;

El tema se da cuando tengo esta estructura....

Raiz
|_ Nodo 1
|_ Nodo 2
| |_ SubNodo 1
| |_ SubNodo 2
| | |_ Sub Sub Nodo 1
| |_ Sub Nodo 3
|_ Nodo 3

En este caso hay filas que pueden tener mas de una "linea vertical"

Cuando es un treeview de varias, varias, varias hojas... a mi forma de ver las lineas me son muy útiles....

Saluda Atte Neeruu!!!