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

TreeView: add a Nil pointer check

Browse Source 
git-svn-id: trunk@34662 -
This commit is contained in:
juha 2012-01-08 12:03:55 +00:00
parent 6a0b924a7b
commit da787feb8d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/treeview.inc
View File

@ -5556,8 +5556,8 @@ begin
Items.ClearMultiSelection(True); // Now clears all multi-selections
end
else begin
ANode := Selected;
if not ANode.Visible then // Clear a single selection only if not visible
ANode := Selected; // Clear a single selection only if not visible
if Assigned(ANode) and not ANode.Visible then
ANode.Selected:=False; // Selected := nil;
end;
end;