Imprimir TreeView en QuickReport

[taqtaq]

Entonces puedes probar con esto:

Código Delphi [-]
procedure GuardarTreeToFile(Arbol: TTreeview; Memo:TstringList);
const
  LineaVer = '        '+'|';
  LineaHor = '-----';
  FindeLinea = #13#10;
var
  I: Integer;
  ANode: TTreeNode;
  NodeStr: TStringBuilder;
  Buffer, Preamble: TBytes;
begin
    NodeStr := TStringBuilder.Create(1024);
    try
      ANode := Arbol.items[0];
      while ANode <> nil do
      begin
        NodeStr.Length := 0;
        for I := 0 to ANode.Level - 1 do NodeStr.Append(LineaVer);
        if anode.Level>0 then nodestr.Append(lineahor);
        NodeStr.Append(ANode.Text);
        NodeStr.Append(Findelinea);
        memo.Add(nodestr.ToString);
        ANode := ANode.GetNext;
      end;
    finally
      NodeStr.Free;
    end;
end;

Tal vez, es lo que necesitas.

Saludos

[Northern]

He hecho un pequeño ejemplo de como lo haría yo. El interés que me motivó fue defender mi postura y también comprobar si funciona eso de "Adjuntar archivos" que aparece en "Opciones Adicionales" cuando se está respondiendo a un tema.

El programa está escrito en Delphi 7. Se compone de:

1. Una base de datos Access "Images.mdb", con una tabla "Imagenes" y esa tabla tiene el campo "Imagen"
2. Un archivo de texto .txt "treeview.txt" con una serie de líneas que se cargan el un TreeView
3. El código fuente que se compila y se ejecuta tal cual. No está comentado pero se entiende bien, creo.


Saludos

[Neeruu]

Hola a todos....


No pude ver todavía el procedimiento de TaqTaq..... pero el de Northern cumplió con lo que necesito...
Aunque preferiría alguna otra solución, algo mas simple....

Pero en fin, Northern tu código cumple con lo que necesitaba y se te agradece mucho....

Si alguien quiere agregar alguna otra forma de imprimir un treeview con las lineas.... bienvenido....


Saluda Atte Neeruu!!!