[Solved] TTreeFilterEdit.OnFilterNode works bad

[AlexTP]

I added my handler, to allow filtering by N space-separated words in the filter field.
My handler:

Code: Pascal  [Select][+][-]

1. function TfmMain.CodeTreeFilter_OnFilterNode(ItemNode: TTreeNode; out Done: Boolean): Boolean;
2. var
3.   SNodeText: string;
4.   SItem: string;
5.   Sep: TATStringSeparator;
6. begin
7.   SNodeText:= LowerCase(ItemNode.Text);
8.   Sep.Init(CodeTreeFilter.FilterLowercase, ' ');
9.   while Sep.GetItemStr(SItem) do
10.   begin
11.     if Pos(SItem, SNodeText)=0 then
12.     begin
13.       Done:= true;
14.       exit(false);
15.     end;
16.   end;
17.   Done:= true;
18.   Result:= true;
19. end;    
20.  

when at least one space-separated word don't match, I return False and set Done=true. If all words are present - i return True and set Done=true. Is this OK logic?
But result is bad!

Lazarus 2.3.0 (rev main-2_3-3327-g27bf5d2ba7) FPC 3.2.3 x86_64-linux-gtk2

Maybe TreeFilterEdit event is buggy?

[AlexTP]

I tried to not set Done to True. but again: filtering by n words don't work then (it filters only by 1st word). I am looking at the example of TreeFilterEdit which filters by space-separated words.

[JuhaManninen]

Lazarus 2.3.0 (rev main-2_3-3327-g27bf5d2ba7) FPC 3.2.3 x86_64-linux-gtk2

That is from 6 of May. Please update to latest revision.

[AlexTP]

Updated, works now.