¿Cómo manejar un VirtualTreeView?

[jesconsa]

Ok Casimiro. Gracias pacopenin. Como hiciste para usar el JvDBTreeView?, algun ejemplo en el cual te basaste?, donde aprendiste a utilizarlo? algun tutorial?.....

Muchas gracias
Saludos

Jesus

[pacopenin]

No hay mucho que explicar. Te adjunto una captura de pantalla :



Es un árbol de plantillas de texto organizados por carpetas. El campo TIPO identifica si es una carpeta(1) o una plantilla(3) y lo utilizo para el icono dentro del árbol. Del resto no se que más comentar.

[jesconsa]

Gracias por la captura pacopenin. Entiendo lo que haces, No puedo creer que sea asi de sencillo. Pero hay algo que no entiendo...Esto esta bien para una relacion Master/Padre Detail/Hijo ...pero si quiero mas niveles?...como se haria?....No veo ninguna propiedad que de a pensar que se puedan obtener arboles de mas de dos niveles (un nivel de padres y otro de hijos)....

Gracias
Saludos

Jesus

[pacopenin]

Puede tener los niveles que quieras. Si añado un nodo (11) y pongo como padre 10 me lo pondrá dentro de la carpeta "Otra carpeta". Normalmente yo bloqueo que no se puedan borrar los dos primeros nodos, para que siempre tenga que estar seleccionado un nodo que haga de padre, y en su defecto el 0 que es el valor de la propiedad StartMasterValue. Para añadir un nodo utilizo lo siguiente :

Código Delphi [-]
procedure TFCarpetas.btNewFolderClick(Sender: TObject);
var
  carpeta : String;
  New : TJvDBTreeNode;
  Node: TTreeNode;
begin
  carpeta := '';
  if InputQuery(buscaTraduccion('330'), buscaTraduccion('331'), carpeta) then
    begin
       node := Arbol.Selected;
       New := Arbol.MyAddChildNode(node, True, 0, carpeta, 1);
    end
end;

Como ves, se llama a la función MyAddChildNode que he modificado de la original añadiendo dos o tres parámetros más.

A ver si te sirve.

[jesconsa]

Ah ok ok, entiendo.....pero a la hora de añadir mas nodos/niveles , ya que se tiene todo en el mismo Dataset, se puede formar una buena no?....

Muchas gracias!
Saludos

Jesus