[StoneMD]

доброго времени суток!

есть задача: составить свой список в MEMO из общего классифицированного списка в TreeView.
при этом в TreeView желательно иметь квадратики из чекбоксов, но только на "листьях" дерева, а не в узлах, чтоб узлы не попали в МЕМО.

ковырялся с CustomTreeView VirtualTreeView, пытался разобраться в обычном TreeView, чтоб сделать в нём нужные иконки, но ничего толком не получилось.

может подскажете необходимые ключевые методы для выполнения задачи, или может в корне изменить внешний вид и использовать другие компоненты, о которых я не знаю, потому что для решения ЭТОЙ задачи наиболее удобным я нашёл только это? вобщем - подскажите своими идеями, пжалста, а то я совсем запутался

(список обязательно должен быть классифицированным, как в TreeView, то есть с вложениями подпунктов. вложения "листьев" могут быть разного уровня - 2,3 или 4, и в итоге нужно получить список или строку, содержащую все выбранные строки из первоначальной классификации, естественно, не включающую заголовки разделов из списка)

заранее спасибо !

[lmikle]

Ничего из этого опичания не понял. Можешь хоть как-то упорядочить мысли?

ЗЫ. Проблема чекбоксов не в листьях не является проблемой. Обычно их используют как возможность выбрать/сбросить флажки у всех дочерних элементов. Просто тебе надо будет правильно обрабатывать ветки дерева, т.е. не пихать НЕ-листья в результат.

[StoneMD]

примерно так:



как считывать из treeview выбранные несколько слотов я так и не понял, а при прочёсывании всего списка на свойство selected среда выдаёт только последнее выделенное

[lmikle]

Добавить в TV чекбоксы:

Код:

interface

type
  TTreeView = class(ComCtrls.TTreeView)
  end;

  TForm1 = class(TForm)
  ...

implementation

procedure TTreeView.CreateParams(var Params: TCreateParams);  
begin
inherited;
    Params.Style := Params.Style or TVS_CHECKBOXES;
end;

Получить список в Мемо:

Код:

function TreeNodeChecked(n:TTreenode):Boolean;
Const
  TVIS_CHECKED = $2000;
var
   Item: TTVItem;
begin
   Item.mask := TVIF_STATE or TVIF_HANDLE;
   Item.hItem := n.ItemId;
   if Bool(SendMessage(n.Handle, TVM_GETITEM, 0, lParam(@Item))) then
       Result := (Item.State and TVIS_CHECKED) = TVIS_CHECKED
   else
       Result := false;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Memo1.Lines.Clear;
  for i := 0 to TreeView1.Items.Count - 1 do
  begin
    if (TreeView1.Items[i].Count = 0) And (TreenodeChecked(TreeView1.Items[i])) then
        Memo1.Lines.Add(TreeView1.Items[i].Text);
  end;
end;

[StoneMD]

спасибо огромное, попробую !!!