Hilfe zu JvCheckTreeView

[holliesoft]

Hi,

wie wäre es damit:

Delphi-Quellcode:

procedure TForm1.JvCheckTreeViewGetSelectedIndex(Sender: TObject;
  Node: TTreeNode);
Var
  i: Integer;
  subNode: TTreeNode;
  checkState: Boolean;
  begin
    checkState := JvCheckTreeView.Checked[Node];
    if Node.HasChildren then
    begin
      for i := 0 to Node.Count-1 do
      begin
        subNode := Node.Item[i];
        JvCheckTreeView.Checked[subNode] := checkState;
      end;
    end;
  end;