TreeView Recursivo

[jorge_mosquera]

Hola, necesito cargar la informacion de una tabla a un TreeView.

La tabla tiene la siguiente estructura

ID           NOMBRE     ID_PADRE
================================
1            LUNES            0 
2            MARTES           0
3            MAÑANA           1 
4            DESAYUNO         3
5            ALMUERZO         2

Donde el TreeView querdaria de la siguiente forma

 
+Lunes
  + mañana
     + Desayuno
+ Martes
   + Almuerzo

Actualmente tengo un procedimiento que lo hace, pero es extremadamente lento. Como puedo hacerlo mas rapido ?

[[ArdiIIa]]

Yo utilizo este sistema hace bastante y hasta ahora me da buen resultado:

Código Delphi [-]
procedure TFormContactos.FormCreate(Sender: TObject);
var
  FileInfo: TSHFileInfo;
  Flags: Integer;
  Icono : TIcon;
  Carpeta,Grupo : TTreeNode;
  Registro : PRegistro;
  I,Z : Integer;
begin

(*
Tomamos las Imagenes para las carpetas
*)

FormMain.ActionLibretaContactos.Enabled := False;

Registros := Tlist.Create;

Icono := TIcon.Create;
FillChar(FileInfo, SizeOf(FileInfo), #0);
Flags := SHGFI_ICON or  SHGFI_SMALLICON;
SHGetFileInfo( PCHAR(ExtractFilePath( Application.ExeName )),
                0,
                FileInfo,
                SizeOf(FileInfo),
                Flags);
Icono.Handle := FileInfo.hIcon;
//Icono.Transparent := True;
ImageList1.AddIcon(Icono);
Icono.ReleaseHandle;
Flags := SHGFI_ICON or  SHGFI_SMALLICON or SHGFI_OPENICON;
  SHGetFileInfo(PCHAR(ExtractFilePath( Application.ExeName )),
                0,
                FileInfo,
                SizeOf(FileInfo),
                Flags);
Icono.Handle := FileInfo.hIcon;
ImageList1.AddIcon(Icono);
Icono.Free;

With Datamodule1.IBQueryCarpetas DO
Begin
    First;
    DisableControls;
    TreeView.Items[0].Text := FieldByName('Carpeta').AsString;
////
    New(Registro);
    Registro^.FCodigo :=  FieldByName('Codigo').AsInteger;
    TreeView.Items[0].Data := Registro;
    Registros.Add(Registro);
//
     Next;
 //Tomar restos de Carpetas
    While Not Eof DO
    Begin
        if FieldByName('Master').AsInteger = 0 then
        Begin
        New(Registro);
        Registro^.FCodigo :=  FieldByName('Codigo').AsInteger;
        Registros.Add(Registro);
        Carpeta := TreeView.Items.AddChildObject(TreeView.Items[0], FieldByName('Carpeta').AsString,Registro);
        Carpeta.ImageIndex := Imagelist1.Count -2;
        Carpeta.SelectedIndex := Imagelist1.Count -1;
        end
        Else
        Begin
            For Z := 1 To TreeView.Items.Count -1 DO
            if PREGISTRO(TreeView.Items[Z].Data)^.FCodigo = FieldByName('Master').AsInteger then
            Begin
               New(Registro);
               Registro^.FCodigo :=  FieldByName('Codigo').AsInteger;
               Registros.Add(Registro);
               Grupo := TreeView.Items.AddChildObject(TreeView.Items[Z], FieldByName('Carpeta').AsString,Registro);
               Grupo.ImageIndex := Imagelist1.Count -1;
               Grupo.SelectedIndex := Imagelist1.Count -2;
               break;
            End;

        End;

        Next;
        End;
        EnableControls;
    End;

TreeView.AlphaSort;
TreeView.Items[0].Expand(False);

TreeView.OnChange := TreeViewChange;

TreeView.FullExpand;

IF Unit_Opciones.LastFolder <> 0 THEN
TreeView.Selected := TreeView.Items[Unit_Opciones.LastFolder];


    TabControl1.Tabs.Clear;
    TabControl1.Tabs.Add( '*');
    For I := 65 TO 90 DO
    TabControl1.Tabs.Add( CHR(I ) );
    For I := 48 TO 57 DO
    TabControl1.Tabs.Add( CHR(I ) );



    TabControl1Change(nil);



End;

Te darás cuenta que creo un Tlist con un registro para que cuando el view cambie, también cambie una tabla hija asociada....
También utilizo los iconos "carpetas del sistema" para ahorrar en imágenes.

Hace unos día me planteé hacerme un componente Treeview "dataware", pero por falta de tiempo y ganas, de momento me apaño con este procedimiento.
También estuve tratando de probar el DbTreeview de las JEDI, pero creo que es imposible hacer andar a ese componente y a falta de documentación, tampoco se si valdría para hacer esto, dado que tiene una propiedad ITEMS... en fin un pestazo.

Se me olvidaba: La estructura del registro es esta...

Código Delphi [-]
type


    PRegistro = ^TRegistro;
    TRegistro = record
    FCodigo       : Integer;
    End;

Saludos

[roman]

Jorge: Sería interesante que comentaras cómo estás codificando el llenado del árbol, pero a ojo de buen cubero, yo diría que en general, la lentitud se debe a que intentas cargar toda la información de un sólo golpe.

Considera, por ejemplo, lo que sucede con el explorador de Windows. Selecciona C:\ y haz una expansión completa (Shift+*). El tiempo que tarda es infame. Lo que sucede es que el explorador no carga toda la información de carpetas y archivos al inicio sino que lo hace conforme se lo solicitas. No es sino hasta que intentas expandir una rama cuando realmente se hace la lectura de los archivos contenidos.

Lo mismo aplicaría para un árbol que presente información de una tabla extensa. Lo usual es crear únicamente el nodo (o nodos) raíz poniendo su propiedad HasChildren en true pero sin leer sus hijos. Al hacer esto, el nodo aparece con su símbolo [+] a la izquierda indicando que- posiblemente -tenga hijos. Cuando el usuario de click en [+], se generará el evento OnExpanding del TreeView. En ese evento es cuando detrminas si hay hijos, los lees y cargas ahora sí, los nodos hijos. En estos nodos hijos aplica lo mismo que antes: no lees los nodos nietos sino hasta que el usuario lo solicite.

// Saludos

[[Lepe]]

Yo con temor a reproches , digo que es rápido añadir todos los registros.

- Primero usar DisableControls del dataset
- Segundo usar BeginUpdate del TreeView

Yo diría que haciendo eso, puedes reducir el tiempo de 5 segundos a 28 milisegundos para 5.000 elementos. No creo que el TreeView vaya a tener 2.000.000 de nodos... y si debe tenerlo VirtualStringTree jejeje.

PD: Ardilla, estas usando la filosofía de VirtualStringTree, jeje lo siento, no has inventado nada , además es un Treeview + Grid (aunque no dataware) .

Saludos