Imprimir TreeView en QuickReport

[JoseAntonio]

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

[Northern]

Empezado por JoseAntonio

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.

[*Caro*]

Empezado por Northern

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 ?

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

[Neeruu]

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

[*Caro*]

Empezado por Neeruu

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

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

[taqtaq]

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

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