paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 02:19:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazControls: Optimize TTreeFilterBranch.Move(). A total redraw is not needed.

Browse Source
This commit is contained in:
Juha 2023-03-26 17:22:35 +03:00
parent 785fdec71b
commit de07d13b01
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazcontrols/treefilteredit.pas
View File

@ -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 }