New
#1361
OK :) Mixed something up.
Here it is: SunnyRodiliusSpiral
Based on @Cliff S Pre-Wood (Beta) Theme, the base of Team Theme 2
Rodilius?
Wallpaper is made in GIMP using GMIC Rodilius filter.
I've tried to put a fancy Recycle Bin icon in it. I need to right click refresh on my PC to switch from full to empty state. Hmmm...
It should eclipse when full.
For the rest, not much, used Aero Red cursors.
A yellow cursor can be downloaded as well.
EDIT: zip added below
Last edited by Hopachi; 30 Jan 2016 at 15:55. Reason: forgot the zip attach (thank you Cliff)
@Hopachi I figured out how to get that custom Hyper-V tile .exe you created, to run elevated. I just had to go to C:\Users\Cliff S\AppData\Roaming\Microsoft\Windows\Start Menu\Programs by right clicking it and going to file location, which took it to the shortcut. Once at the shortcut, I right clicked it and in properties/shortcut tab, chose advance button, then checked the "Run as administrator". Now when I click the tile the UAC pops up like it should. Just Geeking it up!
Last edited by Cliff S; 31 Jan 2016 at 04:03.
@Hopachi @Edwin @Superfly, you all more advanced ones need to take a look at C:\Windows\diagnostics\system\AERO and see if any of those API scripts can further us in theming.
Examples:
Code:# Copyright © 2008, Microsoft Corporation. All rights reserved. PARAM($originalName, $originalThemeStatus, $originalVisualStyleName) Import-LocalizedData -BindingVariable localizationString -FileName CL_LocalizationData Write-DiagProgress -activity $localizationString.colorTheme_progress . .\cl_Utility.ps1 if("Stopped" -eq (Get-Service "Themes").Status) { $startupType = (Get-WmiObject -query "select * from win32_baseService where Name='Themes'").StartMode if($startupType -ne "auto" -and $startupType -ne $null) { (Get-WmiObject -query "select * from win32_baseService where Name='Themes'").changeStartMode("automatic") > $null } Start-Service "Themes" WaitFor-ServiceStatus "Themes" ([ServiceProcess.ServiceControllerStatus]::Running) } [string]$sourceCode = Get-ThemeSourceCode [string]$themeFilePath = Join-Path ${env:windir} "Resources\Themes\aero.theme" Invoke-Method $sourceCode "ThemeTool.exe" "changetheme $themeFilePath" [string]$name = Invoke-Method $sourceCode "ThemeTool.exe" "getcurrentthemename" [string]$themeStatus = Invoke-Method $sourceCode "ThemeTool.exe" "getthemestatus" [string]$visualStyleName = Invoke-Method $sourceCode "ThemeTool.exe" "getcurrentvisualstylename" $propertyArray = @() if($name -ne $originalName) { $propertyArray += @{Name=$localizationString.modifiedThemeStatus;Expression={$themeStatus}} } if($themeStatus -ne $originalThemeStatus) { $propertyArray += @{Name=$localizationString.modifiedThemeName;Expression={$name}} } if($visualStyleName -ne $originalVisualStyleName) { $propertyArray += @{Name=$localizationString.modifiedVisualStyle;Expression={$visualStyleName}} } if(0 -ne $propertyArray.Count) { New-Object -TypeName System.Management.Automation.PSObject | Select-Object $propertyArray | Convertto-Xml | Update-DiagReport -id ModifiedThemeInfo -name $localizationString.ThemeInfo -Verbosity informational }Code:# Copyright © 2008, Microsoft Corporation. All rights reserved. function CheckAeroTransprance() { if(-not(Test-Path HKCU:\Software\microsoft\windows\dwm)) { return $true } [int]$colorizationOpaqueBlend = (Get-ItemProperty -Path HKCU:\Software\microsoft\windows\dwm -Name ColorizationOpaqueBlend).ColorizationOpaqueBlend return -not($colorizationOpaqueBlend -eq 1) }