From de07d13b017ee7e42a58a521b2f7147b93ed3c0b Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Sun, 26 Mar 2023 17:22:35 +0300
Subject: [PATCH] LazControls: Optimize TTreeFilterBranch.Move(). A total
 redraw is not needed.

---
 components/lazcontrols/treefilteredit.pas | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/components/lazcontrols/treefilteredit.pas b/components/lazcontrols/treefilteredit.pas
index 1eb1e91124..10f9f037a8 100644
--- a/components/lazcontrols/treefilteredit.pas
+++ b/components/lazcontrols/treefilteredit.pas
@@ -397,11 +397,13 @@ begin
 end;
 
 procedure TTreeFilterBranch.Move(CurIndex, NewIndex: integer);
+var
+  item: TTreeNode;
 begin
-  fOwner.StoreSelection;
+  item := fRootNode.Items[CurIndex];
+  item.Index := NewIndex;
+  item.MakeVisible;
   fOriginalData.Move(CurIndex, NewIndex);
-  InvalidateBranch;
-  fOwner.RestoreSelection;
 end;
 
 { TFileNameItem }