Moved strings to resource (frmGameTags, frmIncludeExclude, frmSettings)

GBM/Forms/frmFilter.vb

@@ -157,6 +157,7 @@ Public Class frmFilter
         lblCompany.Text = frmFilter_lblCompany
         lblProcess.Text = frmFilter_lblProcess
         lblName.Text = frmFilter_lblName
+        grpGameInfoOptions.Text = frmFilter_grpGameInfoOptions
         optAll.Text = frmFilter_optAll
         optAny.Text = frmFilter_optAny
         lblGameTags.Text = frmFilter_lblGameTags
@@ -164,6 +165,7 @@ Public Class frmFilter
         btnRemove.Text = frmFilter_btnRemove
         btnAdd.Text = frmFilter_btnAdd
         btnOK.Text = frmFilter_btnOK
+        grpTagOptions.Text = frmFilter_grpTagOptions
         optTag.Text = frmFilter_optTag
         optGameInfo.Text = frmFilter_optGameInfo
     End Sub

GBM/Forms/frmGameManager.vb

@@ -1227,6 +1227,10 @@ Public Class frmGameManager
         Me.Name = frmGameManager_FormName
 
         'Set Form text
+        grpFilter.Text = frmGameManager_grpFilter
+        grpConfig.Text = frmGameManager_grpConfig
+        grpExtra.Text = frmGameManager_grpExtra
+        grpStats.Text = frmGameManager_grpStats
         btnExport.Text = frmGameManager_btnExport
         btnImport.Text = frmGameManager_btnImport
         optCustom.Text = frmGameManager_optCustom

GBM/Forms/frmGameTags.vb

@@ -1,4 +1,6 @@
-Public Class frmGameTags
+Imports GBM.My.Resources
+
+Public Class frmGameTags
 
     Dim sMonitorIDs As List(Of String)
     Dim sGameName As String = String.Empty
@@ -31,7 +33,7 @@
             oData = lstTags.SelectedItems(0)
 
             oGameTags = New List(Of clsGameTag)
-            For Each sID As String In IDList                
+            For Each sID As String In IDList
                 oGameTag = New clsGameTag
                 oGameTag.MonitorID = sID
                 oGameTag.TagID = oData.Key
@@ -160,14 +162,24 @@
     End Sub
 
     Private Sub SetForm()
+        'Set Form Name
         If IDList.Count > 1 Then
-            Me.Text = "Edit Tags for Multiple Games"
+            Me.Text = frmGameTags_FormNameMulti
         Else
-            Me.Text = "Edit Tags for " & GameName
+            Me.Text = mgrCommon.FormatString(frmGameTags_FormNameSingle, GameName)
         End If
+
+        'Set Form Text
+        btnOpenTags.Text = frmGameTags_btnOpenTags
+        btnClose.Text = frmGameTags_btnClose
+        lblGameTags.Text = frmGameTags_lblGameTags
+        lblTags.Text = frmGameTags_lblTags
+        btnRemove.Text = frmGameTags_btnRemove
+        btnAdd.Text = frmGameTags_btnAdd
+
     End Sub
 
-    Private Sub frmGameTags_Load(sender As Object, e As EventArgs) Handles MyBase.Load       
+    Private Sub frmGameTags_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         LoadData()
         SetForm()
     End Sub

GBM/Forms/frmIncludeExclude.vb

@@ -1,8 +1,9 @@
-Imports System.IO
+Imports GBM.My.Resources
+Imports System.IO
 
 Public Class frmIncludeExclude
 
-    Dim sFormName As String = "Builder"
+    Dim sFormName As String = String.Empty
     Dim sRootFolder As String = String.Empty
     Dim sBuilderString As String
 
@@ -72,7 +73,7 @@ Public Class frmIncludeExclude
             Catch uaex As UnauthorizedAccessException
                 'Do Nothing
             Catch ex As Exception
-                mgrCommon.ShowMessage("An unexpected error occured while reading the file system: " & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Critical)
+                mgrCommon.ShowMessage(frmIncludeExclude_ErrorFileSystemRead, ex.Message, MsgBoxStyle.Critical)
             Finally
                 treFiles.EndUpdate()
                 Cursor.Current = Cursors.Default
@@ -107,7 +108,7 @@ Public Class frmIncludeExclude
             End If
         End If
 
-        sNewPath = mgrCommon.OpenFolderBrowser("Choose the location of the saved game folder:", sDefaultFolder, False)
+        sNewPath = mgrCommon.OpenFolderBrowser(frmIncludeExclude_BrowseSaveFolder, sDefaultFolder, False)
 
         If sNewPath <> String.Empty Then txtRootFolder.Text = sNewPath
     End Sub
@@ -222,30 +223,51 @@ Public Class frmIncludeExclude
     Private Sub OpenRawEdit()
         Dim sCurrentString As String = CreateNewBuilderString()
         Dim sNewString As String
-        sNewString = InputBox("Items are semi-colon delimited.", FormName & " Raw Edit", sCurrentString)
+        sNewString = InputBox(frmIncludeExclude_RawEditInfo, mgrCommon.FormatString(frmIncludeExclude_RawEditTitle, FormName), sCurrentString)
         If sNewString <> String.Empty Then
             ParseBuilderString(sNewString)
         End If
     End Sub
 
-    Private Sub frmIncludeExclude_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.Text = FormName & " Builder"
+    Private Sub SetForm()
+        'Set Form Name
+        Me.Text = mgrCommon.FormatString(frmIncludeExclude_FormName, FormName)
+
+        'Set Form Text
+        lblSaveFolder.Text = frmIncludeExclude_lblSaveFolder
+        btnRawEdit.Text = frmIncludeExclude_btnRawEdit
+        lblItems.Text = mgrCommon.FormatString(frmIncludeExclude_lblItems, FormName)
+        grpFileOptions.Text = mgrCommon.FormatString(frmIncludeExclude_grpFileOptions, FormName)
+        optFileTypes.Text = frmIncludeExclude_optFileTypes
+        optIndividualFiles.Text = frmIncludeExclude_optIndividualFiles
+        btnRemove.Text = frmIncludeExclude_btnRemove
+        btnAdd.Text = frmIncludeExclude_btnAdd
+        btnBrowse.Text = frmIncludeExclude_btnBrowse
+        btnCancel.Text = frmIncludeExclude_btnCancel
+        btnSave.Text = frmIncludeExclude_btnSave
+        cmsAdd.Text = frmIncludeExclude_cmsAdd
+        cmsEdit.Text = frmIncludeExclude_cmsEdit
+        cmsRemove.Text = frmIncludeExclude_cmsRemove
+
+        'Set Defaults
         txtRootFolder.Text = RootFolder
         optFileTypes.Checked = True
-        lblItems.Text = FormName & " Items"
-        grpFileOptions.Text = FormName & " Options"
         If BuilderString <> String.Empty Then ParseBuilderString(BuilderString)
         If txtRootFolder.Text <> String.Empty Then BuildTrunk()
     End Sub
 
+    Private Sub frmIncludeExclude_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        SetForm()
+    End Sub
+
     Private Sub frmIncludeExclude_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         treFiles.Select()
         If Not treFiles.SelectedNode Is Nothing Then treFiles.SelectedNode.Expand()
         If txtRootFolder.Text = String.Empty Then
-            ttWarning.ToolTipTitle = "Saved Game Explorer"
-            ttWarning.SetToolTip(treFiles, "Set the saved game folder using the button above.")
-            ttWarning.SetToolTip(txtRootFolder, "The saved game folder could not be determined or does not exist.")
-            ttWarning.SetToolTip(btnBrowse, "Click here to set the saved game folder.")
+            ttWarning.ToolTipTitle = frmIncludeExclude_ToolTipTitle
+            ttWarning.SetToolTip(treFiles, frmIncludeExclude_ToolTipFiles)
+            ttWarning.SetToolTip(txtRootFolder, frmIncludeExclude_ToolTipFolder)
+            ttWarning.SetToolTip(btnBrowse, frmIncludeExclude_ToolTipBrowse)
         End If
     End Sub
 
@@ -305,7 +327,7 @@ Public Class frmIncludeExclude
     End Sub
 
     Private Sub cmsAdd_Click(sender As Object, e As EventArgs) Handles cmsAdd.Click
-        Dim oNewItem As New ListViewItem("Custom Item", 1)
+        Dim oNewItem As New ListViewItem(frmIncludeExclude_CustomItem, 1)
         oNewItem.Selected = True
         lstBuilder.Items.Add(oNewItem)        
         lstBuilder.SelectedItems(0).BeginEdit()

GBM/Forms/frmSettings.vb

@@ -1,4 +1,6 @@
-Public Class frmSettings
+Imports GBM.My.Resources
+
+Public Class frmSettings
     Dim bShutdown As Boolean = False
     Dim bBackupLocationChanged As Boolean = False
     Dim bCheckSumDisabled As Boolean = False
@@ -47,7 +49,7 @@
         oSettings.StartWithWindows = chkStartWindows.Checked
 
         oSettings.MonitorOnStartup = chkMonitorOnStartup.Checked
-        oSettings.StartToTray = chkStartToTray.Checked        
+        oSettings.StartToTray = chkStartToTray.Checked
         oSettings.ShowDetectionToolTips = chkShowDetectionTips.Checked
         oSettings.DisableConfirmation = chkBackupConfirm.Checked
         oSettings.CreateSubFolder = chkCreateFolder.Checked
@@ -75,7 +77,7 @@
             End If
             oSettings.BackupFolder = txtBackupFolder.Text
         Else
-            mgrCommon.ShowMessage("The backup folder does not exist.  Please choose a valid backup folder.", MsgBoxStyle.Exclamation)
+            mgrCommon.ShowMessage(frmSettings_ErrorBackupFolder, MsgBoxStyle.Exclamation)
             Return False
         End If
 
@@ -108,7 +110,6 @@
         chkTimeTracking.Checked = oSettings.TimeTracking
         chkSupressBackup.Checked = oSettings.SupressBackup
         nudSupressBackupThreshold.Value = oSettings.SupressBackupThreshold
-
         nudSupressBackupThreshold.Enabled = chkSupressBackup.Checked
     End Sub
 
@@ -130,15 +131,42 @@
         End If
     End Sub
 
+    Private Sub SetForm()
+        'Set Form Name
+        Me.Text = frmSettings_FormName
+
+        'Set Form Text
+        grpBackup.Text = frmSettings_grpBackup
+        lblMinutes.Text = frmSettings_lblMinutes
+        chkSupressBackup.Text = frmSettings_chkSupressBackup
+        chkCheckSum.Text = frmSettings_chkCheckSum
+        chkRestoreOnLaunch.Text = frmSettings_chkRestoreOnLaunch
+        chkOverwriteWarning.Text = frmSettings_chkOverwriteWarning
+        chkCreateFolder.Text = frmSettings_chkCreateFolder
+        chkBackupConfirm.Text = frmSettings_chkBackupConfirm
+        btnCancel.Text = frmSettings_btnCancel
+        btnSave.Text = frmSettings_btnSave
+        grpPaths.Text = frmSettings_grpPaths
+        btnBackupFolder.Text = frmSettings_btnBackupFolder
+        lblBackupFolder.Text = frmSettings_lblBackupFolder
+        grpGeneral.Text = frmSettings_grpGeneral
+        chkTimeTracking.Text = frmSettings_chkTimeTracking
+        chkStartWindows.Text = frmSettings_chkStartWindows
+        chkSync.Text = frmSettings_chkSync
+        chkShowDetectionTips.Text = frmSettings_chkShowDetectionTips
+        chkStartToTray.Text = frmSettings_chkStartToTray
+        chkMonitorOnStartup.Text = frmSettings_chkMonitorOnStartup
+    End Sub
+
     Private Sub frmSettings_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
+        SetForm()
         LoadSettings()
     End Sub
 
     Private Sub btnBackupFolder_Click(sender As System.Object, e As System.EventArgs) Handles btnBackupFolder.Click
-        fbBrowser.SelectedPath = oSettings.BackupFolder
-        If fbBrowser.ShowDialog() = Windows.Forms.DialogResult.OK Then
-            txtBackupFolder.Text = fbBrowser.SelectedPath
-        End If
+        Dim sNewFolder As String
+        sNewFolder = mgrCommon.OpenFolderBrowser(frmSettings_BrowseFolder, oSettings.BackupFolder, True)
+        If sNewFolder <> String.Empty Then txtBackupFolder.Text = sNewFolder
     End Sub
 
     Private Sub chkSupressBackup_CheckedChanged(sender As Object, e As EventArgs) Handles chkSupressBackup.CheckedChanged

GBM/Forms/frmStartUpWizard.vb

@@ -180,7 +180,7 @@ Public Class frmStartUpWizard
             End If
         End If
 
-        sNewPath = mgrCommon.OpenFolderBrowser("Choose GBM backup folder:", sDefaultFolder, False)
+        sNewPath = mgrCommon.OpenFolderBrowser("Choose a backup folder:", sDefaultFolder, True)
 
         If sNewPath <> String.Empty Then txtBackupPath.Text = sNewPath
     End Sub
@@ -195,6 +195,11 @@ Public Class frmStartUpWizard
 
     Private Sub frmStartUpWizard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         FormInit()
+
+        Dim sResource As String = String.Empty
+        Dim sCode As String = String.Empty
+        mgrCommon.GetAllStrings(Me, sResource, sCode, "frmStartUpWizard")
+        Clipboard.SetText(sResource & vbCrLf & vbCrLf & sCode)
     End Sub
 
     Private Sub btnFolderBrowse_Click(sender As Object, e As EventArgs) Handles btnFolderBrowse.Click