CheckListBox древовидной структуры

[Andrey85]

Здравствуйте. Подскажите пожалуйста. Есть ли такой компонент, который отображал и была возможность выбора из древовидной структуры чекерами. Например, есть командировочные и хозяйственные расходы. У каждого вида есть еще подвиды. Нужно выбирать либо просто допустим командировочные либо какие-то его подвиды и т.д. Заранее спасибо.

[alekseiryzhakov]

Была у меня аналогичная проблема! Но я её так и не решил... (

[Прик]

Да, в свое время понадобился тоже такой компонент. Поискал, ничего стоящего не нашел. Слепил на TreeView.
Достаточно просто оказалось.
- делаем три картинки 16х16: не отмеченный прямоугольник, отмеченный и еще нужно было с серой галкой - полуотмеченный (последний нужен для того чтобы в родительском ноуде было видно, что что дочерние отмечены не все);
- эти три картинки загружаются TImageList;
- установки в TreeView: в StateImages указывается наш TImageList, ReadOnly = True, RightClickSelect = True (впрочем, по вкусу), Ident = 19;
- в процедуре события OMouseDown (можно и на OnMouseUp) пишется такой код:

procedure TfrmUserRight.SetStateParent(TN : TTreeNode; St : Integer);
var  N : TTreeNode; NeedPar : Boolean;
begin
  if (TN = nil) or (TN.Level = 0) then Exit;
  N := TN.getFirstChild;
  NeedPar := False;
  while N <> nil do begin
    if N.StateIndex <> St then begin
      TN.StateIndex := 2; NeedPar := True; break
    end;
    N := TN.GetNextChild(N);
  end;
  if not NeedPar then TN.StateIndex := St;
  SetStateParent(TN.Parent, St);
end;

procedure TfrmUserRight.tvMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var R : TRect;

  procedure SetStateChild(TN : TTreeNode);
  var  N : TTreeNode;
  begin
    N := TN.getFirstChild;
    while N <> nil do begin
      N.StateIndex := TN.StateIndex;
      SetStateChild(N);
      N := TN.GetNextChild(N);
    end;
  end;

begin
  if tvProject.Selected = nil then Exit;
  R := tvProject.Selected.DisplayRect(True);
  R.Right := R.Left-18;
  R.Left := R.Right-16;
  if PtInRect(R, Point(X, Y)) then begin
    if tvProject.Selected.StateIndex = 0 then
      tvProject.Selected.StateIndex := 1
    else
      tvProject.Selected.StateIndex := 0;

    SetStateChild(tvProject.Selected);
    SetStateParent(tvProject.Selected.Parent, tvProject.Selected.StateIndex);
  end;
end;

Картинки в TImageList расположены в порядке: не отмеченный, отмеченный, "серый".
Как видно, делать особенно и нечего.

[Баламут]

Для работы с древовидными структурами есть только один компонент, достойный внимания - VirtualTreeview. К тому же он бесплатный. Берем здесь: http://soft-gems.net

[asmodey1]

Ну почему ? А GreedTree ?
Demo.rar