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

[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!!!

[*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