• Announcements

    • xper

      MSFN Sponsorship and AdBlockers!   07/10/2016

      Dear members, MSFN is made available via subscriptions, donations and advertising revenue. The use of ad-blocking software hurts the site. Please disable ad-blocking software or set an exception for MSFN. Alternatively, become a site sponsor and ads will be disabled automatically and by subscribing you get other sponsor benefits.
MrGRiM

Advanced Appearance Settings for Windows 8

21 posts in this topic

As we all know MS decided we didn't need the advanced appearance settings any longer, but I think I am not the only one when I say FU Microsoft we want it back.

So anyway I have been having a little play today and tried to make something to bring a few of those basic settings back, I will keep working on this and maybe add some tabs to it for setting window colors and maybe font size as well.

If anyone else wants to add their own bit of code feel free, I am only a noob with any of this stuff, I just used Google allot and figured it out from there.

Well I know it doesn't look like much and it probably could have been done a much better way but it works and will do for now.

i4cdq2c7z79e58lfg.jpg

After you apply the changes you will need to log off to take effect, sorry I don't know any way to refresh it other then that.

<html><META HTTP-EQUIV="MSThemeCompatible" CONTENT="Yes"><title>Advanced Appearance Settings</title><head><HTA:APPLICATIONAPPLICATIONNAME="Advanced Appearance Settings"SINGLEINSTANCE="yes"WINDOWSTATE="normal"Border = "thin"BorderStyle = "normal"INNERBORDER="no"CONTEXTMENU="no"ICON="themecpl.dll"SCROLL="no"NAVIGABLE = "Yes"SCROLLFLAT = "Yes"SELECTION = "No"/></head><style>.head { font-size:110%; font-weight:bold }.panel {  background-color: window;  border: solid 1px black;  height: 300px;  padding: 5px;  position: relative;  width: 440px;  z-index: 0;}BODY{background-color: buttonface;}.button{width: 80px;height: 25px;font-family: arial,sans-serif;font-size: 8pt;margin-left: 2px;margin-right:2px;}.button2{width: 50px;height: 22px;font-family: arial,sans-serif;font-size: 8pt;margin-left: 2px;margin-right:2px;}td{font-family: arial,sans-serif;font-size: 14pt;}.tabs {  border-collapse: collapse;  color: windowcolor;  cursor: pointer;  cursor: hand;  font-family: arial;  font-size: 9pt;  font-weight: bold;  margin-top: 4px;  padding: 2px 4px 0px 4px;  position: relative;  text-align: center;  text-decoration: none;  z-index: 1;}.tabsNotSelected {  background-color: buttonface;  border: solid 1px black;}.tabsSelected {  background-color: Window;  border-color: black black white black;  border-style: solid solid solid solid;  border-width: 1px 1px 1px 1px;}</style><script language="VBscript">     Dim sItem     Dim aPanels     Dim el     Dim iPanelCount     iPanelCount = 1     Private Sub Panel(tab)          For i = 1 To iPanelCount               If i = tab Then                    document.getElementById("tab" & i).className = "tabs tabsSelected"                    document.getElementById("panel" & i).style.display = "block"               Else                    document.getElementById("tab" & i).className = "tabs tabsNotSelected"                    document.getElementById("panel" & i).style.display = "none"               End If          Next     End Sub</script><SCRIPT LANGUAGE="VBScript">winWidth=500winHeight=500window.resizeto winWidth,winHeightcenterX=(screen.width-winWidth)/2centerY=(screen.height-winHeight)/2window.moveto centerX,centerYposX=0posY=0move=0Function closeHTA()  self.closeEnd FunctionFunction setPos()  posX=window.event.screenX  posY=window.event.ScreenY  move=1End FunctionSub Window_Onload  getCaptionHeight  getBorderWidth  getPaddedBorderWidth  getShellIconSize  getIconSpacing  getIconVerticalSpacing  getMenuHeight  getScrollHeightEnd Sub</script><SCRIPT LANGUAGE="VBScript">Const HKEY_CURRENT_USER = &H80000001strComputer = "."'-------------------------------------------------------------------------------sub getCaptionHeight  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  strValueName = "CaptionHeight"  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValueIf  strValue = "0" then   DataArea1.InnerHTML = "0"ElseIf strValue = "-15" then   DataArea1.InnerHTML = "1"ElseIf strValue = "-30" then   DataArea1.InnerHTML = "2"ElseIf strValue = "-45" then   DataArea1.InnerHTML = "3"ElseIf strValue = "-60" then   DataArea1.InnerHTML = "4"ElseIf strValue = "-75" then   DataArea1.InnerHTML = "5"ElseIf strValue = "-90" then   DataArea1.InnerHTML = "6"ElseIf strValue = "-105" then   DataArea1.InnerHTML = "7"ElseIf strValue = "-120" then   DataArea1.InnerHTML = "8"ElseIf strValue = "-135" then   DataArea1.InnerHTML = "9"ElseIf strValue = "-150" then   DataArea1.InnerHTML = "10"ElseIf strValue = "-165" then   DataArea1.InnerHTML = "11"ElseIf strValue = "-180" then   DataArea1.InnerHTML = "12"ElseIf strValue = "-195" then   DataArea1.InnerHTML = "13"ElseIf strValue = "-210" then   DataArea1.InnerHTML = "14"ElseIf strValue = "-225" then   DataArea1.InnerHTML = "15"ElseIf strValue = "-240" then   DataArea1.InnerHTML = "16"ElseIf strValue = "-255" then   DataArea1.InnerHTML = "17"ElseIf strValue = "-270" then   DataArea1.InnerHTML = "18"ElseIf strValue = "-285" then   DataArea1.InnerHTML = "19"ElseIf strValue = "-300" then   DataArea1.InnerHTML = "20"ElseIf strValue = "-315" then   DataArea1.InnerHTML = "21"ElseIf strValue = "-330" then   DataArea1.InnerHTML = "22"ElseIf strValue = "-345" then   DataArea1.InnerHTML = "23"ElseIf strValue = "-360" then   DataArea1.InnerHTML = "24"ElseIf strValue = "-375" then   DataArea1.InnerHTML = "25"ElseIf strValue = "-390" then   DataArea1.InnerHTML = "26"ElseIf strValue = "-405" then   DataArea1.InnerHTML = "27"ElseIf strValue = "-420" then   DataArea1.InnerHTML = "28"ElseIf strValue = "-435" then   DataArea1.InnerHTML = "29"ElseIf strValue = "-450" then   DataArea1.InnerHTML = "30"ElseIf strValue = "-465" then   DataArea1.InnerHTML = "31"ElseIf strValue = "-480" then   DataArea1.InnerHTML = "32"ElseIf strValue = "-495" then   DataArea1.InnerHTML = "33"ElseIf strValue = "-510" then   DataArea1.InnerHTML = "34"ElseIf strValue = "-525" then   DataArea1.InnerHTML = "35"ElseIf strValue = "-540" then   DataArea1.InnerHTML = "36"ElseIf strValue = "-555" then   DataArea1.InnerHTML = "37"ElseIf strValue = "-570" then   DataArea1.InnerHTML = "38"ElseIf strValue = "-585" then   DataArea1.InnerHTML = "39"ElseIf strValue = "-600" then   DataArea1.InnerHTML = "40"ElseIf strValue = "-615" then   DataArea1.InnerHTML = "41"ElseIf strValue = "-630" then   DataArea1.InnerHTML = "42"ElseIf strValue = "-645" then   DataArea1.InnerHTML = "43"ElseIf strValue = "-660" then   DataArea1.InnerHTML = "44"ElseIf strValue = "-675" then   DataArea1.InnerHTML = "45"ElseIf strValue = "-690" then   DataArea1.InnerHTML = "46"ElseIf strValue = "-705" then   DataArea1.InnerHTML = "47"ElseIf strValue = "-720" then   DataArea1.InnerHTML = "48"ElseIf strValue = "-735" then   DataArea1.InnerHTML = "49"ElseIf strValue = "-750" then   DataArea1.InnerHTML = "50"ElseIf strValue = "-765" then   DataArea1.InnerHTML = "51"ElseIf strValue = "-780" then   DataArea1.InnerHTML = "52"ElseIf strValue = "-795" then   DataArea1.InnerHTML = "53"ElseIf strValue = "-810" then   DataArea1.InnerHTML = "54"ElseIf strValue = "-825" then   DataArea1.InnerHTML = "55"ElseIf strValue = "-840" then   DataArea1.InnerHTML = "56"ElseIf strValue = "-855" then   DataArea1.InnerHTML = "57"ElseIf strValue = "-870" then   DataArea1.InnerHTML = "58"ElseIf strValue = "-885" then   DataArea1.InnerHTML = "59"ElseIf strValue = "-900" then   DataArea1.InnerHTML = "60"ElseIf strValue = "-915" then   DataArea1.InnerHTML = "61"ElseIf strValue = "-930" then   DataArea1.InnerHTML = "62"ElseIf strValue = "-945" then   DataArea1.InnerHTML = "63"ElseIf strValue = "-960" then   DataArea1.InnerHTML = "64"ElseIf strValue = "-975" then   DataArea1.InnerHTML = "65"ElseIf strValue = "-990" then   DataArea1.InnerHTML = "66"ElseIf strValue = "-1005" then   DataArea1.InnerHTML = "67"ElseIf strValue = "-1020" then   DataArea1.InnerHTML = "68"ElseIf strValue = "-1035" then   DataArea1.InnerHTML = "69"ElseIf strValue = "-1050" then   DataArea1.InnerHTML = "70"ElseIf strValue = "-1065" then   DataArea1.InnerHTML = "71"ElseIf strValue = "-1080" then   DataArea1.InnerHTML = "72"ElseIf strValue = "-1095" then   DataArea1.InnerHTML = "73"ElseIf strValue = "-1110" then   DataArea1.InnerHTML = "74"ElseIf strValue = "-1125" then   DataArea1.InnerHTML = "75"ElseIf strValue = "-1140" then   DataArea1.InnerHTML = "76"ElseIf strValue = "-1155" then   DataArea1.InnerHTML = "77"ElseIf strValue = "-1170" then   DataArea1.InnerHTML = "78"ElseIf strValue = "-1185" then   DataArea1.InnerHTML = "79"Else DataArea1.InnerHTML = "80"End IfEnd Sub'-------------------------------------------------------------------------------sub getBorderWidth  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  strValueName = "BorderWidth"  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValueIf  strValue = "0" then   DataArea2.InnerHTML = "0"ElseIf strValue = "-15" then   DataArea2.InnerHTML = "1"ElseIf strValue = "-30" then   DataArea2.InnerHTML = "2"ElseIf strValue = "-45" then   DataArea2.InnerHTML = "3"ElseIf strValue = "-60" then   DataArea2.InnerHTML = "4"ElseIf strValue = "-75" then   DataArea2.InnerHTML = "5"ElseIf strValue = "-90" then   DataArea2.InnerHTML = "6"ElseIf strValue = "-105" then   DataArea2.InnerHTML = "7"ElseIf strValue = "-120" then   DataArea2.InnerHTML = "8"ElseIf strValue = "-135" then   DataArea2.InnerHTML = "9"ElseIf strValue = "-150" then   DataArea2.InnerHTML = "10"ElseIf strValue = "-165" then   DataArea2.InnerHTML = "11"ElseIf strValue = "-180" then   DataArea2.InnerHTML = "12"ElseIf strValue = "-195" then   DataArea2.InnerHTML = "13"ElseIf strValue = "-210" then   DataArea2.InnerHTML = "14"ElseIf strValue = "-225" then   DataArea2.InnerHTML = "15"ElseIf strValue = "-240" then   DataArea2.InnerHTML = "16"ElseIf strValue = "-255" then   DataArea2.InnerHTML = "17"ElseIf strValue = "-270" then   DataArea2.InnerHTML = "18"ElseIf strValue = "-285" then   DataArea2.InnerHTML = "19"ElseIf strValue = "-300" then   DataArea2.InnerHTML = "20"ElseIf strValue = "-315" then   DataArea2.InnerHTML = "21"ElseIf strValue = "-330" then   DataArea2.InnerHTML = "22"ElseIf strValue = "-345" then   DataArea2.InnerHTML = "23"ElseIf strValue = "-360" then   DataArea2.InnerHTML = "24"ElseIf strValue = "-375" then   DataArea2.InnerHTML = "25"ElseIf strValue = "-390" then   DataArea2.InnerHTML = "26"ElseIf strValue = "-405" then   DataArea2.InnerHTML = "27"ElseIf strValue = "-420" then   DataArea2.InnerHTML = "28"ElseIf strValue = "-435" then   DataArea2.InnerHTML = "29"ElseIf strValue = "-450" then   DataArea2.InnerHTML = "30"ElseIf strValue = "-465" then   DataArea2.InnerHTML = "31"ElseIf strValue = "-480" then   DataArea2.InnerHTML = "32"ElseIf strValue = "-495" then   DataArea2.InnerHTML = "33"ElseIf strValue = "-510" then   DataArea2.InnerHTML = "34"ElseIf strValue = "-525" then   DataArea2.InnerHTML = "35"ElseIf strValue = "-540" then   DataArea2.InnerHTML = "36"ElseIf strValue = "-555" then   DataArea2.InnerHTML = "37"ElseIf strValue = "-570" then   DataArea2.InnerHTML = "38"ElseIf strValue = "-585" then   DataArea2.InnerHTML = "39"ElseIf strValue = "-600" then   DataArea2.InnerHTML = "40"ElseIf strValue = "-615" then   DataArea2.InnerHTML = "41"ElseIf strValue = "-630" then   DataArea2.InnerHTML = "42"ElseIf strValue = "-645" then   DataArea2.InnerHTML = "43"ElseIf strValue = "-660" then   DataArea2.InnerHTML = "44"ElseIf strValue = "-675" then   DataArea2.InnerHTML = "45"ElseIf strValue = "-690" then   DataArea2.InnerHTML = "46"ElseIf strValue = "-705" then   DataArea2.InnerHTML = "47"ElseIf strValue = "-720" then   DataArea2.InnerHTML = "48"ElseIf strValue = "-735" then   DataArea2.InnerHTML = "49"ElseIf strValue = "-750" then   DataArea2.InnerHTML = "50"ElseIf strValue = "-765" then   DataArea2.InnerHTML = "51"ElseIf strValue = "-780" then   DataArea2.InnerHTML = "52"ElseIf strValue = "-795" then   DataArea2.InnerHTML = "53"ElseIf strValue = "-810" then   DataArea2.InnerHTML = "54"ElseIf strValue = "-825" then   DataArea2.InnerHTML = "55"ElseIf strValue = "-840" then   DataArea2.InnerHTML = "56"ElseIf strValue = "-855" then   DataArea2.InnerHTML = "57"ElseIf strValue = "-870" then   DataArea2.InnerHTML = "58"ElseIf strValue = "-885" then   DataArea2.InnerHTML = "59"ElseIf strValue = "-900" then   DataArea2.InnerHTML = "60"ElseIf strValue = "-915" then   DataArea2.InnerHTML = "61"ElseIf strValue = "-930" then   DataArea2.InnerHTML = "62"ElseIf strValue = "-945" then   DataArea2.InnerHTML = "63"ElseIf strValue = "-960" then   DataArea2.InnerHTML = "64"ElseIf strValue = "-975" then   DataArea2.InnerHTML = "65"ElseIf strValue = "-990" then   DataArea2.InnerHTML = "66"ElseIf strValue = "-1005" then   DataArea2.InnerHTML = "67"ElseIf strValue = "-1020" then   DataArea2.InnerHTML = "68"ElseIf strValue = "-1035" then   DataArea2.InnerHTML = "69"ElseIf strValue = "-1050" then   DataArea2.InnerHTML = "70"ElseIf strValue = "-1065" then   DataArea2.InnerHTML = "71"ElseIf strValue = "-1080" then   DataArea2.InnerHTML = "72"ElseIf strValue = "-1095" then   DataArea2.InnerHTML = "73"ElseIf strValue = "-1110" then   DataArea2.InnerHTML = "74"ElseIf strValue = "-1125" then   DataArea2.InnerHTML = "75"ElseIf strValue = "-1140" then   DataArea2.InnerHTML = "76"ElseIf strValue = "-1155" then   DataArea2.InnerHTML = "77"ElseIf strValue = "-1170" then   DataArea2.InnerHTML = "78"ElseIf strValue = "-1185" then   DataArea2.InnerHTML = "79"Else DataArea2.InnerHTML = "80"End IfEnd Sub'-------------------------------------------------------------------------------sub getPaddedBorderWidth  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  strValueName = "PaddedBorderWidth"  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValueIf  strValue = "0" then   DataArea3.InnerHTML = "0"ElseIf strValue = "-15" then   DataArea3.InnerHTML = "1"ElseIf strValue = "-30" then   DataArea3.InnerHTML = "2"ElseIf strValue = "-45" then   DataArea3.InnerHTML = "3"ElseIf strValue = "-60" then   DataArea3.InnerHTML = "4"ElseIf strValue = "-75" then   DataArea3.InnerHTML = "5"ElseIf strValue = "-90" then   DataArea3.InnerHTML = "6"ElseIf strValue = "-105" then   DataArea3.InnerHTML = "7"ElseIf strValue = "-120" then   DataArea3.InnerHTML = "8"ElseIf strValue = "-135" then   DataArea3.InnerHTML = "9"ElseIf strValue = "-150" then   DataArea3.InnerHTML = "10"ElseIf strValue = "-165" then   DataArea3.InnerHTML = "11"ElseIf strValue = "-180" then   DataArea3.InnerHTML = "12"ElseIf strValue = "-195" then   DataArea3.InnerHTML = "13"ElseIf strValue = "-210" then   DataArea3.InnerHTML = "14"ElseIf strValue = "-225" then   DataArea3.InnerHTML = "15"ElseIf strValue = "-240" then   DataArea3.InnerHTML = "16"ElseIf strValue = "-255" then   DataArea3.InnerHTML = "17"ElseIf strValue = "-270" then   DataArea3.InnerHTML = "18"ElseIf strValue = "-285" then   DataArea3.InnerHTML = "19"ElseIf strValue = "-300" then   DataArea3.InnerHTML = "20"ElseIf strValue = "-315" then   DataArea3.InnerHTML = "21"ElseIf strValue = "-330" then   DataArea3.InnerHTML = "22"ElseIf strValue = "-345" then   DataArea3.InnerHTML = "23"ElseIf strValue = "-360" then   DataArea3.InnerHTML = "24"ElseIf strValue = "-375" then   DataArea3.InnerHTML = "25"ElseIf strValue = "-390" then   DataArea3.InnerHTML = "26"ElseIf strValue = "-405" then   DataArea3.InnerHTML = "27"ElseIf strValue = "-420" then   DataArea3.InnerHTML = "28"ElseIf strValue = "-435" then   DataArea3.InnerHTML = "29"ElseIf strValue = "-450" then   DataArea3.InnerHTML = "30"ElseIf strValue = "-465" then   DataArea3.InnerHTML = "31"ElseIf strValue = "-480" then   DataArea3.InnerHTML = "32"ElseIf strValue = "-495" then   DataArea3.InnerHTML = "33"ElseIf strValue = "-510" then   DataArea3.InnerHTML = "34"ElseIf strValue = "-525" then   DataArea3.InnerHTML = "35"ElseIf strValue = "-540" then   DataArea3.InnerHTML = "36"ElseIf strValue = "-555" then   DataArea3.InnerHTML = "37"ElseIf strValue = "-570" then   DataArea3.InnerHTML = "38"ElseIf strValue = "-585" then   DataArea3.InnerHTML = "39"ElseIf strValue = "-600" then   DataArea3.InnerHTML = "40"ElseIf strValue = "-615" then   DataArea3.InnerHTML = "41"ElseIf strValue = "-630" then   DataArea3.InnerHTML = "42"ElseIf strValue = "-645" then   DataArea3.InnerHTML = "43"ElseIf strValue = "-660" then   DataArea3.InnerHTML = "44"ElseIf strValue = "-675" then   DataArea3.InnerHTML = "45"ElseIf strValue = "-690" then   DataArea3.InnerHTML = "46"ElseIf strValue = "-705" then   DataArea3.InnerHTML = "47"ElseIf strValue = "-720" then   DataArea3.InnerHTML = "48"ElseIf strValue = "-735" then   DataArea3.InnerHTML = "49"ElseIf strValue = "-750" then   DataArea3.InnerHTML = "50"ElseIf strValue = "-765" then   DataArea3.InnerHTML = "51"ElseIf strValue = "-780" then   DataArea3.InnerHTML = "52"ElseIf strValue = "-795" then   DataArea3.InnerHTML = "53"ElseIf strValue = "-810" then   DataArea3.InnerHTML = "54"ElseIf strValue = "-825" then   DataArea3.InnerHTML = "55"ElseIf strValue = "-840" then   DataArea3.InnerHTML = "56"ElseIf strValue = "-855" then   DataArea3.InnerHTML = "57"ElseIf strValue = "-870" then   DataArea3.InnerHTML = "58"ElseIf strValue = "-885" then   DataArea3.InnerHTML = "59"ElseIf strValue = "-900" then   DataArea3.InnerHTML = "60"ElseIf strValue = "-915" then   DataArea3.InnerHTML = "61"ElseIf strValue = "-930" then   DataArea3.InnerHTML = "62"ElseIf strValue = "-945" then   DataArea3.InnerHTML = "63"ElseIf strValue = "-960" then   DataArea3.InnerHTML = "64"ElseIf strValue = "-975" then   DataArea3.InnerHTML = "65"ElseIf strValue = "-990" then   DataArea3.InnerHTML = "66"ElseIf strValue = "-1005" then   DataArea3.InnerHTML = "67"ElseIf strValue = "-1020" then   DataArea3.InnerHTML = "68"ElseIf strValue = "-1035" then   DataArea3.InnerHTML = "69"ElseIf strValue = "-1050" then   DataArea3.InnerHTML = "70"ElseIf strValue = "-1065" then   DataArea3.InnerHTML = "71"ElseIf strValue = "-1080" then   DataArea3.InnerHTML = "72"ElseIf strValue = "-1095" then   DataArea3.InnerHTML = "73"ElseIf strValue = "-1110" then   DataArea3.InnerHTML = "74"ElseIf strValue = "-1125" then   DataArea3.InnerHTML = "75"ElseIf strValue = "-1140" then   DataArea3.InnerHTML = "76"ElseIf strValue = "-1155" then   DataArea3.InnerHTML = "77"ElseIf strValue = "-1170" then   DataArea3.InnerHTML = "78"ElseIf strValue = "-1185" then   DataArea3.InnerHTML = "79"Else DataArea3.InnerHTML = "80"End IfEnd Sub'-------------------------------------------------------------------------------sub getShellIconSize  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  strValueName = "Shell Icon Size"  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  DataArea4.InnerHTML = strValueEnd Sub'-------------------------------------------------------------------------------sub getIconSpacing  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  strValueName = "IconSpacing"  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValueIf  strValue = "0" then   DataArea5.InnerHTML = "0"ElseIf strValue = "-15" then   DataArea5.InnerHTML = "1"ElseIf strValue = "-30" then   DataArea5.InnerHTML = "2"ElseIf strValue = "-45" then   DataArea5.InnerHTML = "3"ElseIf strValue = "-60" then   DataArea5.InnerHTML = "4"ElseIf strValue = "-75" then   DataArea5.InnerHTML = "5"ElseIf strValue = "-90" then   DataArea5.InnerHTML = "6"ElseIf strValue = "-105" then   DataArea5.InnerHTML = "7"ElseIf strValue = "-120" then   DataArea5.InnerHTML = "8"ElseIf strValue = "-135" then   DataArea5.InnerHTML = "9"ElseIf strValue = "-150" then   DataArea5.InnerHTML = "10"ElseIf strValue = "-165" then   DataArea5.InnerHTML = "11"ElseIf strValue = "-180" then   DataArea5.InnerHTML = "12"ElseIf strValue = "-195" then   DataArea5.InnerHTML = "13"ElseIf strValue = "-210" then   DataArea5.InnerHTML = "14"ElseIf strValue = "-225" then   DataArea5.InnerHTML = "15"ElseIf strValue = "-240" then   DataArea5.InnerHTML = "16"ElseIf strValue = "-255" then   DataArea5.InnerHTML = "17"ElseIf strValue = "-270" then   DataArea5.InnerHTML = "18"ElseIf strValue = "-285" then   DataArea5.InnerHTML = "19"ElseIf strValue = "-300" then   DataArea5.InnerHTML = "20"ElseIf strValue = "-315" then   DataArea5.InnerHTML = "21"ElseIf strValue = "-330" then   DataArea5.InnerHTML = "22"ElseIf strValue = "-345" then   DataArea5.InnerHTML = "23"ElseIf strValue = "-360" then   DataArea5.InnerHTML = "24"ElseIf strValue = "-375" then   DataArea5.InnerHTML = "25"ElseIf strValue = "-390" then   DataArea5.InnerHTML = "26"ElseIf strValue = "-405" then   DataArea5.InnerHTML = "27"ElseIf strValue = "-420" then   DataArea5.InnerHTML = "28"ElseIf strValue = "-435" then   DataArea5.InnerHTML = "29"ElseIf strValue = "-450" then   DataArea5.InnerHTML = "30"ElseIf strValue = "-465" then   DataArea5.InnerHTML = "31"ElseIf strValue = "-480" then   DataArea5.InnerHTML = "32"ElseIf strValue = "-495" then   DataArea5.InnerHTML = "33"ElseIf strValue = "-510" then   DataArea5.InnerHTML = "34"ElseIf strValue = "-525" then   DataArea5.InnerHTML = "35"ElseIf strValue = "-540" then   DataArea5.InnerHTML = "36"ElseIf strValue = "-555" then   DataArea5.InnerHTML = "37"ElseIf strValue = "-570" then   DataArea5.InnerHTML = "38"ElseIf strValue = "-585" then   DataArea5.InnerHTML = "39"ElseIf strValue = "-600" then   DataArea5.InnerHTML = "40"ElseIf strValue = "-615" then   DataArea5.InnerHTML = "41"ElseIf strValue = "-630" then   DataArea5.InnerHTML = "42"ElseIf strValue = "-645" then   DataArea5.InnerHTML = "43"ElseIf strValue = "-660" then   DataArea5.InnerHTML = "44"ElseIf strValue = "-675" then   DataArea5.InnerHTML = "45"ElseIf strValue = "-690" then   DataArea5.InnerHTML = "46"ElseIf strValue = "-705" then   DataArea5.InnerHTML = "47"ElseIf strValue = "-720" then   DataArea5.InnerHTML = "48"ElseIf strValue = "-735" then   DataArea5.InnerHTML = "49"ElseIf strValue = "-750" then   DataArea5.InnerHTML = "50"ElseIf strValue = "-765" then   DataArea5.InnerHTML = "51"ElseIf strValue = "-780" then   DataArea5.InnerHTML = "52"ElseIf strValue = "-795" then   DataArea5.InnerHTML = "53"ElseIf strValue = "-810" then   DataArea5.InnerHTML = "54"ElseIf strValue = "-825" then   DataArea5.InnerHTML = "55"ElseIf strValue = "-840" then   DataArea5.InnerHTML = "56"ElseIf strValue = "-855" then   DataArea5.InnerHTML = "57"ElseIf strValue = "-870" then   DataArea5.InnerHTML = "58"ElseIf strValue = "-885" then   DataArea5.InnerHTML = "59"ElseIf strValue = "-900" then   DataArea5.InnerHTML = "60"ElseIf strValue = "-915" then   DataArea5.InnerHTML = "61"ElseIf strValue = "-930" then   DataArea5.InnerHTML = "62"ElseIf strValue = "-945" then   DataArea5.InnerHTML = "63"ElseIf strValue = "-960" then   DataArea5.InnerHTML = "64"ElseIf strValue = "-975" then   DataArea5.InnerHTML = "65"ElseIf strValue = "-990" then   DataArea5.InnerHTML = "66"ElseIf strValue = "-1005" then   DataArea5.InnerHTML = "67"ElseIf strValue = "-1020" then   DataArea5.InnerHTML = "68"ElseIf strValue = "-1035" then   DataArea5.InnerHTML = "69"ElseIf strValue = "-1050" then   DataArea5.InnerHTML = "70"ElseIf strValue = "-1065" then   DataArea5.InnerHTML = "71"ElseIf strValue = "-1080" then   DataArea5.InnerHTML = "72"ElseIf strValue = "-1095" then   DataArea5.InnerHTML = "73"ElseIf strValue = "-1110" then   DataArea5.InnerHTML = "74"ElseIf strValue = "-1125" then   DataArea5.InnerHTML = "75"ElseIf strValue = "-1140" then   DataArea5.InnerHTML = "76"ElseIf strValue = "-1155" then   DataArea5.InnerHTML = "77"ElseIf strValue = "-1170" then   DataArea5.InnerHTML = "78"ElseIf strValue = "-1185" then   DataArea5.InnerHTML = "79"Else DataArea5.InnerHTML = "80"End IfEnd Sub'-------------------------------------------------------------------------------sub getIconVerticalSpacing  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  strValueName = "IconVerticalSpacing"  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValueIf  strValue = "0" then   DataArea6.InnerHTML = "0"ElseIf strValue = "-15" then   DataArea6.InnerHTML = "1"ElseIf strValue = "-30" then   DataArea6.InnerHTML = "2"ElseIf strValue = "-45" then   DataArea6.InnerHTML = "3"ElseIf strValue = "-60" then   DataArea6.InnerHTML = "4"ElseIf strValue = "-75" then   DataArea6.InnerHTML = "5"ElseIf strValue = "-90" then   DataArea6.InnerHTML = "6"ElseIf strValue = "-105" then   DataArea6.InnerHTML = "7"ElseIf strValue = "-120" then   DataArea6.InnerHTML = "8"ElseIf strValue = "-135" then   DataArea6.InnerHTML = "9"ElseIf strValue = "-150" then   DataArea6.InnerHTML = "10"ElseIf strValue = "-165" then   DataArea6.InnerHTML = "11"ElseIf strValue = "-180" then   DataArea6.InnerHTML = "12"ElseIf strValue = "-195" then   DataArea6.InnerHTML = "13"ElseIf strValue = "-210" then   DataArea6.InnerHTML = "14"ElseIf strValue = "-225" then   DataArea6.InnerHTML = "15"ElseIf strValue = "-240" then   DataArea6.InnerHTML = "16"ElseIf strValue = "-255" then   DataArea6.InnerHTML = "17"ElseIf strValue = "-270" then   DataArea6.InnerHTML = "18"ElseIf strValue = "-285" then   DataArea6.InnerHTML = "19"ElseIf strValue = "-300" then   DataArea6.InnerHTML = "20"ElseIf strValue = "-315" then   DataArea6.InnerHTML = "21"ElseIf strValue = "-330" then   DataArea6.InnerHTML = "22"ElseIf strValue = "-345" then   DataArea6.InnerHTML = "23"ElseIf strValue = "-360" then   DataArea6.InnerHTML = "24"ElseIf strValue = "-375" then   DataArea6.InnerHTML = "25"ElseIf strValue = "-390" then   DataArea6.InnerHTML = "26"ElseIf strValue = "-405" then   DataArea6.InnerHTML = "27"ElseIf strValue = "-420" then   DataArea6.InnerHTML = "28"ElseIf strValue = "-435" then   DataArea6.InnerHTML = "29"ElseIf strValue = "-450" then   DataArea6.InnerHTML = "30"ElseIf strValue = "-465" then   DataArea6.InnerHTML = "31"ElseIf strValue = "-480" then   DataArea6.InnerHTML = "32"ElseIf strValue = "-495" then   DataArea6.InnerHTML = "33"ElseIf strValue = "-510" then   DataArea6.InnerHTML = "34"ElseIf strValue = "-525" then   DataArea6.InnerHTML = "35"ElseIf strValue = "-540" then   DataArea6.InnerHTML = "36"ElseIf strValue = "-555" then   DataArea6.InnerHTML = "37"ElseIf strValue = "-570" then   DataArea6.InnerHTML = "38"ElseIf strValue = "-585" then   DataArea6.InnerHTML = "39"ElseIf strValue = "-600" then   DataArea6.InnerHTML = "40"ElseIf strValue = "-615" then   DataArea6.InnerHTML = "41"ElseIf strValue = "-630" then   DataArea6.InnerHTML = "42"ElseIf strValue = "-645" then   DataArea6.InnerHTML = "43"ElseIf strValue = "-660" then   DataArea6.InnerHTML = "44"ElseIf strValue = "-675" then   DataArea6.InnerHTML = "45"ElseIf strValue = "-690" then   DataArea6.InnerHTML = "46"ElseIf strValue = "-705" then   DataArea6.InnerHTML = "47"ElseIf strValue = "-720" then   DataArea6.InnerHTML = "48"ElseIf strValue = "-735" then   DataArea6.InnerHTML = "49"ElseIf strValue = "-750" then   DataArea6.InnerHTML = "50"ElseIf strValue = "-765" then   DataArea6.InnerHTML = "51"ElseIf strValue = "-780" then   DataArea6.InnerHTML = "52"ElseIf strValue = "-795" then   DataArea6.InnerHTML = "53"ElseIf strValue = "-810" then   DataArea6.InnerHTML = "54"ElseIf strValue = "-825" then   DataArea6.InnerHTML = "55"ElseIf strValue = "-840" then   DataArea6.InnerHTML = "56"ElseIf strValue = "-855" then   DataArea6.InnerHTML = "57"ElseIf strValue = "-870" then   DataArea6.InnerHTML = "58"ElseIf strValue = "-885" then   DataArea6.InnerHTML = "59"ElseIf strValue = "-900" then   DataArea6.InnerHTML = "60"ElseIf strValue = "-915" then   DataArea6.InnerHTML = "61"ElseIf strValue = "-930" then   DataArea6.InnerHTML = "62"ElseIf strValue = "-945" then   DataArea6.InnerHTML = "63"ElseIf strValue = "-960" then   DataArea6.InnerHTML = "64"ElseIf strValue = "-975" then   DataArea6.InnerHTML = "65"ElseIf strValue = "-990" then   DataArea6.InnerHTML = "66"ElseIf strValue = "-1005" then   DataArea6.InnerHTML = "67"ElseIf strValue = "-1020" then   DataArea6.InnerHTML = "68"ElseIf strValue = "-1035" then   DataArea6.InnerHTML = "69"ElseIf strValue = "-1050" then   DataArea6.InnerHTML = "70"ElseIf strValue = "-1065" then   DataArea6.InnerHTML = "71"ElseIf strValue = "-1080" then   DataArea6.InnerHTML = "72"ElseIf strValue = "-1095" then   DataArea6.InnerHTML = "73"ElseIf strValue = "-1110" then   DataArea6.InnerHTML = "74"ElseIf strValue = "-1125" then   DataArea6.InnerHTML = "75"ElseIf strValue = "-1140" then   DataArea6.InnerHTML = "76"ElseIf strValue = "-1155" then   DataArea6.InnerHTML = "77"ElseIf strValue = "-1170" then   DataArea6.InnerHTML = "78"ElseIf strValue = "-1185" then   DataArea6.InnerHTML = "79"Else DataArea6.InnerHTML = "80"End IfEnd Sub'------------------------------------------------------------------------------- sub getMenuHeight  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  strValueName = "MenuHeight"  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValueIf  strValue = "0" then   DataArea7.InnerHTML = "0"ElseIf strValue = "-15" then   DataArea7.InnerHTML = "1"ElseIf strValue = "-30" then   DataArea7.InnerHTML = "2"ElseIf strValue = "-45" then   DataArea7.InnerHTML = "3"ElseIf strValue = "-60" then   DataArea7.InnerHTML = "4"ElseIf strValue = "-75" then   DataArea7.InnerHTML = "5"ElseIf strValue = "-90" then   DataArea7.InnerHTML = "6"ElseIf strValue = "-105" then   DataArea7.InnerHTML = "7"ElseIf strValue = "-120" then   DataArea7.InnerHTML = "8"ElseIf strValue = "-135" then   DataArea7.InnerHTML = "9"ElseIf strValue = "-150" then   DataArea7.InnerHTML = "10"ElseIf strValue = "-165" then   DataArea7.InnerHTML = "11"ElseIf strValue = "-180" then   DataArea7.InnerHTML = "12"ElseIf strValue = "-195" then   DataArea7.InnerHTML = "13"ElseIf strValue = "-210" then   DataArea7.InnerHTML = "14"ElseIf strValue = "-225" then   DataArea7.InnerHTML = "15"ElseIf strValue = "-240" then   DataArea7.InnerHTML = "16"ElseIf strValue = "-255" then   DataArea7.InnerHTML = "17"ElseIf strValue = "-270" then   DataArea7.InnerHTML = "18"ElseIf strValue = "-285" then   DataArea7.InnerHTML = "19"ElseIf strValue = "-300" then   DataArea7.InnerHTML = "20"ElseIf strValue = "-315" then   DataArea7.InnerHTML = "21"ElseIf strValue = "-330" then   DataArea7.InnerHTML = "22"ElseIf strValue = "-345" then   DataArea7.InnerHTML = "23"ElseIf strValue = "-360" then   DataArea7.InnerHTML = "24"ElseIf strValue = "-375" then   DataArea7.InnerHTML = "25"ElseIf strValue = "-390" then   DataArea7.InnerHTML = "26"ElseIf strValue = "-405" then   DataArea7.InnerHTML = "27"ElseIf strValue = "-420" then   DataArea7.InnerHTML = "28"ElseIf strValue = "-435" then   DataArea7.InnerHTML = "29"ElseIf strValue = "-450" then   DataArea7.InnerHTML = "30"ElseIf strValue = "-465" then   DataArea7.InnerHTML = "31"ElseIf strValue = "-480" then   DataArea7.InnerHTML = "32"ElseIf strValue = "-495" then   DataArea7.InnerHTML = "33"ElseIf strValue = "-510" then   DataArea7.InnerHTML = "34"ElseIf strValue = "-525" then   DataArea7.InnerHTML = "35"ElseIf strValue = "-540" then   DataArea7.InnerHTML = "36"ElseIf strValue = "-555" then   DataArea7.InnerHTML = "37"ElseIf strValue = "-570" then   DataArea7.InnerHTML = "38"ElseIf strValue = "-585" then   DataArea7.InnerHTML = "39"ElseIf strValue = "-600" then   DataArea7.InnerHTML = "40"ElseIf strValue = "-615" then   DataArea7.InnerHTML = "41"ElseIf strValue = "-630" then   DataArea7.InnerHTML = "42"ElseIf strValue = "-645" then   DataArea7.InnerHTML = "43"ElseIf strValue = "-660" then   DataArea7.InnerHTML = "44"ElseIf strValue = "-675" then   DataArea7.InnerHTML = "45"ElseIf strValue = "-690" then   DataArea7.InnerHTML = "46"ElseIf strValue = "-705" then   DataArea7.InnerHTML = "47"ElseIf strValue = "-720" then   DataArea7.InnerHTML = "48"ElseIf strValue = "-735" then   DataArea7.InnerHTML = "49"ElseIf strValue = "-750" then   DataArea7.InnerHTML = "50"ElseIf strValue = "-765" then   DataArea7.InnerHTML = "51"ElseIf strValue = "-780" then   DataArea7.InnerHTML = "52"ElseIf strValue = "-795" then   DataArea7.InnerHTML = "53"ElseIf strValue = "-810" then   DataArea7.InnerHTML = "54"ElseIf strValue = "-825" then   DataArea7.InnerHTML = "55"ElseIf strValue = "-840" then   DataArea7.InnerHTML = "56"ElseIf strValue = "-855" then   DataArea7.InnerHTML = "57"ElseIf strValue = "-870" then   DataArea7.InnerHTML = "58"ElseIf strValue = "-885" then   DataArea7.InnerHTML = "59"ElseIf strValue = "-900" then   DataArea7.InnerHTML = "60"ElseIf strValue = "-915" then   DataArea7.InnerHTML = "61"ElseIf strValue = "-930" then   DataArea7.InnerHTML = "62"ElseIf strValue = "-945" then   DataArea7.InnerHTML = "63"ElseIf strValue = "-960" then   DataArea7.InnerHTML = "64"ElseIf strValue = "-975" then   DataArea7.InnerHTML = "65"ElseIf strValue = "-990" then   DataArea7.InnerHTML = "66"ElseIf strValue = "-1005" then   DataArea7.InnerHTML = "67"ElseIf strValue = "-1020" then   DataArea7.InnerHTML = "68"ElseIf strValue = "-1035" then   DataArea7.InnerHTML = "69"ElseIf strValue = "-1050" then   DataArea7.InnerHTML = "70"ElseIf strValue = "-1065" then   DataArea7.InnerHTML = "71"ElseIf strValue = "-1080" then   DataArea7.InnerHTML = "72"ElseIf strValue = "-1095" then   DataArea7.InnerHTML = "73"ElseIf strValue = "-1110" then   DataArea7.InnerHTML = "74"ElseIf strValue = "-1125" then   DataArea7.InnerHTML = "75"ElseIf strValue = "-1140" then   DataArea7.InnerHTML = "76"ElseIf strValue = "-1155" then   DataArea7.InnerHTML = "77"ElseIf strValue = "-1170" then   DataArea7.InnerHTML = "78"ElseIf strValue = "-1185" then   DataArea7.InnerHTML = "79"Else DataArea7.InnerHTML = "80"End IfEnd Sub'-------------------------------------------------------------------------------sub getScrollHeight  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  strValueName = "ScrollHeight"  oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValueIf  strValue = "0" then   DataArea8.InnerHTML = "0"ElseIf strValue = "-15" then   DataArea8.InnerHTML = "1"ElseIf strValue = "-30" then   DataArea8.InnerHTML = "2"ElseIf strValue = "-45" then   DataArea8.InnerHTML = "3"ElseIf strValue = "-60" then   DataArea8.InnerHTML = "4"ElseIf strValue = "-75" then   DataArea8.InnerHTML = "5"ElseIf strValue = "-90" then   DataArea8.InnerHTML = "6"ElseIf strValue = "-105" then   DataArea8.InnerHTML = "7"ElseIf strValue = "-120" then   DataArea8.InnerHTML = "8"ElseIf strValue = "-135" then   DataArea8.InnerHTML = "9"ElseIf strValue = "-150" then   DataArea8.InnerHTML = "10"ElseIf strValue = "-165" then   DataArea8.InnerHTML = "11"ElseIf strValue = "-180" then   DataArea8.InnerHTML = "12"ElseIf strValue = "-195" then   DataArea8.InnerHTML = "13"ElseIf strValue = "-210" then   DataArea8.InnerHTML = "14"ElseIf strValue = "-225" then   DataArea8.InnerHTML = "15"ElseIf strValue = "-240" then   DataArea8.InnerHTML = "16"ElseIf strValue = "-255" then   DataArea8.InnerHTML = "17"ElseIf strValue = "-270" then   DataArea8.InnerHTML = "18"ElseIf strValue = "-285" then   DataArea8.InnerHTML = "19"ElseIf strValue = "-300" then   DataArea8.InnerHTML = "20"ElseIf strValue = "-315" then   DataArea8.InnerHTML = "21"ElseIf strValue = "-330" then   DataArea8.InnerHTML = "22"ElseIf strValue = "-345" then   DataArea8.InnerHTML = "23"ElseIf strValue = "-360" then   DataArea8.InnerHTML = "24"ElseIf strValue = "-375" then   DataArea8.InnerHTML = "25"ElseIf strValue = "-390" then   DataArea8.InnerHTML = "26"ElseIf strValue = "-405" then   DataArea8.InnerHTML = "27"ElseIf strValue = "-420" then   DataArea8.InnerHTML = "28"ElseIf strValue = "-435" then   DataArea8.InnerHTML = "29"ElseIf strValue = "-450" then   DataArea8.InnerHTML = "30"ElseIf strValue = "-465" then   DataArea8.InnerHTML = "31"ElseIf strValue = "-480" then   DataArea8.InnerHTML = "32"ElseIf strValue = "-495" then   DataArea8.InnerHTML = "33"ElseIf strValue = "-510" then   DataArea8.InnerHTML = "34"ElseIf strValue = "-525" then   DataArea8.InnerHTML = "35"ElseIf strValue = "-540" then   DataArea8.InnerHTML = "36"ElseIf strValue = "-555" then   DataArea8.InnerHTML = "37"ElseIf strValue = "-570" then   DataArea8.InnerHTML = "38"ElseIf strValue = "-585" then   DataArea8.InnerHTML = "39"ElseIf strValue = "-600" then   DataArea8.InnerHTML = "40"ElseIf strValue = "-615" then   DataArea8.InnerHTML = "41"ElseIf strValue = "-630" then   DataArea8.InnerHTML = "42"ElseIf strValue = "-645" then   DataArea8.InnerHTML = "43"ElseIf strValue = "-660" then   DataArea8.InnerHTML = "44"ElseIf strValue = "-675" then   DataArea8.InnerHTML = "45"ElseIf strValue = "-690" then   DataArea8.InnerHTML = "46"ElseIf strValue = "-705" then   DataArea8.InnerHTML = "47"ElseIf strValue = "-720" then   DataArea8.InnerHTML = "48"ElseIf strValue = "-735" then   DataArea8.InnerHTML = "49"ElseIf strValue = "-750" then   DataArea8.InnerHTML = "50"ElseIf strValue = "-765" then   DataArea8.InnerHTML = "51"ElseIf strValue = "-780" then   DataArea8.InnerHTML = "52"ElseIf strValue = "-795" then   DataArea8.InnerHTML = "53"ElseIf strValue = "-810" then   DataArea8.InnerHTML = "54"ElseIf strValue = "-825" then   DataArea8.InnerHTML = "55"ElseIf strValue = "-840" then   DataArea8.InnerHTML = "56"ElseIf strValue = "-855" then   DataArea8.InnerHTML = "57"ElseIf strValue = "-870" then   DataArea8.InnerHTML = "58"ElseIf strValue = "-885" then   DataArea8.InnerHTML = "59"ElseIf strValue = "-900" then   DataArea8.InnerHTML = "60"ElseIf strValue = "-915" then   DataArea8.InnerHTML = "61"ElseIf strValue = "-930" then   DataArea8.InnerHTML = "62"ElseIf strValue = "-945" then   DataArea8.InnerHTML = "63"ElseIf strValue = "-960" then   DataArea8.InnerHTML = "64"ElseIf strValue = "-975" then   DataArea8.InnerHTML = "65"ElseIf strValue = "-990" then   DataArea8.InnerHTML = "66"ElseIf strValue = "-1005" then   DataArea8.InnerHTML = "67"ElseIf strValue = "-1020" then   DataArea8.InnerHTML = "68"ElseIf strValue = "-1035" then   DataArea8.InnerHTML = "69"ElseIf strValue = "-1050" then   DataArea8.InnerHTML = "70"ElseIf strValue = "-1065" then   DataArea8.InnerHTML = "71"ElseIf strValue = "-1080" then   DataArea8.InnerHTML = "72"ElseIf strValue = "-1095" then   DataArea8.InnerHTML = "73"ElseIf strValue = "-1110" then   DataArea8.InnerHTML = "74"ElseIf strValue = "-1125" then   DataArea8.InnerHTML = "75"ElseIf strValue = "-1140" then   DataArea8.InnerHTML = "76"ElseIf strValue = "-1155" then   DataArea8.InnerHTML = "77"ElseIf strValue = "-1170" then   DataArea8.InnerHTML = "78"ElseIf strValue = "-1185" then   DataArea8.InnerHTML = "79"Else DataArea8.InnerHTML = "80"End IfEnd Sub'----------------------------------------------------------------------------- </script><SCRIPT LANGUAGE="VBScript">strComputer = "."Sub CaptionButtons  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "CaptionHeight"  strValue = DropDown1.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "CaptionWidth"  strValue = DropDown1.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  getCaptionHeightEnd Sub'-------------------------------------------------------------------------------Sub WindowBorder  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "BorderWidth"  strValue = DropDown2.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  getBorderWidth  End Sub 'WindowBorder'-------------------------------------------------------------------------------Sub BorderPadding  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "PaddedBorderWidth"  strValue = DropDown3.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  getPaddedBorderWidth  End Sub 'BorderPadding'-------------------------------------------------------------------------------Sub Icon  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "Shell Icon Size"  strValue = DropDown4.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  getShellIconSize  End Sub 'Icon'-------------------------------------------------------------------------------Sub IconSpacing  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "IconSpacing"  strValue = DropDown5.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  getIconSpacing  End Sub 'IconSpacing'-------------------------------------------------------------------------------Sub IconSpacingVertical  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "IconVerticalSpacing"  strValue = DropDown6.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  getIconVerticalSpacing  End Sub 'IconSpacingVertical'-------------------------------------------------------------------------------Sub Menu  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "MenuHeight"  strValue = DropDown7.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "MenuWidth"  strValue = DropDown7.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  getMenuHeight  End Sub 'Menu'-------------------------------------------------------------------------------Sub Scrollbar  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "ScrollHeight"  strValue = DropDown8.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  strKeyPath = "Control Panel\Desktop\WindowMetrics"  oReg.CreateKey HKEY_CURRENT_USER,strKeyPath  strValueName = "ScrollWidth"  strValue = DropDown8.Value  oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue  getScrollHeight  End Sub 'Scrollbar'--------------------------------------Apply--------------------------------- Sub Apply  CaptionButtons  WindowBorder  BorderPadding  Icon  IconSpacing  IconSpacingVertical  Menu  ScrollbarEnd SubSub ApplyExit  Apply  self.closeEnd Sub</SCRIPT><body><table align="center" border="0" cellpadding="0" cellspacing="0" width="440"><tr valign="top">  <td colspan="2"><span class="tabs tabsSelected" id="tab1" onclick="panel(1)">System Metrics</span><div class="panel" id="panel1" style="display:block">  <table border=0 width=100%>   <tr>    <td width=52% valign=top align=Left><FONT SIZE=2><B><I>System Metrics</I></B></FONT><BR></td>    <td width=15% valign=top align=left><FONT SIZE=2><B><I>Current</I></B></FONT><BR></td>    <td width=20% valign=top align=left><FONT SIZE=2><B><I>New</I></B></FONT><BR></td>   </tr>  </table>  <HR color="buttonface"/>  <table border="0" width="100%">   <tr>    <td width=65% align=left valign=top bgcolor="window">     Caption Buttons: <br/><HR color="window"/>     Window Border: <br/><HR color="window"/>     Border Padding: <br/><HR color="window"/>     Icon: <br/><HR color="window"/>     Icon Spacing (Horizontal): <br/><HR color="window"/>     Icon Spacing (Vertical): <br/><HR color="window"/>     Menu: <br/><HR color="window"/>     Scrollbar Buttons:    </td>    <td width=15% align=center valign=top bgcolor="window">     <span id = "DataArea1"></span><br/><HR color="window"/>     <span id = "DataArea2"></span><br/><HR color="window"/>     <span id = "DataArea3"></span><br/><HR color="window"/>     <span id = "DataArea4"></span><br/><HR color="window"/>     <span id = "DataArea5"></span><br/><HR color="window"/>     <span id = "DataArea6"></span><br/><HR color="window"/>     <span id = "DataArea7"></span><br/><HR color="window"/>     <span id = "DataArea8"></span>    </td>    <td width=10% align=right valign=top bgcolor="window">     <select size="1" name="DropDown1">     <option></option>     <option value="-120">8</option>     <option value="-135">9</option>     <option value="-150">10</option>     <option value="-165">11</option>     <option value="-180">12</option>     <option value="-195">13</option>     <option value="-210">14</option>     <option value="-225">15</option>     <option value="-240">16</option>     <option value="-255">17</option>     <option value="-270">18</option>     <option value="-285">19</option>     <option value="-300">20</option>     <option value="-315" selected>21</option>     <option value="-330">22</option>     <option value="-345">23</option>     <option value="-360">24</option>     <option value="-375">25</option>     <option value="-390">26</option>     <option value="-405">27</option>     <option value="-420">28</option>     <option value="-435">29</option>     <option value="-450">30</option>     <option value="-465">31</option>     <option value="-480">32</option>     <option value="-495">33</option>     <option value="-510">34</option>     <option value="-525">35</option>     <option value="-540">36</option>     <option value="-555">37</option>     <option value="-570">38</option>     <option value="-585">39</option>     <option value="-600">40</option>     <option value="-615">41</option>     <option value="-630">42</option>     <option value="-645">43</option>     <option value="-660">44</option>     <option value="-675">45</option>     <option value="-690">46</option>     <option value="-705">47</option>     <option value="-720">48</option>     <option value="-735">49</option>     <option value="-750">50</option>     </select><br/><HR color="window"/>     <select size="1" name="DropDown2">     <option></option>     <option value="0">0</option>     <option value="-15" selected>1</option>     <option value="-30">2</option>     <option value="-45">3</option>     <option value="-60">4</option>     <option value="-75">5</option>     <option value="-90">6</option>     <option value="-105">7</option>     <option value="-120">8</option>     <option value="-135">9</option>     <option value="-150">10</option>     <option value="-165">11</option>     <option value="-180">12</option>     <option value="-195">13</option>     <option value="-210">14</option>     <option value="-225" >15</option>     <option value="-240">16</option>     <option value="-255">17</option>     <option value="-270">18</option>     <option value="-285">19</option>     <option value="-300">20</option>     <option value="-315">21</option>     <option value="-330">22</option>     <option value="-345">23</option>     <option value="-360">24</option>     <option value="-375">25</option>     <option value="-390">26</option>     <option value="-405">27</option>     <option value="-420">28</option>     <option value="-435">29</option>     <option value="-450">30</option>     <option value="-465">31</option>     <option value="-480">32</option>     <option value="-495">33</option>     <option value="-510">34</option>     <option value="-525">35</option>     <option value="-540">36</option>     <option value="-555">37</option>     <option value="-570">38</option>     <option value="-585">39</option>     <option value="-600">40</option>     <option value="-615">41</option>     <option value="-630">42</option>     <option value="-645">43</option>     <option value="-660">44</option>     <option value="-675">45</option>     <option value="-690">46</option>     <option value="-705">47</option>     <option value="-720">48</option>     <option value="-735">49</option>     <option value="-750">50</option>     </select><br/><HR color="window"/>     <select size="1" name="DropDown3">     <option></option>     <option value="0">0</option>     <option value="-15">1</option>     <option value="-30">2</option>     <option value="-45">3</option>     <option value="-60" selected>4</option>     <option value="-75">5</option>     <option value="-90">6</option>     <option value="-105">7</option>     <option value="-120">8</option>     <option value="-135">9</option>     <option value="-150">10</option>     <option value="-165">11</option>     <option value="-180">12</option>     <option value="-195">13</option>     <option value="-210">14</option>     <option value="-225">15</option>     <option value="-240">16</option>     <option value="-255">17</option>     <option value="-270">18</option>     <option value="-285">19</option>     <option value="-300">20</option>     <option value="-315">21</option>     <option value="-330">22</option>     <option value="-345">23</option>     <option value="-360">24</option>     <option value="-375">25</option>     <option value="-390">26</option>     <option value="-405">27</option>     <option value="-420">28</option>     <option value="-435">29</option>     <option value="-450">30</option>     <option value="-465">31</option>     <option value="-480">32</option>     <option value="-495">33</option>     <option value="-510">34</option>     <option value="-525">35</option>     <option value="-540">36</option>     <option value="-555">37</option>     <option value="-570">38</option>     <option value="-585">39</option>     <option value="-600">40</option>     <option value="-615">41</option>     <option value="-630">42</option>     <option value="-645">43</option>     <option value="-660">44</option>     <option value="-675">45</option>     <option value="-690">46</option>     <option value="-705">47</option>     <option value="-720">48</option>     <option value="-735">49</option>     <option value="-750">50</option>     </select><br/><HR color="window"/>     <select size="1" name="DropDown4">     <option></option>     <option value="0">0</option>     <option value="1">1</option>     <option value="2">2</option>     <option value="3">3</option>     <option value="4">4</option>     <option value="5">5</option>     <option value="6">6</option>     <option value="7">7</option>     <option value="8">8</option>     <option value="9">9</option>     <option value="10">10</option>     <option value="11">11</option>     <option value="12">12</option>     <option value="13">13</option>     <option value="14">14</option>     <option value="15">15</option>     <option value="16">16</option>     <option value="17">17</option>     <option value="18">18</option>     <option value="19">19</option>     <option value="20">20</option>     <option value="30">30</option>     <option value="31">31</option>     <option value="32" selected>32</option>     <option value="33">33</option>     <option value="34">34</option>     <option value="35">35</option>     <option value="36">36</option>     <option value="37">37</option>     <option value="38">38</option>     <option value="39">39</option>     <option value="40">40</option>     <option value="41">41</option>     <option value="42">42</option>     <option value="43">43</option>     <option value="44">44</option>     <option value="45">45</option>     <option value="46">46</option>     <option value="47">47</option>     <option value="48">48</option>     <option value="49">49</option>        <option value="50">50</option>     <option value="51">51</option>     <option value="52">52</option>     <option value="53">53</option>     <option value="54">54</option>     <option value="55">55</option>     <option value="56">56</option>     <option value="57">57</option>     <option value="58">58</option>     <option value="59">59</option>        <option value="60">60</option>     <option value="61">61</option>     <option value="62">62</option>     <option value="63">63</option>     <option value="64">64</option>     <option value="65">65</option>     <option value="66">66</option>     <option value="67">67</option>     <option value="68">68</option>     <option value="69">69</option>        <option value="70">70</option>     <option value="71">71</option>     <option value="72">72</option>     </select><br/><HR color="window"/>     <select size="1" name="DropDown5">     <option></option>     <option value="0">0</option>     <option value="-15">1</option>     <option value="-30">2</option>     <option value="-45">3</option>     <option value="-60">4</option>     <option value="-75">5</option>     <option value="-90">6</option>     <option value="-105">7</option>     <option value="-120">8</option>     <option value="-135">9</option>     <option value="-150">10</option>     <option value="-165">11</option>     <option value="-180">12</option>     <option value="-195">13</option>     <option value="-210">14</option>     <option value="-225">15</option>     <option value="-240">16</option>     <option value="-255">17</option>     <option value="-270">18</option>     <option value="-285">19</option>     <option value="-300">20</option>     <option value="-315">21</option>     <option value="-330">22</option>     <option value="-345">23</option>     <option value="-360">24</option>     <option value="-375">25</option>     <option value="-390">26</option>     <option value="-405">27</option>     <option value="-420">28</option>     <option value="-435">29</option>     <option value="-450">30</option>     <option value="-465">31</option>     <option value="-480">32</option>     <option value="-495">33</option>     <option value="-510">34</option>     <option value="-525">35</option>     <option value="-540">36</option>     <option value="-555">37</option>     <option value="-570">38</option>     <option value="-585">39</option>     <option value="-600">40</option>     <option value="-615">41</option>     <option value="-630">42</option>     <option value="-645">43</option>     <option value="-660">44</option>     <option value="-675">45</option>     <option value="-690">46</option>     <option value="-705">47</option>     <option value="-720">48</option>     <option value="-735">49</option>     <option value="-750">50</option>     <option value="-765">51</option>     <option value="-780">52</option>     <option value="-795">53</option>     <option value="-810">54</option>     <option value="-825">55</option>     <option value="-840">56</option>     <option value="-855">57</option>     <option value="-870">58</option>     <option value="-885">59</option>     <option value="-900">60</option>     <option value="-915">61</option>     <option value="-930">62</option>     <option value="-945">63</option>     <option value="-960">64</option>     <option value="-975">65</option>     <option value="-990">66</option>     <option value="-1005">67</option>     <option value="-1020">68</option>     <option value="-1035">69</option>     <option value="-1050">70</option>     <option value="-1065">71</option>     <option value="-1080">72</option>     <option value="-1095">73</option>     <option value="-1110">74</option>     <option value="-1125" selected>75</option>     <option value="-1140">76</option>     <option value="-1155">77</option>     <option value="-1170">78</option>     <option value="-1185">79</option>     <option value="-1200">80</option>     </select><br/><HR color="window"/>     <select size="1" name="DropDown6">     <option></option>     <option value="0">0</option>     <option value="-15">1</option>     <option value="-30">2</option>     <option value="-45">3</option>     <option value="-60">4</option>     <option value="-75">5</option>     <option value="-90">6</option>     <option value="-105">7</option>     <option value="-120">8</option>     <option value="-135">9</option>     <option value="-150">10</option>     <option value="-165">11</option>     <option value="-180">12</option>     <option value="-195">13</option>     <option value="-210">14</option>     <option value="-225">15</option>     <option value="-240">16</option>     <option value="-255">17</option>     <option value="-270">18</option>     <option value="-285">19</option>     <option value="-300">20</option>     <option value="-315">21</option>     <option value="-330">22</option>     <option value="-345">23</option>     <option value="-360">24</option>     <option value="-375">25</option>     <option value="-390">26</option>     <option value="-405">27</option>     <option value="-420">28</option>     <option value="-435">29</option>     <option value="-450">30</option>     <option value="-465">31</option>     <option value="-480">32</option>     <option value="-495">33</option>     <option value="-510">34</option>     <option value="-525">35</option>     <option value="-540">36</option>     <option value="-555">37</option>     <option value="-570">38</option>     <option value="-585">39</option>     <option value="-600">40</option>     <option value="-615">41</option>     <option value="-630">42</option>     <option value="-645">43</option>     <option value="-660">44</option>     <option value="-675">45</option>     <option value="-690">46</option>     <option value="-705">47</option>     <option value="-720">48</option>     <option value="-735">49</option>     <option value="-750">50</option>     <option value="-765">51</option>     <option value="-780">52</option>     <option value="-795">53</option>     <option value="-810">54</option>     <option value="-825">55</option>     <option value="-840">56</option>     <option value="-855">57</option>     <option value="-870">58</option>     <option value="-885">59</option>     <option value="-900">60</option>     <option value="-915">61</option>     <option value="-930">62</option>     <option value="-945">63</option>     <option value="-960">64</option>     <option value="-975">65</option>     <option value="-990">66</option>     <option value="-1005">67</option>     <option value="-1020">68</option>     <option value="-1035">69</option>     <option value="-1050">70</option>     <option value="-1065">71</option>     <option value="-1080">72</option>     <option value="-1095">73</option>     <option value="-1110">74</option>     <option value="-1125" selected>75</option>     <option value="-1140">76</option>     <option value="-1155">77</option>     <option value="-1170">78</option>     <option value="-1185">79</option>     <option value="-1200">80</option>     </select><br/><HR color="window"/>     <select size="1" name="DropDown7">     <option></option>     <option value="-255">17</option>     <option value="-270">18</option>     <option value="-285" selected>19</option>     <option value="-300">20</option>     <option value="-315">21</option>     <option value="-330">22</option>     <option value="-345">23</option>     <option value="-360">24</option>     <option value="-375">25</option>     <option value="-390">26</option>     <option value="-405">27</option>     <option value="-420">28</option>     <option value="-435">29</option>     <option value="-450">30</option>     <option value="-465">31</option>     <option value="-480">32</option>     <option value="-495">33</option>     <option value="-510">34</option>     <option value="-525">35</option>     <option value="-540">36</option>     <option value="-555">37</option>     <option value="-570">38</option>     <option value="-585">39</option>     <option value="-600">40</option>     <option value="-615">41</option>     <option value="-630">42</option>     <option value="-645">43</option>     <option value="-660">44</option>     <option value="-675">45</option>     <option value="-690">46</option>     <option value="-705">47</option>     <option value="-720">48</option>     <option value="-735">49</option>     <option value="-750">50</option>     </select><br/><HR color="window"/>     <select size="1" name="DropDown8">     <option></option>     <option value="-120">8</option>     <option value="-135">9</option>     <option value="-150">10</option>     <option value="-165">11</option>     <option value="-180">12</option>     <option value="-195">13</option>     <option value="-210">14</option>     <option value="-225">15</option>     <option value="-240">16</option>     <option value="-255" selected>17</option>     <option value="-270">18</option>     <option value="-285">19</option>     <option value="-300">20</option>     <option value="-315">21</option>     <option value="-330">22</option>     <option value="-345">23</option>     <option value="-360">24</option>     <option value="-375">25</option>     <option value="-390">26</option>     <option value="-405">27</option>     <option value="-420">28</option>     <option value="-435">29</option>     <option value="-450">30</option>     <option value="-465">31</option>     <option value="-480">32</option>     <option value="-495">33</option>     <option value="-510">34</option>     <option value="-525">35</option>     <option value="-540">36</option>     <option value="-555">37</option>     <option value="-570">38</option>     <option value="-585">39</option>     <option value="-600">40</option>     <option value="-615">41</option>     <option value="-630">42</option>     <option value="-645">43</option>     <option value="-660">44</option>     <option value="-675">45</option>     <option value="-690">46</option>     <option value="-705">47</option>     <option value="-720">48</option>     <option value="-735">49</option>     <option value="-750">50</option>     </select>    </td>    <td width=10% align=right valign=top bgcolor="window">    <input type="button" value="Apply" onClick="CaptionButtons" class="button2"/><br/><HR color="window"/>    <input type="button" value="Apply" onClick="WindowBorder" class="button2"/><br/><HR color="window"/>    <input type="button" value="Apply" onClick="BorderPadding" class="button2"/><br/><HR color="window"/>    <input type="button" value="Apply" onClick="Icon" class="button2"/><br/><HR color="window"/>    <input type="button" value="Apply" onClick="IconSpacing" class="button2"/><br/><HR color="window"/>    <input type="button" value="Apply" onClick="IconSpacingVertical" class="button2"/><br/><HR color="window"/>    <input type="button" value="Apply" onClick="Menu" class="button2"/><br/><HR color="window"/>    <input type="button" value="Apply" onClick="Scrollbar" class="button2"/>    </td>   </tr>  </table></div></td></tr></table><table width=100% border=0 cellspacing=0 cellpadding=7><tr>  <td width=100% valign=bottom align=right>   <input type="button" value="Apply and Exit" onClick="ApplyExit" class="button" />   <input type="button" value="Cancel" onClick="closeHTA" class="button" />   <input type="button" value="Apply All" onClick="Apply" class="button" />  </td></tr></table><table width=100% border=0 cellspacing=0 cellpadding=0><tr>  <td width=100% valign=bottom align=center>   <FONT SIZE=3><B>Dropdown shows Windows Default Values on load</B></FONT>  </td></tr></table></body>

Advanced Appearance Settings.zip

Edited by MrGRiM
2

Share this post


Link to post
Share on other sites

Thank you! Someone gets it that some of these settings still applied to themes with visual styles so MS was foolish to delete the GUI for all of them. I do tweak the reg values directly but GUI always helps if I forgot or when I am lazy to do registry fiddling.

Edited by xpclient
0

Share this post


Link to post
Share on other sites

Thanks GRiM! ... Seems Microsoft took the "Less is More" approach with Windows 8. :o

0

Share this post


Link to post
Share on other sites

Glad you like it guys, just updated it a bit, I had the default values wrong on the icon spacing and I changed the registry values to the same ones you see in the drop down and what they would be in the old advanced appearance settings.

0

Share this post


Link to post
Share on other sites

Many thanks! Like it because it's easy to change the icon spacing.

Um... what do you mean by "border padding"?

0

Share this post


Link to post
Share on other sites

is it also compatible with 8.1?

0

Share this post


Link to post
Share on other sites

is it also compatible with 8.1?

Yes it will work with 8.1

0

Share this post


Link to post
Share on other sites

I know all the items on the screenshot except for "border padding", so I asked.
Does it take you guys much time to give a short reply?

0

Share this post


Link to post
Share on other sites

I know all the items on the screenshot except for "border padding", so I asked.

Does it take you guys much time to give a short reply?

Sorry I thought I did reply, it must have not posted for some reason, it's pretty much the same as window border, both settings will change the size of the border, not sure how they differ though.
0

Share this post


Link to post
Share on other sites

Er... I didn't mean to sound rude on that previous post! I thought you were only interested in replying to Andre!

OK, thanks for explaining about the settings of the windows border.

0

Share this post


Link to post
Share on other sites

Is there source code per chance?

0

Share this post


Link to post
Share on other sites

It's posted in the first post in the spoiler, I believe.

 

Cheers and Regards

0

Share this post


Link to post
Share on other sites

Mr Grim,

 

This looks like a great idea and I have just downloaded the file to give it a try.

 

Unfortunately on My Mac Book Pro (Win 8.1 + Bootcamp) the Boarder constrains the Text and I can only access the menu as far down as "Icon Spacing Vertical". So cant access the full menu or the action Keys at the bottom.

 

Is there any chance you could modify the boarder so it could be drag able or simply increase the  length of the boarder by about double fro folks in the same position as me...?

 

Many thanks ...... Martin V (Australia)

0

Share this post


Link to post
Share on other sites

the dialog is still missing. They remove even more settings from the desktop control panel. Maybe it will be removed completely.

0

Share this post


Link to post
Share on other sites

Given how sloppy they are regarding implementing new windows (e.g., that Metro/Modern title bars are just black and big, without adhering to the theme AT ALL) I'd suggest that the time that controlling the desktop through the registry key that MrGrim's control panel alters is limited

 

It's the inevitable result of Microsoft removing control of the desktop elements, and will spell the doom of "have it your way" desktop look and feel - assuming of course some 3rd party doesn't come along and just re-implement more and more of the desktop management.

 

I can imagine that at some point someone might completely replace Windows' desktop management / Explorer entirely with an entirely self-contained UI.  But even then, applications will assume they're running on the Microsoft-supplied desktop, which will mean that they're poorly (or non) integrated.

 

The inevitable demise of the desktop is at hand.  And with nothing useful yet to replace it.  That won't keep of course.

 

We have seen the golden era of Windows computing come and go.  So...  What's next?  I'm game.

 

-Noel

0

Share this post


Link to post
Share on other sites

It seems like it might be time for alternate Windows shells to make a comeback.  If I remember right, alternate shells such as bbClean were popular back in the Win2K era, but I don't remember how well they played with other apps that assumed that the MS shell was in place.

 

But Noel, as reluctant as you are to even want to use a non-MS browser, how likely are you to use a non-Ms shell?  :) LOL j/k

 

Cheers and Regards

0

Share this post


Link to post
Share on other sites

We all know it would be better if MS themselves did the software right, but that's just not happening.

 

I know you're just prodding a bit, but I'm just about things that work.  When a shell or browser or any 3rd party software comes along that's actually better I'll use it.  Don't forget I already use Classic Shell, Aero Glass, and some other 3rd party stuff that actually works now.  If you're suggesting I should want to use Chrome or Firefox just because it's not made by Microsoft, it's understandable that some folks feel that way but alone it's not a valid reason to make a choice which software to use.

 

If I'm not waiting for anything, am able to see the data I want online, and am not getting infected by anything tell me why I should want to change?  Neither Google nor the open source community writes software that's actually any more functional for my needs, in my experience.  Some folks think Chrome is faster, and it may well be faster on a run of the mill computer or tablet, but Internet Explorer is plenty fast and is perfectly stable on my setup.   Some folks think Firefox has a better color-management model, and it does under some conditions, but those conditions don't exist for me.

 

One of the few problems I had with Internet Explorer 11 was initially on this very site.  I couldn't paste things into forum posts with the editor implementation here, but that was resolved a long time ago - presumably by changes to the site and/or the browser (via Windows Update).  At the time I used Firefox or Safari occasionally to work around the issue.  Both icons are on my desktop in addition to IE.  But I didn't experience some magical improvement in my web experience.

 

I know you're just giving me a bit of a hard time, bphlpt, but in reality those of us with experience are just looking for things that really work, and for whatever nefarious motives Microsoft is making broad moves away from "better mousetraps" and seemingly toward "outrageous fashion", probably because it's easier.

 

-Noel

0

Share this post


Link to post
Share on other sites

How do I use this tool "Advanced Appearance Settings" to change the background in office 2013 instead of the light gray or dark gray.

 

Steven Hesch

shesch@farmersagent.com

0

Share this post


Link to post
Share on other sites

This tool is for the Windows desktop, not for Office.

0

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now

  • Recently Browsing   0 members

    No registered users viewing this page.