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

LCL: fix TreeNode.Selected behavior. Issue #25178, patch from Ocean.

Browse Source 
git-svn-id: trunk@43312 -
This commit is contained in:
juha 2013-10-23 22:51:22 +00:00
parent 126d8b1499
commit bef40f8589
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

@ -730,6 +730,8 @@ end;
function TTreeNode.GetSelected: Boolean; function TTreeNode.GetSelected: Boolean;
begin begin
Result := GetState(nsSelected); Result := GetState(nsSelected);
if (not Result) and (tvoAllowMultiSelect in TreeView.Options) then
Result := GetState(nsMultiSelected);
end; end;
procedure TTreeNode.SetSelected(AValue: Boolean); procedure TTreeNode.SetSelected(AValue: Boolean);