Cita:
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;
.................................................................
.................................................................
ItemIndex := 0;
LeftIni := QRLabel1.Left;
Saluditos