procedure TfrmDataTreeList.CreateFilter(AColumn: TcxDBTreeListColumn; ASearhText: string);
begin
  with lstMain.DataController.Filter do
  begin
    BeginUpdate;
    try
      Root.Clear;
      if Trim(edtSearchText.Text) = '' then
        Active := False
      else
      begin
        Root.AddItem(AColumn, foLike, '%' + ASearhText + '%', '');
        Active := True;
      end;
    finally
      EndUpdate;
    end;
  end;
end;

procedure TfrmDataTreeList.CreateFilter(AColumn: TcxDBTreeListColumn; ASearhText: string);
var
  ANode: TcxTreeListNode;
  i: Integer;
begin
  if ASearhText = '' then
    for i := 0 to lstMain.AbsoluteCount - 1 do
      lstMain.AbsoluteItems[i].Visible := True
  else
    for i := 0 to lstMain.AbsoluteCount - 1 do
    begin
      ANode := lstMain.AbsoluteItems[i];
      if Pos(ASearhText, Trim(ANode.Values[AColumn.ItemIndex])) > 0 then
        ANode.Visible := True
      else
        ANode.Visible := False;
    end;
end;

procedure TfrmDataTreeList.CreateFilter(AColumn: TcxDBTreeListColumn; ASearhText: string);
var
  ANode, AParentNode: TcxTreeListNode;
  i: Integer;
begin
  ANode := lstMain.Root.getFirstChild;
  while ANode <> nil do
  begin
    if Pos(ASearhText, ANode.Values[AColumn.ItemIndex]) > 0 then
    begin
      ANode.Visible := True;
       //TcxTreeListNode(ANode.Parent).Visible := True;
      AParentNode := ANode.Parent;
      while AParentNode <> nil do
      begin
        AParentNode.Visible := True;
        AParentNode := AParentNode.Parent;
      end;
    end
    else
      ANode.Visible := False;
    ANode := ANode.GetNext;
  end;
end;