Fix for SnippingTool on Win10

Changelog.txt

@@ -1,6 +1,6 @@
 Changelog:
 ------------
-17.05.XX:
+17.10.XX:
 - Update: Automatic cleanup of old files in Patcher folder to save space on your harddisk
 - Update: Firefox/Thunderbird Themes
 - Fix: Patcher not recognizing Dropbox correctly
@@ -8,6 +8,7 @@ Changelog:
 - Update: Several icons updated
 - Fix: MPC filetype icons correction
 - New: Support for FreeFileSync
+- Fix: Icons for SnippingTool on Windows 10
 
 16.12.24:
 - Update: elementary icon theme

project/JobsPatcher.au3

@@ -81,6 +81,17 @@ EndFunc
 
 
 #Region Options
+Func Apply_OS_Res()
+   ;Copy some OS specific ressources
+
+   If $WinName = "Win7" Then
+	  ;SnippingTool
+	  FileCopy($ResourcesDir & "\bitmaps\tweaked\SnippingTool.exe\Win7\130.bmp", $ResourcesDir & "\bitmaps\tweaked\SnippingTool.exe\130.bmp", 1)
+	  FileCopy($ResourcesDir & "\bitmaps\tweaked\SnippingTool.exe\Win7\131.bmp", $ResourcesDir & "\bitmaps\tweaked\SnippingTool.exe\131.bmp", 1)
+	  FileCopy($ResourcesDir & "\bitmaps\tweaked\SnippingTool.exe\Win7\134.bmp", $ResourcesDir & "\bitmaps\tweaked\SnippingTool.exe\134.bmp", 1)
+   EndIf
+EndFunc
+
 ;General Options
 Func Apply_NoTray()
    ;Don't patch Tray Icons

project/Patcher.au3

@@ -424,6 +424,8 @@ Func Patch()
    ;The patching magic:
    If $errorFlag = 0 Then
 	  Debug("=== ApplyOptions Start ===")
+	  Apply_OS_Res()
+
 	  If $OptTrayIcons = 1 Then
 		 If GUICtrlRead($comboTrayIcons) = "Symbolic" Then Apply_SymbolicTray()
 	  Else