TSimbaTreeView: Delay filtering while in begin/endupdate

Author: ollydev

Source/simba.component_treeview.pas

@@ -91,6 +91,7 @@   TSimbaTreeView = class(TCustomControl)
       Callback: TKeyEvent;
     end;
     FModified: Boolean;
+    FPendingFilter: Boolean; // filter changed while in beginupdate/endupdate
 
     procedure FontChanged(Sender: TObject); override;
 
@@ -470,6 +471,13 @@ procedure TSimbaTreeView.UpdateFilter;
   Node, NodeParent: TTreeNode;
   FilterText: String;
 begin
+  // delay the filter until EndUpdate
+  if Items.IsUpdating then
+  begin
+    FPendingFilter := True;
+    Exit;
+  end;
+
   FilterText := LowerCase(FFilterEdit.Text);
 
   Items.BeginUpdate();
@@ -662,6 +670,13 @@ procedure TSimbaTreeView.DoEndUpdate(Sender: TObject);
   if FModified and Assigned(FOnModify) then
     FOnModify(Self);
   FModified := False;
+
+  if FPendingFilter then
+  begin
+    FPendingFilter := False;
+
+    UpdateFilter();
+  end;
 end;
 
 procedure TSimbaTreeView.DoTreeAddOrDelete(Sender: TObject; Node: TTreeNode);