UI changes

- Revert backup frequency back to a NumericUpDown
- Replace checkboxes with buttons to navigate sections
- Moved checkboxes inside Settings section
- Changed checkboxes ForeColor to White even if they're not checked
- Replaced Home button with Uplay button
- Background image will be visible only in Tasks and About section
- Changed Form BackColor and Font
- Changed TextBoxes and dropdowns BackColor
- Changed buttons appearance in Settings section
- Re-arranged controls inside Tasks section
- Added tooltip to backup frequency NumericUpDown

Author: Strappazzon

src/GHOSTbackup/GHOSTbackup.Helpers/BackupHelper.vb

@@ -91,10 +91,10 @@ Public Class BackupHelper
     End Sub
 
     Public Shared Sub StartBackup()
-        BackupTimer.Interval = Integer.Parse(Form1.BackupFreqTextBox.Text) * 60000
+        BackupTimer.Interval = Form1.BackupFreqUpDown.Value * 60000
         BackupTimer.Start()
         IsBackupRunning = True
-        Form1.BackupFreqTextBox.Enabled = False
+        Form1.BackupFreqUpDown.Enabled = False
         Form1.BackupBtn.Enabled = False
         Form1.StopBtn.Enabled = True
         Form1.RestoreBtn.Enabled = False
@@ -111,7 +111,7 @@ Public Class BackupHelper
     Public Shared Sub StopBackup()
         BackupTimer.Stop()
         IsBackupRunning = False
-        Form1.BackupFreqTextBox.Enabled = True
+        Form1.BackupFreqUpDown.Enabled = True
         Form1.BackupBtn.Enabled = True
         Form1.StopBtn.Enabled = False
         Form1.RestoreBtn.Enabled = True

src/GHOSTbackup/GHOSTbackup.Helpers/Settings.vb

@@ -78,22 +78,22 @@ Public Class Settings
 
             'GHOST Buster
             Form1.SettingsInterfaceLangDropdown.SelectedIndex = Language()
-            Form1.ConfirmExitChkBox.Checked = ConfirmExit()
-            Form1.ConfirmStopBackupChkBox.Checked = ConfirmBackupInterruption()
-            Form1.CheckUpdatesChkBox.Checked = CheckForUpdates()
-            Form1.RememberFormPositionChkBox.Checked = RememberFormPosition()
+            Form1.SettingsConfirmExitChkBox.Checked = ConfirmExit()
+            Form1.SettingsConfirmStopBackupChkBox.Checked = ConfirmBackupInterruption()
+            Form1.SettingsCheckUpdatesChkBox.Checked = CheckForUpdates()
+            Form1.SettingsRememberFormPositionChkBox.Checked = RememberFormPosition()
             'Logging
             Form1.SettingsWriteLogToFileChkBox.Checked = WriteEventsToFile()
             Form1.SettingsLogFilePathTextBox.Text = LogFilePath()
             'Backup
             Form1.SavegamesLocTextBox.Text = SavegamesDirectory()
             Form1.BackupLocTextBox.Text = BackupDirectory()
-            Form1.BackupFreqTextBox.Text = BackupFrequency()
-            Form1.DisplayNotificationChkBox.Checked = DisplayNotification()
+            Form1.BackupFreqUpDown.Value = BackupFrequency()
+            Form1.SettingsDisplayNotificationChkBox.Checked = DisplayNotification()
             Form1.WhichBackupDropdown.SelectedIndex = WhichBackupToRestore()
             'Uplay
-            Form1.DisableCloudSyncChkBox.Checked = DisableCloudSyncOnRestore()
-            Form1.EnableCloudSyncChkBox.Checked = EnableCloudSyncOnQuit()
+            Form1.SettingsDisableCloudSyncChkBox.Checked = DisableCloudSyncOnRestore()
+            Form1.SettingsEnableCloudSyncChkBox.Checked = EnableCloudSyncOnQuit()
             Form1.SettingsNonUplayVersionChkBox.Checked = NoUplay()
             Form1.SettingsCustomExeTextBox.Text = WildlandsCustomPath()
         End If
@@ -106,23 +106,23 @@ Public Class Settings
         Dim ConfigData As IniData = New IniData()
         'GHOST Buster
         ConfigData("GHOSTbackup")("Language") = Form1.SettingsInterfaceLangDropdown.SelectedIndex
-        ConfigData("GHOSTbackup")("ConfirmExit") = Form1.ConfirmExitChkBox.Checked
-        ConfigData("GHOSTbackup")("ConfirmBackupInterruption") = Form1.ConfirmStopBackupChkBox.Checked
-        ConfigData("GHOSTbackup")("CheckForUpdates") = Form1.CheckUpdatesChkBox.Checked
-        ConfigData("GHOSTbackup")("RememberFormPosition") = Form1.RememberFormPositionChkBox.Checked
-        ConfigData("GHOSTbackup")("FormPosition") = If(Form1.RememberFormPositionChkBox.Checked = True, Form1.Location.ToString(), "{X=-1,Y=-1}")
+        ConfigData("GHOSTbackup")("ConfirmExit") = Form1.SettingsConfirmExitChkBox.Checked
+        ConfigData("GHOSTbackup")("ConfirmBackupInterruption") = Form1.SettingsConfirmStopBackupChkBox.Checked
+        ConfigData("GHOSTbackup")("CheckForUpdates") = Form1.SettingsCheckUpdatesChkBox.Checked
+        ConfigData("GHOSTbackup")("RememberFormPosition") = Form1.SettingsRememberFormPositionChkBox.Checked
+        ConfigData("GHOSTbackup")("FormPosition") = If(Form1.SettingsRememberFormPositionChkBox.Checked = True, Form1.Location.ToString(), "{X=-1,Y=-1}")
         'Logging
         ConfigData("Logging")("WriteEventsToFile") = Form1.SettingsWriteLogToFileChkBox.Checked
         ConfigData("Logging")("LogFilePath") = Form1.SettingsLogFilePathTextBox.Text
         'Backup
         ConfigData("Backup")("SavegamesDirectory") = Form1.SavegamesLocTextBox.Text
         ConfigData("Backup")("BackupDirectory") = Form1.BackupLocTextBox.Text
-        ConfigData("Backup")("BackupFrequency") = If(Form1.BackupFreqTextBox.Text = "" OrElse Form1.BackupFreqTextBox.Text = "0", "5", Form1.BackupFreqTextBox.Text)
-        ConfigData("Backup")("DisplayNotification") = Form1.DisplayNotificationChkBox.Checked
+        ConfigData("Backup")("BackupFrequency") = Form1.BackupFreqUpDown.Value
+        ConfigData("Backup")("DisplayNotification") = Form1.SettingsDisplayNotificationChkBox.Checked
         ConfigData("Backup")("WhichBackupToRestore") = Form1.WhichBackupDropdown.SelectedIndex
         'Uplay
-        ConfigData("Uplay")("DisableCloudSyncOnRestore") = Form1.DisableCloudSyncChkBox.Checked
-        ConfigData("Uplay")("EnableCloudSyncOnQuit") = Form1.EnableCloudSyncChkBox.Checked
+        ConfigData("Uplay")("DisableCloudSyncOnRestore") = Form1.SettingsDisableCloudSyncChkBox.Checked
+        ConfigData("Uplay")("EnableCloudSyncOnQuit") = Form1.SettingsEnableCloudSyncChkBox.Checked
         ConfigData("Uplay")("NoUplay") = If(Form1.SettingsNonUplayVersionChkBox.Checked = True AndAlso Form1.SettingsCustomExeTextBox.Text <> "", Form1.SettingsNonUplayVersionChkBox.Checked, False)
         ConfigData("Uplay")("WildlandsCustomPath") = If(Form1.SettingsNonUplayVersionChkBox.Checked = True AndAlso Form1.SettingsCustomExeTextBox.Text <> "", Form1.SettingsCustomExeTextBox.Text, Nothing)
 
@@ -246,14 +246,14 @@ Public Class Settings
         Return Value
     End Function
 
-    Private Shared Function BackupFrequency() As String
+    Private Shared Function BackupFrequency() As Decimal
         Dim ConfigData As IniData = ConfigParser.ReadFile(SettingsFile)
 
         Dim Value As String = ConfigData("Backup")("BackupFrequency")
         If Value <> Nothing Then
-            Return Value
+            Return Decimal.Round(Decimal.Parse(Value), 0)
         Else
-            Return "5"
+            Return Decimal.Round(5, 0)
         End If
     End Function
 

src/GHOSTbackup/GHOSTbackup.Helpers/Updater.vb

@@ -32,7 +32,7 @@ Public Class Updater
     Public Shared Sub CheckUpdates()
         'Check for updates
         '//docs.microsoft.com/en-us/dotnet/api/system.net.downloadstringcompletedeventargs
-        If Form1.CheckUpdatesChkBox.Checked = True Then
+        If Form1.SettingsCheckUpdatesChkBox.Checked = True Then
             Using Updater As WebClient = New WebClient()
                 Updater.Headers.Add("User-Agent", "GHOST Buster (+https://strappazzon.xyz/GRW-GHOST-Buster)")
                 Dim VersionURI As Uri = New Uri("https://raw.githubusercontent.com/Strappazzon/GRW-GHOST-Buster/master/version")

src/GHOSTbackup/GHOSTbackup.Helpers/UplayHelper.vb

@@ -89,7 +89,7 @@ Public Class UplayHelper
 
         Catch ex As Exception
             'Don't let GHOST Buster disable cloud save sync until the user enables the setting again
-            Form1.DisableCloudSyncChkBox.Checked = False
+            Form1.SettingsDisableCloudSyncChkBox.Checked = False
 
             Logger.Log("[ERROR] Parsing of ""settings.yml"" failed: " & ex.Message())
             CustomMsgBox.Show(Localization.GetString("msgbox_disable_sync_error"), Localization.GetString("msgbox_parsing_error_title"), MessageBoxButtons.OKCancel, MessageBoxIcon.Error)

src/GHOSTbackup/GHOSTbackup.Localization/Localization.vb

@@ -53,7 +53,9 @@ Public Class Localization
 
         'Localize form elements
         Form1.PlayGameBtn.Text = GetString("ui_play")
-        Form1.TasksTitleLabel.Text = GetString("ui_title_tasks")
+        Form1.SidemenuTasks.Text = "  " & GetString("ui_title_tasks")
+        Form1.SidemenuSettings.Text = "  " & GetString("ui_title_settings")
+        Form1.TitleLabel.Text = GetString("ui_title_tasks")
         Form1.FoldersTitleLabel.Text = GetString("ui_title_folders")
         Form1.BrowseBackupLocBtn.Text = GetString("ui_btn_browse")
         Form1.BrowseSavegamesLocBtn.Text = GetString("ui_btn_browse")
@@ -64,17 +66,8 @@ Public Class Localization
         Form1.SettingsOpenLogBtn.Text = GetString("ui_btn_open")
         Form1.SettingsOpenCustomExeFolderBtn.Text = GetString("ui_btn_open_folder")
         'Top menu
-        Form1.SettingsLabel.Text = GetString("topmenu_settings")
         Form1.LogLabel.Text = GetString("topmenu_logs")
         Form1.AboutLabel.Text = GetString("topmenu_about")
-        'Checkboxes
-        Form1.ConfirmExitChkBox.Text = GetString("ui_confirm_exit")
-        Form1.ConfirmStopBackupChkBox.Text = GetString("ui_confirm_backup_interruption")
-        Form1.DisplayNotificationChkBox.Text = GetString("ui_backup_notification")
-        Form1.DisableCloudSyncChkBox.Text = GetString("ui_disable_sync")
-        Form1.EnableCloudSyncChkBox.Text = GetString("ui_enable_sync")
-        Form1.CheckUpdatesChkBox.Text = GetString("ui_updates")
-        Form1.RememberFormPositionChkBox.Text = GetString("ui_coordinates")
         'Tasks
         Form1.BackupBtn.Text = GetString("ui_tasks_backup")
         Form1.StopBtn.Text = GetString("ui_tasks_stop")
@@ -92,9 +85,16 @@ Public Class Localization
         'Settings
         Form1.SettingsInterfaceLang.Text = GetString("ui_settings_lang_choice")
         Form1.SettingsLangRestartLabel.Text = GetString("ui_settings_restart")
-        Form1.SettingsWriteLogToFileChkBox.Text = GetString("ui_settings_log_file")
+        Form1.SettingsConfirmExitChkBox.Text = GetString("ui_settings_confirm_exit")
+        Form1.SettingsConfirmStopBackupChkBox.Text = GetString("ui_settings_confirm_backup_interruption")
+        Form1.SettingsDisplayNotificationChkBox.Text = GetString("ui_settings_backup_notification")
+        Form1.SettingsDisableCloudSyncChkBox.Text = GetString("ui_settings_disable_sync")
+        Form1.SettingsEnableCloudSyncChkBox.Text = GetString("ui_settings_enable_sync")
+        Form1.SettingsCheckUpdatesChkBox.Text = GetString("ui_settings_updates")
+        Form1.SettingsRememberFormPositionChkBox.Text = GetString("ui_settings_coordinates")
         Form1.SettingsNonUplayVersionChkBox.Text = GetString("ui_settings_nouplay")
         Form1.SettingsNonUplayVersionRestartLabel.Text = GetString("ui_settings_restart")
+        Form1.SettingsWriteLogToFileChkBox.Text = GetString("ui_settings_log_file")
         'Logs
         Form1.CopyToolStripMenuItem.Text = GetString("ui_logs_context_copy")
         Form1.SelectAllToolStripMenuItem.Text = GetString("ui_logs_context_selectall")
@@ -106,14 +106,15 @@ Public Class Localization
         Form1.ChangelogLink.Text = GetString("ui_about_changelog")
         Form1.LicenseLink.Text = GetString("ui_about_legal")
         'Tooltips
-        Form1.HelpToolTip.SetToolTip(Form1.UplayPictureBtn, GetString("tooltip_launch_uplay"))
-        Form1.HelpToolTip.SetToolTip(Form1.ConfirmExitChkBox, GetString("tooltip_confirm_exit"))
-        Form1.HelpToolTip.SetToolTip(Form1.ConfirmStopBackupChkBox, GetString("tooltip_confirm_backup_interruption"))
-        Form1.HelpToolTip.SetToolTip(Form1.DisplayNotificationChkBox, GetString("tooltip_backup_notification"))
-        Form1.HelpToolTip.SetToolTip(Form1.DisableCloudSyncChkBox, GetString("tooltip_disable_sync"))
-        Form1.HelpToolTip.SetToolTip(Form1.EnableCloudSyncChkBox, GetString("tooltip_enable_sync"))
-        Form1.HelpToolTip.SetToolTip(Form1.CheckUpdatesChkBox, GetString("tooltip_updates"))
-        Form1.HelpToolTip.SetToolTip(Form1.RememberFormPositionChkBox, GetString("tooltip_coordinates"))
+        Form1.HelpToolTip.SetToolTip(Form1.UplayBtn, GetString("tooltip_uplay"))
+        Form1.HelpToolTip.SetToolTip(Form1.BackupFreqUpDown, String.Format(GetString("tooltip_backup_frequency"), Form1.BackupFreqUpDown.Minimum, Form1.BackupFreqUpDown.Maximum))
+        Form1.HelpToolTip.SetToolTip(Form1.SettingsConfirmExitChkBox, GetString("tooltip_confirm_exit"))
+        Form1.HelpToolTip.SetToolTip(Form1.SettingsConfirmStopBackupChkBox, GetString("tooltip_confirm_backup_interruption"))
+        Form1.HelpToolTip.SetToolTip(Form1.SettingsDisplayNotificationChkBox, GetString("tooltip_backup_notification"))
+        Form1.HelpToolTip.SetToolTip(Form1.SettingsDisableCloudSyncChkBox, GetString("tooltip_disable_sync"))
+        Form1.HelpToolTip.SetToolTip(Form1.SettingsEnableCloudSyncChkBox, GetString("tooltip_enable_sync"))
+        Form1.HelpToolTip.SetToolTip(Form1.SettingsCheckUpdatesChkBox, GetString("tooltip_updates"))
+        Form1.HelpToolTip.SetToolTip(Form1.SettingsRememberFormPositionChkBox, GetString("tooltip_coordinates"))
 
         'Localize Message Box
         'Buttons