¿Cómo manejar un VirtualTreeView?

[Casimiro Notevi]

Por favor, no abras otro hilo para tratar el mismo tema, gracias.
Los he unido

[jesconsa]

Ok, disculpa Casimiro.

Gracias
Saludos

[Casimiro Notevi]

Empezado por jesconsa

Saludos

Le he cambiado el título para que sea más fácil de identificar por quien pueda ayudar.
Si prefieres otro título, lo dices

[pacopenin]

Hola Jesús. Hace muchos años que no uso VST, pero mirando un proyecto antiguo te mando lo que hacía para cargar un árbol de un sólo nivel. No llegué a explorar mucho más allá. A ver si te sirve.

Código SQL [-]
procedure TFListados.iniciaArbol;
var
  Data1 : PEntryData;
  Node1: PVirtualNode;
  NewNode : PVirtualNode;
begin

     VST.BeginUpdate;
     VST.Clear;

     VST.RootNodeCount := 0;

     Node1 := VST.AddChild(VST.RootNode);

     Data1 := PEntryData(VST.GetNodeData(Node1));
     Data1.Titulo := 'Listados';

     Dat.cdInf.close;
     Dat.cdInf.Params.ParamByName('GRUPO').asInteger := Grupo;
     Dat.cdInf.open;

     VST.Selected[VST.TopNode] := true;
     VST.FocusedNode := VST.TopNode;

     while NOT Dat.cdInf.EOF do
       begin
          NewNode := VST.AddChild(VST.FocusedNode);
          with PEntryData(VST.GetNodeData(NewNode))^ do
            begin
               Titulo  := Dat.cdInfNOMBRE.value;
               Informe := Dat.cdInfINFORME.value;
               Id      := Dat.cdInfUSER_FLAG.value;
               Tipo    := Dat.cdInfTIPO.value;
            end;
          Dat.cdInf.Next;
       end;

     VST.EndUpdate;

     VST.FullExpand;
end;

[jesconsa]

Gracias pacopenin. Ya lo habia resuelto con bucles como:

Código Delphi [-]
Form1.FDTable10.First;
  for X := 1 to Form1.FDTable10.RecordCount do
      begin
        N.NCaption:= Form1.FDTable10.Fieldbyname('Areas').AsString;
    .........
    .........

A la vez que creo los nodos con AddChild les añado los datos, no lo hago en el evento OnInit porque asi me resulta mas facil. Como ves utilizo una tabla asociada directamente con la tabla de la base de datos (se puede hacer directamente asi en la componente Table de FireDac). El problema lo tengo ahora en que los cambios que haga en el VirtualTreeView se graben en la base de datos, por ejemplo pulsar sobre un checkbox de un nodo, etc. Con los Datasources asociados a Grids era facil porque un cambio en el grid automaticamente (activando la propiedad correspondiente) se actualizaba la base, pero aqui no hay enlace con Datasources,..la tabla directa a la base. Alguna idea?

Muchas gracias
Saludos

[pacopenin]

Pues deberás guardar el id del registro correspondiente en cada nodo (como hago en mi ejemplo) y cuando detectes una modificación, recuperar dicho registro y realizar la edición correspondiente. No se me ocurre otro modo.

[jesconsa]

Hola pacopenin. Lo que he hecho es un poco al reves,..actualizo la base de datos con:

Código Delphi [-]
 dbMain.ExecSQL('update Areas set Selected=:Selected where Id=:Id', [Data.Chk,Data.Id]);

..y luego vuelvo a pintar el arbol, lo hago asi para poder activar una casilla y todos sus hijos, el repintado global me quita de historias...Solo una cosa negativa,..al repintar el arbol , éste esta reducido/colapsado,..si guardo el Nodo para poder expandirlo despues de pintar el arbol no lo hace bien, supongo que el puntero de ese nodo que guardo ya ha cambiado y no sirve de nada...Y tambien hice lo del "repintado" del arbol porque si no no me ponia actualizado el checkbox de los hijos de ese nodo (al checkearlos/señalarlos recursivamente)...espero haberme explicado bien....

Muchas gracias
Saludos

Jesus