paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 20:59:36 +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; end;
procedure TTreeFilterBranch.Move(CurIndex, NewIndex: integer); procedure TTreeFilterBranch.Move(CurIndex, NewIndex: integer);
var
item: TTreeNode;
begin begin
fOwner.StoreSelection; item := fRootNode.Items[CurIndex];
item.Index := NewIndex;
item.MakeVisible;
fOriginalData.Move(CurIndex, NewIndex); fOriginalData.Move(CurIndex, NewIndex);
InvalidateBranch;
fOwner.RestoreSelection;
end; end;
{ TFileNameItem } { TFileNameItem }