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;
.................................................................
.................................................................
ItemIndex := 0;
LeftIni := QRLabel1.Left;
El tema se da cuando tengo esta estructura....
Cita:
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!!!