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

TreeView: fix selecting visible items.

Browse Source 
git-svn-id: trunk@34897 -
This commit is contained in:
juha 2012-01-24 14:08:08 +00:00
parent 856301bb01
commit 75d7918d0a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/treeview.inc
View File

@ -902,7 +902,7 @@ begin
Result:=GetPrevVisibleSibling;
if Result <> nil then begin
while Result.Visible and Result.Expanded do begin
ANode:=Result.GetLastChild;
ANode:=Result.GetLastVisibleChild;
if ANode=nil then break;
Result:=ANode;
end;