Theme applied causes some discoloration on menubars

  • Thread starter Thread starter Atreju
  • Start date Start date
A

Atreju

Only in some applications, some themes, some times, when a new theme
is applied, some programs' menu bars go white as you highlight each
item and stay white. It is weird. Doesn't always happen, nor always
with the same themes.

Any ideas?

Even reboot doesn't seem to fix this.


---Atreju---
 
Hi,

By default, it is set to white.

Right click the Desktop/Properties/Appearance/Advanced. Select "Menu" from
the drop box and set the color for background.
 
Hi,

By default, it is set to white.

Right click the Desktop/Properties/Appearance/Advanced. Select "Menu" from
the drop box and set the color for background.
Click to expand...

Thanks!


---Atreju---
 
I posted about this here:

http://www.google.com/groups?hl=en&...ff&selm=#[email protected]

The following text (everything between the lines) can be saved with a ..vbs extension and run as a script to toggle the FlatMenus bit.

Keith

---------------------------------------------------------------------------
'Toggle the Flat Menus bit

Set WSHShell = WScript.CreateObject("WScript.Shell")
Upm = "HKCU\Control Panel\Desktop\UserPreferencesMask"

dim MenuState

MenuState = Array ("Off", "On")

MaskBytes = WSHShell.RegRead (Upm)

FlatMenuOn = (MaskBytes(2) and &H02) \ 2

Message2 = "Flat Menus are currently turned " & MenuState(FlatMenuOn) & "." & vbCR &vbCR
Message2 = Message2 & "Running this script will turn them " & MenuState(Abs((FlatMenuOn - 1))) & "." & vbCR & vbCR
Message2 = Message2 & "('On' is the 'correct' setting for XP style display)" & vbCR & vbCR
Message2 = Message2 & "Continue?"

X = MsgBox(Message2, vbYesNo, "Toggle Flat-Menu Setting")

If X = 6 Then

MaskBytes(2) = CByte(MaskBytes(2) Xor &H02)

MaskStr = ""
for each MaskByte in MaskBytes
strByte = right( "00" & hex(MaskByte), 2 )
MaskStr = strByte & MaskStr
next

WSHShell.RegWrite Upm, CLng("&H" & MaskStr), "REG_BINARY"

MsgBox "You must logoff/logon for changes to take effect." & vbcr & vbcr, 4096, "Action Completed"

Else

MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "Action Cancelled"

End If
 
Back
Top