Imprimir TreeView en QuickReport

[Neeruu]

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

[Northern]

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.

[Neeruu]

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

Saluda Atte Neeruu!!! :)

[Northern]

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]

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]

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:


//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í:


Raíz
1 Nodo
2 Nodo
3 Nodo
1 SubNodo
2 SubNodo
etc...



Pero lo que quiero lograr es algo así:

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]

Pero lo que quiero lograr es algo así:
Código Delphi [-] (http://www.clubdelphi.com/foros/#)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.


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
ArbolInvisible:=TJvDBTreeView.Create...

* configuro las siguientes propiedades

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

ArbolInvisible.FullExpand;

* Lo guardo en un arhivo de texto
Arbolinvisible.SaveToFile('arbol.txt');


* Leo en un componente QRMemo el archivo de texto;

QRMEMO.Lines.LoadFromFile('arbol.txt');

* Lo imprimo o hago una vista previa

QReport.previewmodal;

* Obviamente elimino el treeview

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:

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:

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]

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.


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