DbGrid + TreeView + CheckBox

[tarakan1983]

Здравствуйте, помогите пожалуйста подобрать компонент для оформления в стиле DbGrid + TreeView + CheckBox.
У меня 2 таблицы
1. G (Группы товаров) с полями
a. ID
b. NAIM
2. T (Товары) с полями
a. ID
b. G_ID
c. NAIM
d. ….
Нужно получить TreeView, но так, чтобы справа был GRID c информацией о товаре, а каждого элемента TreeView был CheckBox. При этом если выделялся головной CheckBox, то выделялись все товары группы, а если выделено только несколько товаров группы, то головной CheckBox закрашивался сероватым. Примерно так как я показал на картинке ниже.

Пробовал использовать свойство TreeView у компонента DbGridEh из EhLib, но там, как я понял из примера нужно, чтобы и Группы и Товары лежали в одной таблице и еще там нет CheckBox’a с нужными мне свойствами.
Спасибо

[ДралсяСошибками]

Возможно https://community.devexpress.com/blo...-features.aspx

[tarakan1983]

Сообщение от ДралсяСошибками

Возможно https://community.devexpress.com/blo...-features.aspx

Очень бы хотелось научиться пользоваться, но второй день ничего не получается, да и стоимость его ого-го...

[SQLPowerUser]

Был у меня похожая ситуация, использовал бесплатный Virtual Treeview
Демки качаем отсюда
Документацию на русском языке с примерами берем здесь

[tarakan1983]

Сообщение от SQLPowerUser

Был у меня похожая ситуация, использовал бесплатный Virtual Treeview
Демки качаем отсюда
Документацию на русском языке с примерами берем здесь

Отлично, примного благодарен за подробный ответ, сегодня начну изучение

[tarakan1983]

Сообщение от SQLPowerUser

Был у меня похожая ситуация, использовал бесплатный Virtual Treeview
Демки качаем отсюда
Документацию на русском языке с примерами берем здесь

Вроде разобрался с компонентом, только одно пока не допонял, может подскажете?
Как сделать регистронезависимый поиск с фильтрацией?
Т.е., например, по мере того как я набираю текст в Edit1, дерево уменьшается и отображаются только те данные которые отвечают условиям набранного текста, говоря языком SQL примерно так

SELECT * FROM MYTABLE WHERE UPPER(MYTABLE.NAME) LIKE UPPER(%ля-ля-ля%)

Надеюсь понятно обяснил

[SQLPowerUser]

Из работающего проекта. Тут дерево имеет 2 уровня Проект - Сотрудник. Поиск ведется или по уровню 0 или по уровню 1 (зависит от текущего выбора в обычном комбобоксе cbo_LookupField.ItemIndex)

function MyCountVisibleChildren(Node: PVirtualNode): Cardinal;
begin
  Result := 0;

  Node := Node.FirstChild;

  while Assigned(Node) do
  begin
    if vsVisible in Node.States then
      Inc(Result, MyCountVisibleChildren(Node) + 1);
    Node := Node.NextSibling;
  end;
end; // MyCountVisibleChildren


procedure Tfrm_Main.txt_LookupChange(Sender: TObject);
var
  CurrentNode: PVirtualNode;
  s: string;
begin
  if Trim(txt_Lookup.Text) = '' then
  begin
    RebuildTree;
    exit;
  end;

  CurrentNode := vt.GetFirst;
  if not Assigned(CurrentNode) then exit;

  vt.BeginUpdate;

  repeat
    s := vt.Text[CurrentNode, 5];
    if vt.GetNodeLevel(CurrentNode) = cbo_LookupField.ItemIndex then
      vt.IsVisible[CurrentNode] := Pos(AnsiUpperCase(txt_Lookup.Text), AnsiUpperCase(s)) > 0;

    CurrentNode := vt.GetNextNoInit(CurrentNode);
  until
    CurrentNode = nil;

  // Если поиск по проекту
  if cbo_LookupField.ItemIndex = 0 then
    vt.FullCollapse(nil)
  else // если поиск по сотруднику
  begin
    // Надо пробежаться по крневым узлам дерева и скрыть те, у которых нет видимых дочерних узлов
    CurrentNode := vt.GetFirst;
    if Assigned(CurrentNode) then
    begin
      repeat
        vt.IsVisible[CurrentNode] := (MyCountVisibleChildren(CurrentNode) > 0);
        CurrentNode := vt.GetNextSibling(CurrentNode);
      until
        CurrentNode = nil;
    end;

    vt.FullExpand(nil);
  end; // else если поиск по сотруднику

  vt.EndUpdate;
end; // txt_LookupChange

[tarakan1983]

Спасибо, я нашел еще один

type
  // Данные, прикрепленные к узлу 
  PRec = ^TRec; 
  TRec = record
    Name: string; // Caption нода 
    // Могут быть и другие параметры 
  end; 
  
  PTreeSearch = ^TTreeSearch; 
  TTreeSearch = record
    ClearSearch: boolean; 
    Name: string; 
  end; 
    
// Рекурсивный обход дерева 
procedure FindInTree( Tree: TVirtualStringTree; Node: PVirtualNode; 
  Search: TTreeSearch; var Hide: boolean ); 
var
  p: PRec; 
  flag, recurse: boolean; 
begin
   flag := false; 
   repeat
      if Tree.GetNodeLevel( Node ) = 0 then
         flag := false; 
  
      recurse := false; 
      p := Tree.GetNodeData( Node ); 
      if Assigned( p ) then
      begin
         if Search.ClearSearch then
            Hide := false
         else
            // Проверка на соответствие фильтру 
            Hide := Pos( AnsiLowerCase( Search.Name ), AnsiLowerCase( p^.Name ) ) = 0; 
         if not Hide then
            flag := true; 
  
         if ( Node.ChildCount > 0 ) and ( Tree.GetFirstChild( Node ) <> nil ) then
         begin
            recurse := true; 
            FindInTree( Tree, Tree.GetFirstChild( Node ), Search, Hide ); 
         end; 
  
         if flag and recurse then
         begin
            Node.States := Node.States - [vsHidden]; 
            flag := true; 
         end
         else
            if Hide then
               Node.States := Node.States + [vsHidden] 
            else
               Node.States := Node.States - [vsHidden]; 
  
         Node := Node.NextSibling; 
      end; 
   until Node = nil; 
   if flag then
      Hide := false; 
end; 
  
// Пример вызова процедуры 
procedure TForm1.Button1Click(Sender: TObject); 
var
  ts: TTreeSearch; 
  Hide: boolean; 
begin
   case Length( Edit1.Text ) of
      0: begin
         ts.ClearSearch := true; 
      end; 
      else
      begin
         ts.ClearSearch := false; 
         ts.Name := Edit1.Text; 
      end; 
   end; 
   FindInTree( VirtualStringTree1, VirtualStringTree1.GetFirstChild( nil ), ts, Hide ); 
   VirtualStringTree1.Invalidate; 
end; 
  
// P.S. 
// Обнаружен неприятный баг у VirtualStringTree версии 4.8.6 
// После скрытия/отображения узла сбивается максимальное значение у вертикального скролла. 
// Способа исправить этот баг найти не удалось. Тестировалось на Delphi 2010. 
// Тест на Delphi 2007 с VirtualStringTree версии 4.7.0 такой проблемы не выявил.

Может кто сможет исправить указанный баг?
P.S. Использую последнюю версию, но баг также наблюдается

Из работающего проекта...

Спасибо большое, Ваш поиск без глюков. Не подскажете еще такой момент, у меня 2 узла : группа товара и наименование товара, поиск идет по наименованию товара, ненужные позиции скрываются, все хорошо, но если поставить checkbox группы в true, то он проставляет всем товарам checkbox в true, даже скрытым, а как сделать, чтобы при выделении группы он проставлял checkbox в true только видимым товарам?

[SQLPowerUser]

Здесь в событии OnInitNode, надо поставить Node.CheckType := ctCheckBox;
А галочки обрабатывать уже в событии OnChecked. Проект прилагаю.

[tarakan1983]

Сообщение от SQLPowerUser

Здесь в событии OnInitNode, надо поставить Node.CheckType := ctCheckBox;
А галочки обрабатывать уже в событии OnChecked. Проект прилагаю.

Ну прямо не знаю как Вас благодарить, просто то что надо.
Осталось только ускорить загрузку данных из датасета и будет все зашибись!!!!