Incremental Search в Virtual Treeview

[kettanaito]

Доброго времени суток.
Не могли бы вы привести пример Incremental Search для компонента Virtual Treeview? Свойства поиска открыты в самом компоненте, но как этот самый поиск реализуется не могу понять. Функции такой нет, как и процедуры. Обыскал все форумы, везде пишут, что поиск работает отлично, есть проблемы только с чувствительностью к реестру букв.

Как реализуется этот поиск? У меня на форме есть Virtual Treeview и эдит. При вводе в эдит узлы в тривью должны прятаться, оставляя только похожие на результат узлы. Но мне хотя бы понять эту функцию...

Заранее спасибо.

[mihali4]

Попробую вам помочь... Из моего проекта
http://www.programmersforum.ru/attac...0&d=1289064136
Там поиск именно так организован...

procedure Tfmain.EFindChange(Sender: TObject); //EFind - это простой эдит, куда вводим строку поиска
var i: integer;
begin
//if start then
//exit;
//Peek('menutick.wav');
//DBAnswMemo.Clear;
EFind.Enabled:=False; //это запрещаем вносить изменения в поисковую строку, пока ищем на данном этапе
LBFound.Clear; //LBFound - это листбокс, куда "складываем найденное
LBFound.Enabled:=False;
for i:=0 to TreeView.Items.Count-1 do
begin
//if PMyRec(TreeView.Items.Item[i].Data)^.LName='Quest' then
if Pos(AnsiUpperCase(EFind.Text),AnsiUpperCase(TreeView.Items.Item[i].Text))>0 then
LBFound.Items.AddObject(TreeView.Items.Item[i].Text,TreeView.Items.Item[i]);
Application.ProcessMessages;
end;
LBFound.ItemIndex:=0;
LBFound.Enabled:=True;
LBFound.ClearSelection;
//if GBFinder.Visible then
//begin
EFind.Enabled:=True;
EFind.SetFocus;
EFind.SelStart:=Length(EFind.Text);
//end;
Application.ProcessMessages;
end;

Где-то так... Может, и пропустил что-то ненужное... Или не закомментировал...

[kettanaito]

mihali4, ваш пример очень хорош, спасибо вам большое. Не знаю смогу ли я переделать его под Virtual Treeview, т.к. там нет понятия items (в добавок ко всему мой алгоритм добавления узлов таков, что в неактивном состоянии самые последние материнские узлы пусты, пока не будут открыты). Я постараюсь..

[mihali4]

В чем смысл использования вами левого компонента Virtual Treeview ?
Может, проще добавить к оригиналу то, чего вам не хватает ?

[kettanaito]

mihali4, тут скорее не в компоненте проблема... У меня древо, в котором должен производится поиск, пустое. В корневом узле отображаются пару дочерних узлов. У этих дочерних узлов нет ChildNodes, но они добавляются при двойному клику на этот дочерний узел. Искать то, чего нет, это вряд ли выйдет...

А можно ли таким же образом реализовать поиск по компьютеру в целом? Или по выбранным директориям? (В фоновом для пользователя режиме)