paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 03:48:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, TreeView: fix GetNextVisible, GetPrevVisible. Issue #21264

Browse Source 
- Visible means "property Visible" (and all parents Visible and Expanded)
- It does not mean: within the scrolled-in area

git-svn-id: trunk@36577 -
This commit is contained in:
martin 2012-04-05 12:47:07 +00:00
parent 51262ce4b0
commit 01f0b60bfc
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

@ -889,7 +889,7 @@ begin
if Result<>nil then
Result:=Result.GetNextVisibleSibling;
end;
if (Result<>nil) and ((not Result.IsVisible) or (not Result.FVisible)) then
if (Result<>nil) and ( (not Result.FVisible) or (not AreParentsExpandedAndVisible) ) then
Result:=nil;
end;
@ -917,7 +917,7 @@ begin
end
else
Result := Parent;
if (Result<>nil) and (TreeView<>nil) and (not TreeView.IsNodeVisible(Result)) then
if (Result<>nil) and ( (not Result.FVisible) or (not AreParentsExpandedAndVisible) ) then
Result:=nil;
end;