Marcando o Filho e o Pai ( TJvCheckTreeView )

Amigos um companheiro de programação fez essa pergunta no Grupo Delphi-BR (grupo dedicado a Delphi do Yahoo, muito bom! Eu recomendo!), então dei uma fuçada, pois utilizo a biblioteca do Jedi ( também recomendo) e como já utilizei esse componente ( nossa de novo eu recomendo!)  acabei achando uma solução para o caso. A pergunta dele era a seguinte:

“Colegas,
Utilizando um JvCheckTreeView, gostaria de, ao checar um item filho, também
checar o item pai. Alguém sabe como fazer?
Grato”

E a solução encontrada foi, no evento JvCheckTreeView1Click adicionar o código abaixo, lógico que a partir daqui você poderá refinar a rotina, experimente implementar que ao retirar a marcação de todos os filhos, a rotina retire também a marcação do item pai.

procedure TForm23.JvCheckTreeView1Click(Sender: TObject);
var
  Node : TJvTreeNode;
begin
  if TJvTreeNode(JvCheckTreeView1.Selected).Checked then
  begin
    Node := TJvTreeNode(JvCheckTreeView1.Selected.Parent);
    Node.Checked := True;
  end;
end;

Espero mais uma vez estar ajudando!


Boa sorte e abs!