Imprimir TreeView en QuickReport

[Neeruu]

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

Saluda Atte Neeruu!!!

[Northern]

Empezado por Neeruu

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

[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