[Settings] Add option to hide clock

Author: CodingWonders

Installer/dt.iss

@@ -175,6 +175,7 @@ Root: HKCU; Subkey: "Software\DISMTools\Preview\Personalization"; ValueType: str
 Root: HKCU; Subkey: "Software\DISMTools\Preview\Personalization"; ValueType: dword; ValueName: "LogFontBold"; ValueData: 0; Flags: uninsdeletevalue createvalueifdoesntexist
 Root: HKCU; Subkey: "Software\DISMTools\Preview\Personalization"; ValueType: dword; ValueName: "LogFontSi"; ValueData: 11; Flags: uninsdeletevalue createvalueifdoesntexist
 Root: HKCU; Subkey: "Software\DISMTools\Preview\Personalization"; ValueType: dword; ValueName: "SecondaryProgressPanelStyle"; ValueData: 1; Flags: uninsdeletevalue createvalueifdoesntexist
+Root: HKCU; Subkey: "Software\DISMTools\Preview\Personalization"; ValueType: dword; ValueName: "ShowDateAndTime"; ValueData: 1; Flags: uninsdeletevalue createvalueifdoesntexist
 
 Root: HKCU; Subkey: "Software\DISMTools\Preview\Program"; Flags: uninsdeletekey
 Root: HKCU; Subkey: "Software\DISMTools\Preview\Program"; ValueType: expandsz; ValueName: "DismExe"; ValueData: "{win}\system32\dism.exe"; Flags: uninsdeletevalue createvalueifdoesntexist

MainForm.vb

@@ -265,6 +265,7 @@ Public Class MainForm
 
     Public DarkThemeIndex As Integer = 0            ' Color theme index for dark color scheme
     Public LightThemeIndex As Integer = 1           ' Color theme index for light color scheme
+    Public ShowDateAndTime As Boolean = True        ' Whether to show the date and time on the project view
 
     Friend NotInheritable Class NativeMethods
 
@@ -713,6 +714,7 @@ Public Class MainForm
             LoadDTSettings(1)
         End If
         imgStatus = 0
+        TimeLabel.Visible = ShowDateAndTime
         ChangeImgStatus()
         If DismExe <> "" Then
             DynaLog.LogMessage("Checking version of DISM executable...")
@@ -1280,6 +1282,7 @@ Public Class MainForm
                 ProgressPanelStyle = CInt(PersKey.GetValue("SecondaryProgressPanelStyle"))
                 AllCaps = (CInt(PersKey.GetValue("AllCaps")) = 1)
                 ExpandedProgressPanel = (CInt(PersKey.GetValue("ExpandedProgressPanel")) = 1)
+                ShowDateAndTime = (CInt(PersKey.GetValue("ShowDateAndTime")) = 1)
                 ProjectView.Visible = True
                 PersKey.Close()
                 Dim LogKey As RegistryKey = Key.OpenSubKey("Logs")
@@ -1463,6 +1466,11 @@ Public Class MainForm
                 ElseIf DTSettingForm.RichTextBox1.Text.Contains("ExpandedProgressPanel=1") Then
                     ExpandedProgressPanel = 1
                 End If
+                If DTSettingForm.RichTextBox1.Text.Contains("ShowDateAndTime=0") Then
+                    ShowDateAndTime = False
+                ElseIf DTSettingForm.RichTextBox1.Text.Contains("ShowDateAndTime=1") Then
+                    ShowDateAndTime = True
+                End If
                 ProjectView.Visible = True
                 ' Detect log file level: 1 - Errors only
                 '                        2 - Errors and warnings
@@ -1694,6 +1702,7 @@ Public Class MainForm
                            "SecondaryProgressPanelStyle=    " & ProgressPanelStyle & CrLf &
                            "AllCaps                    =    " & AllCaps & CrLf &
                            "ExpandedProgressPanel      =    " & ExpandedProgressPanel & CrLf &
+                           "ShowDateAndTime            =    " & ShowDateAndTime & CrLf &
                            "LogFile                    =    " & Quote & LogFile & Quote & CrLf &
                            "LogLevel                   =    " & LogLevel & CrLf &
                            "AutoLogs                   =    " & AutoLogs & CrLf &
@@ -4578,9 +4587,9 @@ Public Class MainForm
         DTSettingForm.RichTextBox2.AppendText(CrLf & "LogFontBold=0")
         DTSettingForm.RichTextBox2.AppendText(CrLf & "SecondaryProgressPanelStyle=1")
         DTSettingForm.RichTextBox2.AppendText(CrLf & "AllCaps=0")
-        DTSettingForm.RichTextBox2.AppendText(CrLf & "NewDesign=1")
         DTSettingForm.RichTextBox2.AppendText(CrLf & "ColorSchemes=0")
         DTSettingForm.RichTextBox2.AppendText(CrLf & "ExpandedProgressPanel=1")
+        DTSettingForm.RichTextBox2.AppendText(CrLf & "ShowDateAndTime=1")
         DTSettingForm.RichTextBox2.AppendText(CrLf & CrLf & "[Logs]" & CrLf)
         DTSettingForm.RichTextBox2.AppendText("LogFile=" & Quote & "{common:WinDir}\Logs\DISM\DISM.log" & Quote)
         DTSettingForm.RichTextBox2.AppendText(CrLf & "LogLevel=3")
@@ -4652,9 +4661,9 @@ Public Class MainForm
         PersKey.SetValue("LogFontBold", 0, RegistryValueKind.DWord)
         PersKey.SetValue("SecondaryProgressPanelStyle", 1, RegistryValueKind.DWord)
         PersKey.SetValue("AllCaps", 0, RegistryValueKind.DWord)
-        PersKey.SetValue("NewDesign", 1, RegistryValueKind.DWord)
         PersKey.SetValue("ColorSchemes", 0, RegistryValueKind.DWord)
         PersKey.SetValue("ExpandedProgressPanel", 1, RegistryValueKind.DWord)
+        PersKey.SetValue("ShowDateAndTime", 1, RegistryValueKind.DWord)
         PersKey.Close()
         Dim LogKey As RegistryKey = Key.CreateSubKey("Logs")
         LogKey.SetValue("LogFile", Quote & Environment.GetFolderPath(Environment.SpecialFolder.Windows) & "\logs\DISM\DISM.log" & Quote, RegistryValueKind.ExpandString)
@@ -4776,6 +4785,11 @@ Public Class MainForm
                 Else
                     DTSettingForm.RichTextBox2.AppendText(CrLf & "ExpandedProgressPanel=0")
                 End If
+                If ShowDateAndTime Then
+                    DTSettingForm.RichTextBox2.AppendText(CrLf & "ShowDateAndTime=1")
+                Else
+                    DTSettingForm.RichTextBox2.AppendText(CrLf & "ShowDateAndTime=0")
+                End If
                 DTSettingForm.RichTextBox2.AppendText(CrLf & CrLf & "[Logs]" & CrLf)
                 DTSettingForm.RichTextBox2.AppendText("LogFile=" & Quote & LogFile & Quote)
                 Select Case LogLevel
@@ -4946,6 +4960,7 @@ Public Class MainForm
                     PersKey.SetValue("SecondaryProgressPanelStyle", ProgressPanelStyle, RegistryValueKind.DWord)
                     PersKey.SetValue("AllCaps", If(AllCaps, 1, 0), RegistryValueKind.DWord)
                     PersKey.SetValue("ExpandedProgressPanel", If(ExpandedProgressPanel, 1, 0), RegistryValueKind.DWord)
+                    PersKey.SetValue("ShowDateAndTime", If(ShowDateAndTime, 1, 0), RegistryValueKind.DWord)
                     PersKey.Close()
                     DynaLog.LogMessage("Configuring log settings...")
                     Dim LogKey As RegistryKey = Key.CreateSubKey("Logs")

Panels/Exe_Ops/Options.Designer.vb

@@ -213,6 +213,8 @@ Public Class Options
         MainForm.AutoCompleteInfo(4) = CheckBox19.Checked
         MainForm.StatusStrip.BackColor = CurrentTheme.AccentColors(1)
         MainForm.ExpandedProgressPanel = CheckBox7.Checked
+        MainForm.ShowDateAndTime = CheckBox21.Checked
+        MainForm.TimeLabel.Visible = CheckBox21.Checked
     End Sub
 
     Sub GiveErrorExplanation(ErrorCode As Integer)
@@ -1810,6 +1812,7 @@ Public Class Options
         CheckBox19.Checked = MainForm.AutoCompleteInfo(4)
         CheckBox22.Checked = MainForm.AutoCleanMounts
         CheckBox7.Checked = MainForm.ExpandedProgressPanel
+        CheckBox21.Checked = MainForm.ShowDateAndTime
     End Sub
 
     Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged

Panels/Exe_Ops/Options.vb

@@ -17,6 +17,7 @@ SecondaryProgressPanelStyle=1
 AllCaps=0
 ColorSchemes=0
 ExpandedProgressPanel=1
+ShowDateAndTime=1
 
 [Logs]
 LogFile="{common:WinDir}\Logs\DISM\DISM.log"