Imprimir TreeView en QuickReport
 

Hola a todos....

Tengo un datos cargados en un TreeView y tengo que imprimirlos...
Eso esta hecho el tema es que no logro que la impresión quede con esa forma de árbol del treeview...

O sea, el tema no es imprimir sino lograr el efecto de jerarquía que caracteriza al treeview...

Alguna Idea...???

Saluda Atte Neeruu!!!:)

Usar un bitmap ?

Por ejemplo, colocas un TQRImage en el QuickReport, vuelcas el TreeView a un Bitmap y esa imagen la asignas al QRImage.

Evidentemente si los nodos del TreeView y sus sub-nodos son muchos, se salen de unas dimensiones típicas de folio, la cosa se complica un poco.

Había pensado en eso pero la información ocupa unas cuantas hojas

Saluda Atte Neeruu!!! :)

Pues a mí me funciona. Hice lo siguiente:

1. Use la propiedad FullSpand del TreeView.
2. Obtuve el número de Items del TreeView con Items.Count
3. Jugando con las GetFirstNode y TopItem me voy moviendo por el TreeView, capturo las imágenes, las guardo en una carpeta temporal y su ruta en una tabla temporal.
4. En el QuickReport tengo una banda SubDetail enlazada a la tabla temporal con la altura del Bitmap y dentro tengo un QRImage
5. Funciona.

El problema es el diseño que le quieras hacer al QuickReport porque, si como dices, el TreeView ocupa varias hojas la banda SubDetail sólo debe contener el QRImage porque si le agregas otros controles y quieres que alguno no se vea tendrías que estar escribiendo código para decidir qué se ve y qué no se ve.

También hay que tener en cuenta el número de Items en el TreeView para que al llegar al último Bitmap no se junten los últimos Items.


En cualquier caso, si has encontrado otra solución coméntala por aquí.

algo simple prueba recorriendo la jerarquia y usando espacios o tabuladores para diferenciar las jerarquias

Recorres la jerarquía del TreeView y cada sub-nivel de los nodos los diferencias espacios o tabuladores, bien. Pero cómo llevas eso después al QuickReport ? Qué control utilizas para mostrar los datos ? Un QRLabel/QRMemo con la opción AutoSize a True ? Si son varias páginas el QRLabel/QRMemo se siguen auto-ajustando ?

No sé. A mí me gusta más la solución del Bitmap, que además queda tal cual el TreeView, con dibujitos y todo, si los tiene.

Hola Northern, yo utilizaría un QrLabel dentro de una banda Detail, el evento OnNeedData y la propiedad Level de cada nodo:

Código Delphi [-]
   //algo así
   Nivel := TreeView1.Items[ItemIndex].Level;
   Case Nivel Of
    0 : QRLabel1.Left := LeftIni;
    1 : QRLabel1.Left := LeftIni+20;
    2 : QRLabel1.Left := LeftIni+40;
   end;
  ..............................................
  ..............................................
  //guardamos Left inicial del QrLabel
  LeftIni := QRLabel1.Left;

Saluditos

Hola a todos....


Yo utilizo espacios...
Recorro el TreeView, que previamente fue cargado de una tabla, y en un campo temporal voy armando un nuevo string con espacios adelante, según la entrada que tiene en el TreeView...

Cuando lo enlazo al quickreport queda algo así:

Código Delphi [-]
Raíz
    1 Nodo
    2 Nodo
    3 Nodo
         1 SubNodo
         2 SubNodo
    etc...

Pero lo que quiero lograr es algo así:

Código Delphi [-]
Raíz
  |_ 1 Nodo
  |_ 2 Nodo
  |_ 3 Nodo
         |_ 1 SubNodo
         |_ 2 SubNodo
    etc...

Es ahí donde se complica, cuando quiero agregar las lineas....

Saluda Atte Neeruu!!! :)

Hola de nuevo, no necesitas aumentar espacios, puedes utilizar la propiedad Level del TreeView y Left de tu QrLabel como te dije antes. Utilizando el evento OnNeedData del QuickReport estarías pasando directamente tu treview al reporte y para las lineas solo lo concatenas.

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;

Saluditos

Yo uso el TJvDBTreeView para mostrar el arbol por pantalla aunque habría que probar si funciona con un componente treeview comun
Ese componente Jedi se enlaza a la base de datos, configurando las propiedades correspondientes.

Pero para imprimirlo, hago lo siguiente:

* Creo en tiempo de ejecución un arbol invisible

Código Delphi [-]
ArbolInvisible:=TJvDBTreeView.Create...

* configuro las siguientes propiedades

Código Delphi [-]
      
      Arbolinvisible.AutoExpand:=true;
      ArbolInvisible.MasterField:='ID_CAMPO';
      ArbolInvisible.DetailField:='ID_CAMPOPADRE';
      ArbolInvisible.ItemField:='DESCRIPCION';
      ArbolInvisible.DataSource:=Datasource;

* Me aseguro que se expanda totalmente el arbol

Código Delphi [-]
 ArbolInvisible.FullExpand;

* Lo guardo en un arhivo de texto

Código Delphi [-]
Arbolinvisible.SaveToFile('arbol.txt');

* Leo en un componente QRMemo el archivo de texto;

Código Delphi [-]
 QRMEMO.Lines.LoadFromFile('arbol.txt');

* Lo imprimo o hago una vista previa

Código Delphi [-]
 QReport.previewmodal;

* Obviamente elimino el treeview

Código Delphi [-]
 Arbolinvisible.free;

A mi me ha dado resultado, en cuanto a que respeta la estructura de árbol. No dibuja líneas, pero por lo menos se nota bien la estructura.

Saludos

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

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

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

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

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

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