Change default log view font to Consolas

Actions/Actions.MainForm.vb

@@ -147,15 +147,15 @@ Public Class Actions_MainForm
             Next
         End If
         StatusStrip.BackColor = MainForm.StatusStrip.BackColor
-        InitScintilla("Courier New", 10)
+        InitScintilla("Consolas", 11)
         If MainForm.IsWindowsVersionOrGreater(10, 0, 18362) Then MainForm.EnableDarkTitleBar(Handle, MainForm.BackColor = Color.FromArgb(48, 48, 48))
         ' Fill in font combinations
         FontFamilyTSCB.Items.Clear()
         For Each fntFamily As FontFamily In FontFamily.Families
             FontFamilyTSCB.Items.Add(fntFamily.Name)
         Next
-        FontFamilyTSCB.SelectedItem = "Courier New"
-        InitScintilla("Courier New", 10)
+        FontFamilyTSCB.SelectedItem = "Consolas"
+        InitScintilla("Consolas", 11)
     End Sub
 
     Private Sub FontChange(sender As Object, e As EventArgs) Handles FontFamilyTSCB.SelectedIndexChanged, FontSizeTSCB.SelectedIndexChanged

MainForm.vb

@@ -1462,7 +1462,7 @@ Public Class MainForm
                 ' Apply language settings immediately
                 ChangeLangs(Language)
                 ' Detect log font setting. Do note that, if a system does not contain the font set in this program,
-                ' it will revert to "Courier New"
+                ' it will revert to "Consolas"
                 For Each line In DTSettingForm.RichTextBox1.Lines
                     If line.StartsWith("LogFont=", StringComparison.OrdinalIgnoreCase) Then
                         LogFont = line.Replace("LogFont=", "").Trim().Replace(Quote, "").Trim()
@@ -1728,7 +1728,7 @@ Public Class MainForm
             If Not fontTester.Name = TestingFontName Then
                 ProblematicStrings(1) = LogFont
                 isLogFontProblematic = True
-                LogFont = "Courier New"
+                LogFont = "Consolas"
             End If
         End Using
         If Not File.Exists(LogFile) Then
@@ -4551,8 +4551,8 @@ Public Class MainForm
             DTSettingForm.RichTextBox2.AppendText("ColorMode=1")
         End Try
         DTSettingForm.RichTextBox2.AppendText(CrLf & "Language=0")
-        DTSettingForm.RichTextBox2.AppendText(CrLf & "LogFont=" & Quote & "Courier New" & Quote)
-        DTSettingForm.RichTextBox2.AppendText(CrLf & "LogFontSi=10")
+        DTSettingForm.RichTextBox2.AppendText(CrLf & "LogFont=" & Quote & "Consolas" & Quote)
+        DTSettingForm.RichTextBox2.AppendText(CrLf & "LogFontSi=11")
         DTSettingForm.RichTextBox2.AppendText(CrLf & "LogFontBold=0")
         DTSettingForm.RichTextBox2.AppendText(CrLf & "SecondaryProgressPanelStyle=1")
         DTSettingForm.RichTextBox2.AppendText(CrLf & "AllCaps=0")
@@ -4620,8 +4620,8 @@ Public Class MainForm
             PersKey.SetValue("ColorMode", 1, RegistryValueKind.DWord)
         End Try
         PersKey.SetValue("Language", 0, RegistryValueKind.DWord)
-        PersKey.SetValue("LogFont", "Courier New", RegistryValueKind.String)
-        PersKey.SetValue("LogFontSi", 10, RegistryValueKind.DWord)
+        PersKey.SetValue("LogFont", "Consolas", RegistryValueKind.String)
+        PersKey.SetValue("LogFontSi", 11, RegistryValueKind.DWord)
         PersKey.SetValue("LogFontBold", 0, RegistryValueKind.DWord)
         PersKey.SetValue("SecondaryProgressPanelStyle", 1, RegistryValueKind.DWord)
         PersKey.SetValue("AllCaps", 0, RegistryValueKind.DWord)

Panels/ConfigLists/WimScriptEditor.vb

@@ -227,8 +227,8 @@ Public Class WimScriptEditor
         For Each fntFamily As FontFamily In FontFamily.Families
             FontFamilyTSCB.Items.Add(fntFamily.Name)
         Next
-        InitScintilla("Courier New", 10)
-        FontFamilyTSCB.SelectedItem = "Courier New"
+        InitScintilla("Consolas", 11)
+        FontFamilyTSCB.SelectedItem = "Consolas"
     End Sub
 
     ''' <summary>

Panels/DoWork/ProgressPanel.vb

@@ -6156,7 +6156,7 @@ Public Class ProgressPanel
                 LogView.Font = New Font(MainForm.LogFont, MainForm.LogFontSize)
             End If
         Catch ex As Exception
-            LogView.Font = New Font("Courier New", 9.75)
+            LogView.Font = New Font("Consolas", 11.25)
         End Try
         Select Case MainForm.Language
             Case 0

Panels/Exe_Ops/Options.vb

@@ -1392,7 +1392,7 @@ Public Class Options
         For Each fntFamily As FontFamily In FontFamily.Families
             ComboBox4.Items.Add(fntFamily.Name)
         Next
-        If ComboBox4.SelectedItem = Nothing Then ComboBox4.SelectedItem = "Courier New"
+        If ComboBox4.SelectedItem = Nothing Then ComboBox4.SelectedItem = "Consolas"
     End Sub
 
     Sub GatherCustomSettings()

Panels/FirstUse/PrgSetup.vb

@@ -609,7 +609,7 @@ Public Class PrgSetup
         For Each fntFamily As FontFamily In FontFamily.Families
             ComboBox3.Items.Add(fntFamily.Name)
         Next
-        ComboBox3.SelectedItem = "Courier New"
+        ComboBox3.SelectedItem = "Consolas"
     End Sub
 
     Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged

Panels/Unattend_Files/Addition/NewUnattendWiz.vb

@@ -203,10 +203,10 @@ Public Class NewUnattendWiz
         For Each fntFamily As FontFamily In FontFamily.Families
             FontFamilyTSCB.Items.Add(fntFamily.Name)
         Next
-        InitScintilla("Courier New", 10)
+        InitScintilla("Consolas", 11)
         StepsTreeView.ExpandAll()
 
-        FontFamilyTSCB.SelectedItem = "Courier New"
+        FontFamilyTSCB.SelectedItem = "Consolas"
         SetNodeColors(StepsTreeView.Nodes, BackColor, ForeColor)
     End Sub
 

settings.ini

@@ -8,8 +8,8 @@ Volatile=0
 [Personalization]
 ColorMode=0
 Language=0
-LogFont="Courier New"
-LogFontSi=10
+LogFont="Consolas"
+LogFontSi=11
 LogFontBold=0
 SecondaryProgressPanelStyle=1
 AllCaps=0