Move search prompt to resource string.

mRemoteV1/Language/Language.Designer.vb

@@ -5033,6 +5033,15 @@ Namespace My
             End Get
         End Property
         
+        '''<summary>
+        '''  Looks up a localized string similar to Search.
+        '''</summary>
+        Friend Shared ReadOnly Property strSearchPrompt() As String
+            Get
+                Return ResourceManager.GetString("strSearchPrompt", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Looks up a localized string similar to Send To....
         '''</summary>

mRemoteV1/Language/Language.resx

@@ -2064,4 +2064,7 @@ mRemoteNG will now quit and begin with the installation.</value>
   <data name="strIdentifyQuickConnectTabs" xml:space="preserve">
     <value>Identify quick connect tabs by adding the prefix "Quick:"</value>
   </data>
+  <data name="strSearchPrompt" xml:space="preserve">
+    <value>Search</value>
+  </data>
 </root>

mRemoteV1/UI/UI.Window.Tree.vb

@@ -1,4 +1,5 @@
 Imports mRemoteNG.Connection
+Imports mRemoteNG.My
 Imports WeifenLuo.WinFormsUI.Docking
 Imports mRemoteNG.App.Runtime
 
@@ -501,7 +502,7 @@ Namespace UI
                 mMenViewExpandAllFolders.Text = My.Language.strExpandAllFolders
                 mMenViewCollapseAllFolders.Text = My.Language.strCollapseAllFolders
                 mMenSortAscending.ToolTipText = My.Language.strSortAsc
-                txtSearch.Text = "Search"
+                txtSearch.Text = Language.strSearchPrompt
                 TabText = My.Language.strConnections
                 Text = My.Language.strConnections
             End Sub
@@ -1210,7 +1211,7 @@ Namespace UI
 #Region "Search"
             Private Sub txtSearch_GotFocus(ByVal sender As Object, ByVal e As EventArgs) Handles txtSearch.GotFocus
                 txtSearch.ForeColor = SystemColors.WindowText
-                If txtSearch.Text = "Search" Then
+                If txtSearch.Text = Language.strSearchPrompt Then
                     txtSearch.Text = ""
                 End If
             End Sub
@@ -1218,7 +1219,7 @@ Namespace UI
             Private Sub txtSearch_LostFocus(ByVal sender As Object, ByVal e As EventArgs) Handles txtSearch.LostFocus
                 If txtSearch.Text = "" Then
                     txtSearch.ForeColor = SystemColors.GrayText
-                    txtSearch.Text = "Search"
+                    txtSearch.Text = Language.strSearchPrompt
                 End If
             End Sub