Animation effects

resources/Microsoft.Windows.Setting.Accessibility/Microsoft.Windows.Setting.Accessibility.psd1

@@ -20,7 +20,8 @@
             Tags = @(
                 'PSDscResource_Text',                
                 'PSDscResource_Magnifier',
-                'PSDscResource_MousePointer'               
+                'PSDscResource_MousePointer',
+                'PSDscResource_AnimationEffects'
             )
 
             # Prerelease string of this module

resources/Microsoft.Windows.Setting.Accessibility/Microsoft.Windows.Setting.Accessibility.psm1

@@ -28,10 +28,17 @@ enum PointerSize {
     ExtraLarge
 }
 
+enum AnimationEffectsState {
+    KeepCurrentValue
+	Enabled
+	Disabled
+}
+
 if ([string]::IsNullOrEmpty($env:TestRegistryPath)) {
     $global:AccessibilityRegistryPath = 'HKCU:\Software\Microsoft\Accessibility\'
     $global:MagnifierRegistryPath = 'HKCU:\Software\Microsoft\ScreenMagnifier\'
     $global:PointerRegistryPath = 'HKCU:\Control Panel\Cursors\'
+    $global:AnimationEffectsSettingsRegistryPath = 'HKCU:\Control Panel\Desktop\'
 }
 else {
     $global:AccessibilityRegistryPath = $global:MagnifierRegistryPath = $global:PointerRegistryPath = $env:TestRegistryPath
@@ -231,6 +238,93 @@ class MousePointer {
     }
 }
 
+[DSCResource()]
+class AnimationEffects {
+	#Need to verify the Animation Effects setting toggle on the Accessibility page changes when these are updated, or find the setting to update that also.
+    [DscProperty(Key)] [AnimationEffectsState] $AnimationEffectsState = [AnimationEffectsState]::KeepCurrentValue
+    [DscProperty(NotConfigurable)] [int] $SmoothScrollListBoxes
+    [DscProperty(NotConfigurable)] [int] $SlideOpenComboBoxes
+    [DscProperty(NotConfigurable)] [int] $FadeOrSlideMenusIntoView
+    [DscProperty(NotConfigurable)] [int] $ShowShadowsUnderMousePointer
+    [DscProperty(NotConfigurable)] [int] $FadeOrSlideToolTipsIntoView
+    [DscProperty(NotConfigurable)] [int] $FadeOutMenuItemsAfterClicking
+    [DscProperty(NotConfigurable)] [int] $ShowShadowsUnderWindows
+
+    hidden [string] $AnimationEffectsProperty = 'UserPreferencesMask'
+	#These settings are stored alongside other settings in a bitmask.
+
+    [AnimationEffects] Get() {
+        $currentState = [AnimationEffectsState]::new()
+
+		$AnimationState = (Get-ItemPropertyValue -Path $global:AnimationEffectsSettingsRegistryPath -Name $AnimationEffectsProperty) | %{[System.Convert]::ToString($_,2).PadLeft(8,'0')} #Get-ItemPropertyValue converts hex to int, so need to complete converting to binary.
+
+		#Decode bitmask string array as char array grid
+		#1001ABC0 
+		#00D1EF10 
+		#00000G11
+
+		$SmoothScrollListBoxes = $AnimationState[0][4] #A
+		$SlideOpenComboBoxes = $AnimationState[0][5] #B
+		$FadeOrSlideMenusIntoView = $AnimationState[0][6] #C
+
+		$ShowShadowsUnderMousePointer = $AnimationState[1][2] #D
+		$FadeOrSlideToolTipsIntoView = $AnimationState[1][4] #E
+		$FadeOutMenuItemsAfterClicking = $AnimationState[1][5] #F
+
+		$ShowShadowsUnderWindows = $AnimationState[2][5] #G
+
+		if ($ShowShadowsUnderWindows -eq 0 
+		-AND $SlideOpenComboBoxes -eq 0 
+		-AND $FadeOrSlideMenusIntoView -eq 0 
+		-AND $ShowShadowsUnderMousePointer -eq 0 
+		-AND $FadeOrSlideToolTipsIntoView -eq 0 
+		-AND $FadeOutMenuItemsAfterClicking -eq 0 
+		-AND $ShowShadowsUnderWindows -eq 0) {
+			$currentState = [AnimationEffectsState]::Disabled
+		} else {
+			$currentState = [AnimationEffectsState]::Enabled
+		}
+
+		return $currentState
+	}
+
+    [bool] Test() {
+		$currentState = $this.Get()
+		if ($this.AnimationEffectsState -ne [AnimationEffectsState]::KeepCurrentValue -and $this.AnimationEffectsState -ne $currentState.AnimationEffectsState) {
+			return $false
+		}
+
+		return $true
+    }
+
+    [void] Set() {
+		if ($this.AnimationEffectsState -ne [AnimationEffectsState]::KeepCurrentValue) {
+            $desiredValue = switch ([AnimationEffectsState]($this.AnimationEffectsState)) {
+                Enabled {1}
+                Disabled {0}
+            }
+
+			$AnimationState = (Get-ItemPropertyValue -Path $global:AnimationEffectsSettingsRegistryPath -Name $AnimationEffectsProperty) | %{[System.Convert]::ToString($_,2).PadLeft(8,'0')} #Get-ItemPropertyValue converts hex to int, so need to complete converting to binary.
+			#Recombine string array with desired state variables.
+			#1001ABC0 
+			#00D1EF10 
+			#00000G11
+
+			$AnimationState[0] = $AnimationState[0][0..3]+$desiredValue+$desiredValue+$desiredValue+$AnimationState[0][7] -join ""
+
+			$AnimationState[1] = $AnimationState[1][0..1]+$desiredValue+$AnimationState[1][3]+$desiredValue+$desiredValue+$AnimationState[1][6..7] -join ""
+
+			$AnimationState[2] = $AnimationState[2][0..4]+$desiredValue+$AnimationState[0][6..7] -join ""
+
+			if (-not (Test-Path -Path $global:AnimationEffectsSettingsRegistryPath)) {
+                New-Item -Path $global:AnimationEffectsSettingsRegistryPath -Force | Out-Null
+			}
+
+			Set-ItemProperty -Path $global:AnimationEffectsSettingsRegistryPath -Name $this.AnimationEffectsProperty -Value ($AnimationState | %{[convert]::ToInt32($_,2).ToString("X").PadLeft(2,'0')})
+		}
+	}
+}
+
 #region Functions
 function DoesRegistryKeyPropertyExist {
     param (
@@ -245,4 +339,4 @@ function DoesRegistryKeyPropertyExist {
     $itemProperty = Get-ItemProperty -Path $Path  -Name $Name -ErrorAction SilentlyContinue
     return $null -ne $itemProperty
 }
-#endregion Functions
+#endregion Functions

tests/Microsoft.Windows.Developer/Microsoft.Windows.Developer.Tests.ps1

@@ -145,6 +145,34 @@ Describe 'UserAccessControl'{
    }
 }
 
+Describe 'Animation'{
+   It 'Keeps current value.'{
+      $initialState = Invoke-DscResource -Name AnimationEffects -ModuleName Microsoft.Windows.Setting.Accessibility -Method Get -Property @{}
+
+      $parameters = @{ AnimationBehavior = 'KeepCurrentValue' }
+
+      $testResult = Invoke-DscResource -Name AnimationEffects -ModuleName Microsoft.Windows.Setting.Accessibility -Method Test -Property $parameters
+      $testResult.InDesiredState | Should -Be $true
+
+      # Invoking set should not change these values.
+      Invoke-DscResource -Name AnimationEffects -ModuleName Microsoft.Windows.Setting.Accessibility -Method Set -Property $parameters
+      $finalState = Invoke-DscResource -Name AnimationEffects -ModuleName Microsoft.Windows.Setting.Accessibility -Method Get -Property @{}
+      $finalState.AnimationBehavior | Should -Be $initialState.AnimationBehavior
+   }
+
+   It 'Sets desired value.'{
+      # Randomly generate desired state. Minimum is set to 1 to avoid using KeepCurrentValue
+      $desiredAnimationBehavior = [AnimationBehavior]("Enabled","Disabled"|Get-Random)
+
+      $desiredState = @{ AnimationBehavior = $desiredAnimationBehavior }
+
+      Invoke-DscResource -Name AnimationEffects -ModuleName Microsoft.Windows.Setting.Accessibility -Method Set -Property $desiredState
+
+      $finalState = Invoke-DscResource -Name AnimationEffects -ModuleName Microsoft.Windows.Setting.Accessibility -Method Get -Property @{}
+      $finalState.AnimationBehavior | Should -Be $desiredAnimationBehavior
+   }
+}
+
 AfterAll {
    $env:TestRegistryPath = ""
 }