diff --git a/MainForm.Designer.vb b/MainForm.Designer.vb index 5f3d959d..28052657 100644 --- a/MainForm.Designer.vb +++ b/MainForm.Designer.vb @@ -179,6 +179,7 @@ Partial Class MainForm Me.ToolStripSeparator42 = New System.Windows.Forms.ToolStripSeparator() Me.RegCplToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator43 = New System.Windows.Forms.ToolStripSeparator() + Me.WebResourcesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.LanguagesAndOptionalFeaturesISOToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator41 = New System.Windows.Forms.ToolStripSeparator() Me.ReportManagerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -476,6 +477,7 @@ Partial Class MainForm Me.WIEDownloaderBW = New System.ComponentModel.BackgroundWorker() Me.VideoGetterBW = New System.ComponentModel.BackgroundWorker() Me.MountedImageDetectorBWRestarterTimer = New System.Windows.Forms.Timer(Me.components) + Me.LanguagesAndFODWin10ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.MenuStrip1.SuspendLayout() Me.HomePanel.SuspendLayout() Me.WelcomePanel.SuspendLayout() @@ -1416,7 +1418,7 @@ Partial Class MainForm ' 'ToolsToolStripMenuItem ' - Me.ToolsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ImageConversionToolStripMenuItem, Me.ToolStripSeparator12, Me.MergeSWM, Me.ToolStripSeparator18, Me.RemountImageWithWritePermissionsToolStripMenuItem, Me.ToolStripSeparator13, Me.CommandShellToolStripMenuItem, Me.ToolStripSeparator16, Me.UnattendedAnswerFileManagerToolStripMenuItem, Me.UnattendedAnswerFileCreatorToolStripMenuItem, Me.ToolStripSeparator42, Me.RegCplToolStripMenuItem, Me.ToolStripSeparator43, Me.LanguagesAndOptionalFeaturesISOToolStripMenuItem, Me.ToolStripSeparator41, Me.ReportManagerToolStripMenuItem, Me.MountedImageManagerTSMI, Me.ToolStripSeparator28, Me.CreateDiscImageToolStripMenuItem, Me.CreateTestingEnvironmentToolStripMenuItem, Me.ToolStripSeparator38, Me.WimScriptEditorCommand, Me.ToolStripSeparator9, Me.ActionEditorToolStripMenuItem, Me.ToolStripSeparator22, Me.OptionsToolStripMenuItem}) + Me.ToolsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ImageConversionToolStripMenuItem, Me.ToolStripSeparator12, Me.MergeSWM, Me.ToolStripSeparator18, Me.RemountImageWithWritePermissionsToolStripMenuItem, Me.ToolStripSeparator13, Me.CommandShellToolStripMenuItem, Me.ToolStripSeparator16, Me.UnattendedAnswerFileManagerToolStripMenuItem, Me.UnattendedAnswerFileCreatorToolStripMenuItem, Me.ToolStripSeparator42, Me.RegCplToolStripMenuItem, Me.ToolStripSeparator43, Me.WebResourcesToolStripMenuItem, Me.ToolStripSeparator41, Me.ReportManagerToolStripMenuItem, Me.MountedImageManagerTSMI, Me.ToolStripSeparator28, Me.CreateDiscImageToolStripMenuItem, Me.CreateTestingEnvironmentToolStripMenuItem, Me.ToolStripSeparator38, Me.WimScriptEditorCommand, Me.ToolStripSeparator9, Me.ActionEditorToolStripMenuItem, Me.ToolStripSeparator22, Me.OptionsToolStripMenuItem}) Me.ToolsToolStripMenuItem.Name = "ToolsToolStripMenuItem" Me.ToolsToolStripMenuItem.Size = New System.Drawing.Size(47, 20) Me.ToolsToolStripMenuItem.Text = "&Tools" @@ -1425,7 +1427,7 @@ Partial Class MainForm ' Me.ImageConversionToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.WIMESDToolStripMenuItem}) Me.ImageConversionToolStripMenuItem.Name = "ImageConversionToolStripMenuItem" - Me.ImageConversionToolStripMenuItem.Size = New System.Drawing.Size(342, 22) + Me.ImageConversionToolStripMenuItem.Size = New System.Drawing.Size(280, 22) Me.ImageConversionToolStripMenuItem.Text = "Image conversion" ' 'WIMESDToolStripMenuItem @@ -1437,141 +1439,148 @@ Partial Class MainForm 'ToolStripSeparator12 ' Me.ToolStripSeparator12.Name = "ToolStripSeparator12" - Me.ToolStripSeparator12.Size = New System.Drawing.Size(339, 6) + Me.ToolStripSeparator12.Size = New System.Drawing.Size(277, 6) ' 'MergeSWM ' Me.MergeSWM.Name = "MergeSWM" - Me.MergeSWM.Size = New System.Drawing.Size(342, 22) + Me.MergeSWM.Size = New System.Drawing.Size(280, 22) Me.MergeSWM.Text = "Merge SWM files..." ' 'ToolStripSeparator18 ' Me.ToolStripSeparator18.Name = "ToolStripSeparator18" - Me.ToolStripSeparator18.Size = New System.Drawing.Size(339, 6) + Me.ToolStripSeparator18.Size = New System.Drawing.Size(277, 6) ' 'RemountImageWithWritePermissionsToolStripMenuItem ' Me.RemountImageWithWritePermissionsToolStripMenuItem.Enabled = False Me.RemountImageWithWritePermissionsToolStripMenuItem.Name = "RemountImageWithWritePermissionsToolStripMenuItem" - Me.RemountImageWithWritePermissionsToolStripMenuItem.Size = New System.Drawing.Size(342, 22) + Me.RemountImageWithWritePermissionsToolStripMenuItem.Size = New System.Drawing.Size(280, 22) Me.RemountImageWithWritePermissionsToolStripMenuItem.Text = "Remount image with write permissions" ' 'ToolStripSeparator13 ' Me.ToolStripSeparator13.Name = "ToolStripSeparator13" - Me.ToolStripSeparator13.Size = New System.Drawing.Size(339, 6) + Me.ToolStripSeparator13.Size = New System.Drawing.Size(277, 6) ' 'CommandShellToolStripMenuItem ' Me.CommandShellToolStripMenuItem.Name = "CommandShellToolStripMenuItem" - Me.CommandShellToolStripMenuItem.Size = New System.Drawing.Size(342, 22) + Me.CommandShellToolStripMenuItem.Size = New System.Drawing.Size(280, 22) Me.CommandShellToolStripMenuItem.Text = "Command Console" ' 'ToolStripSeparator16 ' Me.ToolStripSeparator16.Name = "ToolStripSeparator16" - Me.ToolStripSeparator16.Size = New System.Drawing.Size(339, 6) + Me.ToolStripSeparator16.Size = New System.Drawing.Size(277, 6) ' 'UnattendedAnswerFileManagerToolStripMenuItem ' Me.UnattendedAnswerFileManagerToolStripMenuItem.Name = "UnattendedAnswerFileManagerToolStripMenuItem" - Me.UnattendedAnswerFileManagerToolStripMenuItem.Size = New System.Drawing.Size(342, 22) + Me.UnattendedAnswerFileManagerToolStripMenuItem.Size = New System.Drawing.Size(280, 22) Me.UnattendedAnswerFileManagerToolStripMenuItem.Text = "Unattended answer file manager" ' 'UnattendedAnswerFileCreatorToolStripMenuItem ' Me.UnattendedAnswerFileCreatorToolStripMenuItem.Name = "UnattendedAnswerFileCreatorToolStripMenuItem" - Me.UnattendedAnswerFileCreatorToolStripMenuItem.Size = New System.Drawing.Size(342, 22) + Me.UnattendedAnswerFileCreatorToolStripMenuItem.Size = New System.Drawing.Size(280, 22) Me.UnattendedAnswerFileCreatorToolStripMenuItem.Text = "Unattended answer file creator" ' 'ToolStripSeparator42 ' Me.ToolStripSeparator42.Name = "ToolStripSeparator42" - Me.ToolStripSeparator42.Size = New System.Drawing.Size(339, 6) + Me.ToolStripSeparator42.Size = New System.Drawing.Size(277, 6) ' 'RegCplToolStripMenuItem ' Me.RegCplToolStripMenuItem.Name = "RegCplToolStripMenuItem" - Me.RegCplToolStripMenuItem.Size = New System.Drawing.Size(342, 22) + Me.RegCplToolStripMenuItem.Size = New System.Drawing.Size(280, 22) Me.RegCplToolStripMenuItem.Text = "Manage image registry hives..." ' 'ToolStripSeparator43 ' Me.ToolStripSeparator43.Name = "ToolStripSeparator43" - Me.ToolStripSeparator43.Size = New System.Drawing.Size(339, 6) + Me.ToolStripSeparator43.Size = New System.Drawing.Size(277, 6) + ' + 'WebResourcesToolStripMenuItem + ' + Me.WebResourcesToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LanguagesAndOptionalFeaturesISOToolStripMenuItem, Me.LanguagesAndFODWin10ToolStripMenuItem}) + Me.WebResourcesToolStripMenuItem.Name = "WebResourcesToolStripMenuItem" + Me.WebResourcesToolStripMenuItem.Size = New System.Drawing.Size(280, 22) + Me.WebResourcesToolStripMenuItem.Text = "Web Resources" ' 'LanguagesAndOptionalFeaturesISOToolStripMenuItem ' Me.LanguagesAndOptionalFeaturesISOToolStripMenuItem.Name = "LanguagesAndOptionalFeaturesISOToolStripMenuItem" - Me.LanguagesAndOptionalFeaturesISOToolStripMenuItem.Size = New System.Drawing.Size(342, 22) + Me.LanguagesAndOptionalFeaturesISOToolStripMenuItem.Size = New System.Drawing.Size(360, 22) Me.LanguagesAndOptionalFeaturesISOToolStripMenuItem.Text = "Download Languages and Optional Features ISOs..." ' 'ToolStripSeparator41 ' Me.ToolStripSeparator41.Name = "ToolStripSeparator41" - Me.ToolStripSeparator41.Size = New System.Drawing.Size(339, 6) + Me.ToolStripSeparator41.Size = New System.Drawing.Size(277, 6) ' 'ReportManagerToolStripMenuItem ' Me.ReportManagerToolStripMenuItem.Name = "ReportManagerToolStripMenuItem" - Me.ReportManagerToolStripMenuItem.Size = New System.Drawing.Size(342, 22) + Me.ReportManagerToolStripMenuItem.Size = New System.Drawing.Size(280, 22) Me.ReportManagerToolStripMenuItem.Text = "Report manager" ' 'MountedImageManagerTSMI ' Me.MountedImageManagerTSMI.Name = "MountedImageManagerTSMI" - Me.MountedImageManagerTSMI.Size = New System.Drawing.Size(342, 22) + Me.MountedImageManagerTSMI.Size = New System.Drawing.Size(280, 22) Me.MountedImageManagerTSMI.Text = "Mounted image manager" ' 'ToolStripSeparator28 ' Me.ToolStripSeparator28.Name = "ToolStripSeparator28" - Me.ToolStripSeparator28.Size = New System.Drawing.Size(339, 6) + Me.ToolStripSeparator28.Size = New System.Drawing.Size(277, 6) ' 'CreateDiscImageToolStripMenuItem ' Me.CreateDiscImageToolStripMenuItem.Name = "CreateDiscImageToolStripMenuItem" - Me.CreateDiscImageToolStripMenuItem.Size = New System.Drawing.Size(342, 22) + Me.CreateDiscImageToolStripMenuItem.Size = New System.Drawing.Size(280, 22) Me.CreateDiscImageToolStripMenuItem.Text = "Create disc image..." ' 'CreateTestingEnvironmentToolStripMenuItem ' Me.CreateTestingEnvironmentToolStripMenuItem.Name = "CreateTestingEnvironmentToolStripMenuItem" - Me.CreateTestingEnvironmentToolStripMenuItem.Size = New System.Drawing.Size(342, 22) + Me.CreateTestingEnvironmentToolStripMenuItem.Size = New System.Drawing.Size(280, 22) Me.CreateTestingEnvironmentToolStripMenuItem.Text = "Create testing environment..." ' 'ToolStripSeparator38 ' Me.ToolStripSeparator38.Name = "ToolStripSeparator38" - Me.ToolStripSeparator38.Size = New System.Drawing.Size(339, 6) + Me.ToolStripSeparator38.Size = New System.Drawing.Size(277, 6) ' 'WimScriptEditorCommand ' Me.WimScriptEditorCommand.Name = "WimScriptEditorCommand" - Me.WimScriptEditorCommand.Size = New System.Drawing.Size(342, 22) + Me.WimScriptEditorCommand.Size = New System.Drawing.Size(280, 22) Me.WimScriptEditorCommand.Text = "Configuration list editor" ' 'ToolStripSeparator9 ' Me.ToolStripSeparator9.Name = "ToolStripSeparator9" - Me.ToolStripSeparator9.Size = New System.Drawing.Size(339, 6) + Me.ToolStripSeparator9.Size = New System.Drawing.Size(277, 6) ' 'ActionEditorToolStripMenuItem ' Me.ActionEditorToolStripMenuItem.Name = "ActionEditorToolStripMenuItem" - Me.ActionEditorToolStripMenuItem.Size = New System.Drawing.Size(342, 22) + Me.ActionEditorToolStripMenuItem.Size = New System.Drawing.Size(280, 22) Me.ActionEditorToolStripMenuItem.Text = "Action editor" ' 'ToolStripSeparator22 ' Me.ToolStripSeparator22.Name = "ToolStripSeparator22" - Me.ToolStripSeparator22.Size = New System.Drawing.Size(339, 6) + Me.ToolStripSeparator22.Size = New System.Drawing.Size(277, 6) ' 'OptionsToolStripMenuItem ' Me.OptionsToolStripMenuItem.Name = "OptionsToolStripMenuItem" - Me.OptionsToolStripMenuItem.Size = New System.Drawing.Size(342, 22) + Me.OptionsToolStripMenuItem.Size = New System.Drawing.Size(280, 22) Me.OptionsToolStripMenuItem.Text = "Options" ' 'HelpToolStripMenuItem @@ -4379,6 +4388,12 @@ Partial Class MainForm ' Me.MountedImageDetectorBWRestarterTimer.Interval = 2000 ' + 'LanguagesAndFODWin10ToolStripMenuItem + ' + Me.LanguagesAndFODWin10ToolStripMenuItem.Name = "LanguagesAndFODWin10ToolStripMenuItem" + Me.LanguagesAndFODWin10ToolStripMenuItem.Size = New System.Drawing.Size(360, 22) + Me.LanguagesAndFODWin10ToolStripMenuItem.Text = "Download Languages and FOD discs for Windows 10..." + ' 'MainForm ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -4938,7 +4953,9 @@ Partial Class MainForm Friend WithEvents RegCplToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents MountedImageDetectorBWRestarterTimer As System.Windows.Forms.Timer Friend WithEvents ToolStripSeparator43 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents LanguagesAndOptionalFeaturesISOToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents WebResourcesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents LanguagesAndOptionalFeaturesISOToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents LanguagesAndFODWin10ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem End Class diff --git a/MainForm.vb b/MainForm.vb index 6fdd2611..66d084b2 100644 --- a/MainForm.vb +++ b/MainForm.vb @@ -4941,6 +4941,24 @@ Public Class MainForm End If End Sub + Sub ChangeMenuItemColors(bgColor As Color, fgColor As Color, itemCollection As ToolStripItemCollection) + For Each tsi As ToolStripItem In itemCollection + If TypeOf tsi Is ToolStripDropDownItem Then + Dim item As ToolStripDropDownItem = CType(tsi, ToolStripDropDownItem) + Try + item.DropDown.BackColor = bgColor + item.DropDown.ForeColor = fgColor + If item.DropDownItems.Count > 0 Then + ChangeMenuItemColors(bgColor, fgColor, item.DropDownItems) + End If + Catch ex As Exception + Debug.WriteLine("Item " & tsi.Name & " of type " & tsi.GetType().ToString() & " could not be modified") + Continue For + End Try + End If + Next + End Sub + ''' ''' Change program colors accordingly. Due to developer's preference, match those of VS2012 ''' @@ -4967,18 +4985,7 @@ Public Class MainForm PrjPanel.ForeColor = Color.White MenuStrip1.BackColor = Color.FromArgb(48, 48, 48) MenuStrip1.ForeColor = Color.White - For Each item As ToolStripDropDownItem In MenuStrip1.Items - item.DropDown.BackColor = Color.FromArgb(27, 27, 28) - item.DropDown.ForeColor = Color.White - Try - For Each dropDownItem As ToolStripDropDownItem In item.DropDownItems - dropDownItem.DropDown.BackColor = Color.FromArgb(27, 27, 28) - dropDownItem.DropDown.ForeColor = Color.White - Next - Catch ex As Exception - Continue For - End Try - Next + ChangeMenuItemColors(Color.FromArgb(27, 27, 28), Color.White, MenuStrip1.Items) PictureBox5.Image = New Bitmap(My.Resources.logo_mainscr_dark) ToolStrip1.BackColor = Color.FromArgb(48, 48, 48) ToolStrip1.ForeColor = Color.White @@ -5017,22 +5024,7 @@ Public Class MainForm TreeViewCMS.ForeColor = Color.White AppxResCMS.ForeColor = Color.White ImgSpecialToolsCMS.ForeColor = Color.White - Dim items = TreeViewCMS.Items - Dim mItem As IEnumerable(Of ToolStripMenuItem) = Enumerable.OfType(Of ToolStripMenuItem)(items) - For Each item As ToolStripDropDownItem In mItem - If item.DropDownItems.Count > 0 Then - Dim ditems = item.DropDownItems - Dim dmItem As IEnumerable(Of ToolStripMenuItem) = Enumerable.OfType(Of ToolStripMenuItem)(ditems) - Try - For Each dropDownItem As ToolStripDropDownItem In dmItem - dropDownItem.BackColor = Color.FromArgb(27, 27, 28) - dropDownItem.ForeColor = Color.White - Next - Catch ex As Exception - Continue For - End Try - End If - Next + ChangeMenuItemColors(Color.FromArgb(27, 27, 28), Color.White, TreeViewCMS.Items) InvalidSettingsTSMI.Image = New Bitmap(My.Resources.setting_error_glyph_dark) BranchTSMI.Image = New Bitmap(My.Resources.branch_dark) ' New design stuff @@ -5058,18 +5050,7 @@ Public Class MainForm PrjPanel.ForeColor = Color.Black MenuStrip1.BackColor = Color.FromArgb(239, 239, 242) MenuStrip1.ForeColor = Color.Black - For Each item As ToolStripDropDownItem In MenuStrip1.Items - item.DropDown.BackColor = Color.FromArgb(231, 232, 236) - item.DropDown.ForeColor = Color.Black - Try - For Each dropDownItem As ToolStripDropDownItem In item.DropDownItems - dropDownItem.DropDown.BackColor = Color.FromArgb(231, 232, 236) - dropDownItem.DropDown.ForeColor = Color.Black - Next - Catch ex As Exception - Continue For - End Try - Next + ChangeMenuItemColors(Color.FromArgb(231, 232, 236), Color.Black, MenuStrip1.Items) PictureBox5.Image = New Bitmap(My.Resources.logo_mainscr_light) ToolStrip1.BackColor = Color.FromArgb(239, 239, 242) ToolStrip1.ForeColor = Color.Black @@ -5108,22 +5089,7 @@ Public Class MainForm TreeViewCMS.ForeColor = Color.Black AppxResCMS.ForeColor = Color.Black ImgSpecialToolsCMS.ForeColor = Color.Black - Dim items = TreeViewCMS.Items - Dim mItem As IEnumerable(Of ToolStripMenuItem) = Enumerable.OfType(Of ToolStripMenuItem)(items) - For Each item As ToolStripDropDownItem In mItem - If item.DropDownItems.Count > 0 Then - Dim ditems = item.DropDownItems - Dim dmItem As IEnumerable(Of ToolStripMenuItem) = Enumerable.OfType(Of ToolStripMenuItem)(ditems) - Try - For Each dropDownItem As ToolStripDropDownItem In dmItem - dropDownItem.BackColor = Color.FromArgb(231, 232, 236) - dropDownItem.ForeColor = Color.Black - Next - Catch ex As Exception - Continue For - End Try - End If - Next + ChangeMenuItemColors(Color.FromArgb(231, 232, 236), Color.Black, TreeViewCMS.Items) InvalidSettingsTSMI.Image = New Bitmap(My.Resources.setting_error_glyph) BranchTSMI.Image = New Bitmap(My.Resources.branch) ' New design stuff @@ -5153,18 +5119,7 @@ Public Class MainForm PrjPanel.ForeColor = Color.Black MenuStrip1.BackColor = Color.FromArgb(239, 239, 242) MenuStrip1.ForeColor = Color.Black - For Each item As ToolStripDropDownItem In MenuStrip1.Items - item.DropDown.BackColor = Color.FromArgb(231, 232, 236) - item.DropDown.ForeColor = Color.Black - Try - For Each dropDownItem As ToolStripDropDownItem In item.DropDownItems - dropDownItem.DropDown.BackColor = Color.FromArgb(231, 232, 236) - dropDownItem.DropDown.ForeColor = Color.Black - Next - Catch ex As Exception - Continue For - End Try - Next + ChangeMenuItemColors(Color.FromArgb(231, 232, 236), Color.Black, MenuStrip1.Items) PictureBox5.Image = New Bitmap(My.Resources.logo_mainscr_light) ToolStrip1.BackColor = Color.FromArgb(239, 239, 242) ToolStrip1.ForeColor = Color.Black @@ -5203,22 +5158,7 @@ Public Class MainForm TreeViewCMS.ForeColor = Color.Black AppxResCMS.ForeColor = Color.Black ImgSpecialToolsCMS.ForeColor = Color.Black - Dim items = TreeViewCMS.Items - Dim mItem As IEnumerable(Of ToolStripMenuItem) = Enumerable.OfType(Of ToolStripMenuItem)(items) - For Each item As ToolStripDropDownItem In mItem - If item.DropDownItems.Count > 0 Then - Dim ditems = item.DropDownItems - Dim dmItem As IEnumerable(Of ToolStripMenuItem) = Enumerable.OfType(Of ToolStripMenuItem)(ditems) - Try - For Each dropDownItem As ToolStripDropDownItem In dmItem - dropDownItem.BackColor = Color.FromArgb(231, 232, 236) - dropDownItem.ForeColor = Color.Black - Next - Catch ex As Exception - Continue For - End Try - End If - Next + ChangeMenuItemColors(Color.FromArgb(231, 232, 236), Color.Black, TreeViewCMS.Items) InvalidSettingsTSMI.Image = New Bitmap(My.Resources.setting_error_glyph) BranchTSMI.Image = New Bitmap(My.Resources.branch) ' New design stuff @@ -5244,18 +5184,7 @@ Public Class MainForm PrjPanel.ForeColor = Color.White MenuStrip1.BackColor = Color.FromArgb(48, 48, 48) MenuStrip1.ForeColor = Color.White - For Each item As ToolStripDropDownItem In MenuStrip1.Items - item.DropDown.BackColor = Color.FromArgb(27, 27, 28) - item.DropDown.ForeColor = Color.White - Try - For Each dropDownItem As ToolStripDropDownItem In item.DropDownItems - dropDownItem.DropDown.BackColor = Color.FromArgb(27, 27, 28) - dropDownItem.DropDown.ForeColor = Color.White - Next - Catch ex As Exception - Continue For - End Try - Next + ChangeMenuItemColors(Color.FromArgb(27, 27, 28), Color.White, MenuStrip1.Items) PictureBox5.Image = New Bitmap(My.Resources.logo_mainscr_dark) ToolStrip1.BackColor = Color.FromArgb(48, 48, 48) ToolStrip1.ForeColor = Color.White @@ -5294,22 +5223,7 @@ Public Class MainForm TreeViewCMS.ForeColor = Color.White AppxResCMS.ForeColor = Color.White ImgSpecialToolsCMS.ForeColor = Color.White - Dim items = TreeViewCMS.Items - Dim mItem As IEnumerable(Of ToolStripMenuItem) = Enumerable.OfType(Of ToolStripMenuItem)(items) - For Each item As ToolStripDropDownItem In mItem - If item.DropDownItems.Count > 0 Then - Dim ditems = item.DropDownItems - Dim dmItem As IEnumerable(Of ToolStripMenuItem) = Enumerable.OfType(Of ToolStripMenuItem)(ditems) - Try - For Each dropDownItem As ToolStripDropDownItem In dmItem - dropDownItem.BackColor = Color.FromArgb(27, 27, 28) - dropDownItem.ForeColor = Color.White - Next - Catch ex As Exception - Continue For - End Try - End If - Next + ChangeMenuItemColors(Color.FromArgb(27, 27, 28), Color.White, TreeViewCMS.Items) InvalidSettingsTSMI.Image = New Bitmap(My.Resources.setting_error_glyph_dark) BranchTSMI.Image = New Bitmap(My.Resources.branch_dark) ' New design stuff @@ -5384,17 +5298,6 @@ Public Class MainForm StatusStrip.BackColor = Color.FromArgb(0, 122, 204) End Select StatusStrip.ForeColor = Color.White - ' Set foreground color on the recent list in File menu - Dim recItems = RecentProjectsListMenu.DropDownItems - Dim remItems As IEnumerable(Of ToolStripMenuItem) = Enumerable.OfType(Of ToolStripMenuItem)(recItems) - Try - For Each dropDownItem As ToolStripDropDownItem In remItems - dropDownItem.BackColor = RecentProjectsListMenu.BackColor - dropDownItem.ForeColor = RecentProjectsListMenu.ForeColor - Next - Catch ex As Exception - - End Try End Sub Sub ChangeLangs(LangCode As Integer) @@ -18346,4 +18249,32 @@ Public Class MainForm Process.Start("https://learn.microsoft.com/it-it/azure/virtual-desktop/windows-11-language-packs#prerequisites") End Select End Sub + + Private Sub LanguagesAndFODWin10ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LanguagesAndFODWin10ToolStripMenuItem.Click + Select Case Language + Case 0 + Select Case My.Computer.Info.InstalledUICulture.ThreeLetterWindowsLanguageName + Case "ENU", "ENG" + Process.Start("https://learn.microsoft.com/en-us/azure/virtual-desktop/language-packs#prerequisites") + Case "ESN" + Process.Start("https://learn.microsoft.com/es-es/azure/virtual-desktop/language-packs#prerequisites") + Case "FRA" + Process.Start("https://learn.microsoft.com/fr-fr/azure/virtual-desktop/language-packs#prerequisites") + Case "PTB", "PTG" + Process.Start("https://learn.microsoft.com/pt-pt/azure/virtual-desktop/language-packs#prerequisites") + Case "ITA" + Process.Start("https://learn.microsoft.com/it-it/azure/virtual-desktop/language-packs#prerequisites") + End Select + Case 1 + Process.Start("https://learn.microsoft.com/en-us/azure/virtual-desktop/language-packs#prerequisites") + Case 2 + Process.Start("https://learn.microsoft.com/es-es/azure/virtual-desktop/language-packs#prerequisites") + Case 3 + Process.Start("https://learn.microsoft.com/fr-fr/azure/virtual-desktop/language-packs#prerequisites") + Case 4 + Process.Start("https://learn.microsoft.com/pt-pt/azure/virtual-desktop/language-packs#prerequisites") + Case 5 + Process.Start("https://learn.microsoft.com/it-it/azure/virtual-desktop/language-packs#prerequisites") + End Select + End Sub End Class \ No newline at end of file