Информация

Последние записи

Теги


Блоги


Записи из всех блогов с тегом: tcxdbtreelistnode


TcxTreeList - фильтрация

Фильтрация Nod`ов в TcxTreeList/TcxDBTreeList

У Datacontroller`а есть Filter, но можно использовать другой способ.
Скрывать/отображать узлы в цикле с помощью свойства TcxTreeListNode.Visible

Примеры
procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  ANode: TcxTreeListNode;
begin
  for I := 0 to cxDBTreeList1.AbsoluteCount - 1 do
  begin
    ANode := cxDBTreeList1.AbsoluteItems[I];
    if ANode.Values[cxDBTreeList1FilterColumn.ItemIndex] = 2 then
      ANode.Visible := false;
  end;
end;


procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to cxDBTreeList1.AbsoluteCount - 1 do
    cxDBTreeList1.AbsoluteItems[I].Visible := true;
end;
автор: X11 добавлено: 17 авг 13 просмотры: 2726, комментарии: 0



Цикл по TcxDBTreeList

Примеры, как выполнить цикл по всем узлам дерева TcxDBTreeList.


procedure TForm1.cxButton1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to cxDBTreeList1.AbsoluteCount - 1 do
  begin
    if cxDBTreeList1.AbsoluteItems[I].HasChildren and (cxDBTreeList1.AbsoluteItems[I].CheckState = cbsChecked) then
      ShowMessage(VarToStr(cxDBTreeList1.AbsoluteItems[I].Values[0]));
  end;
end; 

взято отсюда: http://forum.ru-board.com/topic.cgi?forum=33&topic=10884&start=4780#16



Ещё примеры
  vNode := TcxDBTreeListNode(tree.Root);

  while vNode <> nil do
    begin
      if vNode.CheckState = cbsChecked then
        id := VarToStr(vNode.KeyValue)


      vNode := TcxDBTreeListNode(vNode.GetNext);
    end;
автор: X11 добавлено: 11 фев 13 просмотры: 1989, комментарии: 0