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

LCL: TTreeView: clean up

Browse Source 
git-svn-id: trunk@36752 -
This commit is contained in:
mattias 2012-04-13 16:30:06 +00:00
parent dff0b6499a
commit 43f74e4964
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/treeview.inc
View File

@ -5611,8 +5611,7 @@ var
ANode: TTreeNode;
begin
if tvoAllowMultiSelect in FOptions then begin
ANode := FTreeNodes.FLastMultiSelected;
Items.ClearMultiSelection(True); // Now clears all multi-selections
Items.ClearMultiSelection(True); // Now clears all multi-selected
end
else begin
ANode := Selected; // Clear a single selection only if not visible