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

LCL, Treeview: redraw nodes after sorting them. Issue #23697

Browse Source 
git-svn-id: trunk@39898 -
This commit is contained in:
juha 2013-01-19 19:33:02 +00:00
parent 7db10c0527
commit 12fb700d61
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/treeview.inc
View File

@ -1715,6 +1715,8 @@ begin
if not Assigned(SortProc) then SortProc:=@DefaultTreeViewSort; if not Assigned(SortProc) then SortProc:=@DefaultTreeViewSort;
Sort(FItems, FCount, SortProc, true); Sort(FItems, FCount, SortProc, true);
end; end;
if (TreeView <> nil) then
Include(TreeView.FStates, tvsTopsNeedsUpdate);
Result:=true; Result:=true;
end; end;