Commit 01f0b60b authored by Martin's avatar Martin
Browse files

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

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

git-svn-id: trunk@36577 -
parent 51262ce4
......@@ -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;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment