Infinite loop in GetPreviousVisibleNoInit

[asviridenkov]

Code

          if Assigned(Result.PrevSibling) then
          begin
            // No children anymore, so take the previous sibling.
            if vsVisible in Result.PrevSibling.States then
            begin
              Result := Result.PrevSibling;
              Break;
            end;
          end

Should be changed to

          if Assigned(Result.PrevSibling) then
          begin
            // No children anymore, so take the previous sibling.
             Result := Result.PrevSibling;
            if vsVisible in Result.States then
              Break;
          end

or in come cases (PrevSibling is assigned but not visible) tree will go in infinite loop.

[joachimmarder]

Thanks, change is merged to master.