Cita:
Empezado por Neeruu
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.
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