Loop 'Object Browser' search

Author: Timocop

BasicPawn/Controls and Forms/FormMain.resx

@@ -550,7 +550,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABG
-        CQAAAk1TRnQBSQFMAgEBAgEAAeABDwHgAQ8BEAEAARABAAT/ASEBAAj/AUIBTQE2BwABNgMAASgDAAFA
+        CQAAAk1TRnQBSQFMAgEBAgEAAfABDwHwAQ8BEAEAARABAAT/ASEBAAj/AUIBTQE2BwABNgMAASgDAAFA
         AwABEAMAAQEBAAEgBgABEBIAAy4BSAM8AWgDEwEa9AABpgGhAaQB/wMAAf8DPgFsAwYBCBgAAaoCAAH/
         1AADWAG8AecB5QHnAf8DWgHkAy0BRQMAAQEUAAGqAgAB/wGyAgAB/xAAA4QB/wODAf8DggH/A4EB/wOA
         Af8DAAH/AwAB/wMAAf8DAAH/AwAB/wMAAf8DAAH/AwAB/wMAAf8DAAH/AwAB/4AAAwwBEANcAc8B5QHj

BasicPawn/Controls and Forms/UCObjectBrowser.vb

@@ -222,13 +222,25 @@ Public Class UCObjectBrowser
             End If
         Next
 
-        For i = iSelectedIndex + 1 To mTreeNodes.Length - 1
-            If (mTreeNodes(i).Text.ToLower.Contains(sSearchText.ToLower)) Then
-                TreeView_ObjectBrowser.SelectedNode = mTreeNodes(i)
-                TreeView_ObjectBrowser.SelectedNode.EnsureVisible()
-                Exit For
-            End If
-        Next
+        While True
+            For i = iSelectedIndex + 1 To mTreeNodes.Length - 1
+                If (mTreeNodes(i).Text.ToLower.Contains(sSearchText.ToLower)) Then
+                    TreeView_ObjectBrowser.SelectedNode = mTreeNodes(i)
+                    TreeView_ObjectBrowser.SelectedNode.EnsureVisible()
+                    Exit While
+                End If
+            Next
+
+            For i = 0 To mTreeNodes.Length - 1
+                If (mTreeNodes(i).Text.ToLower.Contains(sSearchText.ToLower)) Then
+                    TreeView_ObjectBrowser.SelectedNode = mTreeNodes(i)
+                    TreeView_ObjectBrowser.SelectedNode.EnsureVisible()
+                    Exit While
+                End If
+            Next
+
+            Exit While
+        End While
     End Sub
 
     Private Function GetAllTreeViewNodes(mTreeView As TreeView) As TreeNode()