tree view con check boxes

[k_bron]

Que tal, estoy tratando de hacer un tree que contenga un checkbox en cada nodo para seleccionar todos los sub- elementos del nodo a partir del mismo. Alguien sabe como hacerlo? Espero que alguien pueda ayudarme. gracias.

p.d.- estoy usando delphi 5

[[maeyanes]]

Suponiendo que ya tienes la parte de los checkbox, para seleccionar todos los sub-nodos del nodo que has seleccionado, tienes que hacer una búsqueda recursiva de estos.

Código Delphi [-]
procedure CheckSubNodes(ANode: TTreeNode);
var
  I: Integer;

begin
  ANode.Checked := True; // Esto es solo por cuestiones de ejemplo, esta propiedad en realidad no existe en la clase TTreeNode.
  if ANode.HasChildren then
    for I := 0 to ANode.Count - 1 do
      CheckSubNodes(ANode.Item[i])
end;

// Llamando al procedimiento
procedure TForm1.TreeView1OnChange(Sender: Object; Node: TTreeNode);
begin
  CheckSubNodes(Node)
end;

Saludos...

[roman]

Hace tiempo hice una componente TCheckTreeView, con checkboxes que hace toda la selección y deselección de subnodos automáticamente. Puedes bajarla de mi página, en la sección de componentes.

El paquete viene listo para compilar con todo y el archivo de recursos para las imágenes de las casillas. El zip incluye un ejecutable de demo pero sólo podrás correrlo si tienes instalado delphi 7. El paquete imagino que puede compilarse en D5, no creo que de mayores problemas.

Edito:

La componente no es demo. Incluye todo el código fuente.

// Saludos