Add option to start CompactGUI in tray. Closes #371

Author: Iridium-IO

CompactGUI/Application.xaml.vb

@@ -63,6 +63,13 @@ Class Application
 
             mainWindow.ViewModel.SelectFolder(e.Args(0))
         End If
+
+        If SettingsHandler.AppSettings.StartInSystemTray Then
+            mainWindow.Show()
+            mainWindow.ViewModel.ClosingCommand.Execute(New ComponentModel.CancelEventArgs(True))
+            Return
+        End If
+
         mainWindow.Show()
 
     End Sub

CompactGUI/Components/Settings/SettingsControl.xaml

@@ -4,7 +4,7 @@
              xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
              xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
              xmlns:local="clr-namespace:CompactGUI" xmlns:ui="http://schemas.modernwpf.com/2019" 
-             mc:Ignorable="d"  Width="400" Background="White" Height="600" Padding="0,0,0,0"
+             mc:Ignorable="d"  Width="400" Background="White"  Padding="0,0,0,0"
              d:DesignHeight="600" d:DesignWidth="400">
     <Grid Margin="0">
         <TextBlock Text="options" FontSize="26" FontWeight="SemiBold"/>
@@ -17,10 +17,10 @@
                 <ui:NavigationViewItem Tag="help" Content="help"/>
             </ui:NavigationView.MenuItems>
             <ui:ScrollViewerEx VerticalScrollBarVisibility="Hidden">
-                <Frame x:Name="ContentFrame" Padding="0, 20, 0, 0" NavigationUIVisibility="Hidden"/>
+                <Frame x:Name="ContentFrame" Padding="0, 20, 0, 20" NavigationUIVisibility="Hidden"/>
             </ui:ScrollViewerEx>
 
         </ui:NavigationView>
-        <Border BorderThickness="2" VerticalAlignment="Bottom" Width="400" BorderBrush="Gray" CornerRadius="1"/>
+        <Border BorderThickness="1" VerticalAlignment="Bottom" Width="400" BorderBrush="Gray" CornerRadius="1"/>
     </Grid>
 </UserControl>

CompactGUI/Components/Settings/Settings_main.xaml

@@ -49,8 +49,9 @@
             <CheckBox x:Name="uiIsContextEnabled"  >add to right-click context menu</CheckBox>
             <CheckBox x:Name="uiIsStartMenuEnabled" IsEnabled="False" Visibility="Collapsed">add to start menu</CheckBox>
             <CheckBox x:Name="uiShowNotifications" IsEnabled="True" Checked="uiShowNotifications_Checked" Unchecked="uiShowNotifications_Unchecked">show notification on completion</CheckBox>
+            <CheckBox x:Name="uiAlwaysStartInTray" Checked="uiAlwaysStartInTray_Checked" Unchecked="uiAlwaysStartInTray_Unchecked">start CompactGUI in system tray</CheckBox>
 
-        </StackPanel>
+    </StackPanel>
         <Separator Margin="0,10,0,10"/>
 
         <Label Content="Background Watcher Settings" FontWeight="SemiBold"/>

CompactGUI/Components/Settings/Settings_main.xaml.vb

@@ -15,6 +15,7 @@ Class Settings_main
         uiShowNotifications.IsChecked = SettingsHandler.AppSettings.ShowNotifications
         uiEnableBackgroundWatcher.IsChecked = SettingsHandler.AppSettings.EnableBackgroundWatcher
         uiEnableBackgroundAutoCompression.IsChecked = SettingsHandler.AppSettings.EnableBackgroundAutoCompression
+        uiAlwaysStartInTray.IsChecked = SettingsHandler.AppSettings.StartInSystemTray
         comboBoxSkipUserResultsAggression.SelectedIndex = SettingsHandler.AppSettings.SkipUserFileTypesLevel
         uiScalingFactor.Value = SettingsHandler.AppSettings.WindowScalingFactor
         SetEnv()
@@ -116,4 +117,14 @@ Class Settings_main
         SettingsHandler.AppSettings.EnableBackgroundAutoCompression = False
         SettingsHandler.AppSettings.Save()
     End Sub
+
+    Private Sub uiAlwaysStartInTray_Checked(sender As Object, e As RoutedEventArgs)
+        SettingsHandler.AppSettings.StartInSystemTray = True
+        SettingsHandler.AppSettings.Save()
+    End Sub
+
+    Private Sub uiAlwaysStartInTray_Unchecked(sender As Object, e As RoutedEventArgs)
+        SettingsHandler.AppSettings.StartInSystemTray = False
+        SettingsHandler.AppSettings.Save()
+    End Sub
 End Class

CompactGUI/Models/SetttingsHandler.vb

@@ -96,6 +96,7 @@ Public Class Settings : Inherits ObservableObject
     Public Property IsStartMenuEnabled As Boolean = False
     Public Property SkipUserFileTypesLevel As Integer = 0
     Public Property ShowNotifications As Boolean = False
+    Public Property StartInSystemTray As Boolean = False
 
     Private _EnableBackgroundWatcher As Boolean = True
     Public Property EnableBackgroundWatcher As Boolean