Imprimir TreeView en QuickReport

[*Caro*]

Empezado por Neeruu

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

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....

Hola Neeruu, en ese caso concatenas las lineas que necesites según al nivel de cada nodo.

Código Delphi [-]
procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
var
 lineas : String;
begin
 MoreData := ItemIndex <= TreeView1.Items.Count-1;
 if MoreData then
  begin
   Nivel := TreeView1.Items[ItemIndex].Level;
   While Nivel>0 do
    begin
     lineas := lineas+'| ';
     Inc(Nivel, -1);
    end;
   qrLabel1.Caption := lineas+'|_  '+TreeView1.Items[ItemIndex].Text;
  end;
 Inc(ItemIndex);
end;

Saluditos