Is possible to detect XP theme names?
I think paint the background color of outlook class based on XP theme (blue, silver or green...).
Regards,
Maurilio
#define HKEY_CURRENT_USER 2147483649
function CurrentTheme()
local cTheme := "WindowsClassic"
local cKeyName := "Software\Microsoft\Windows\CurrentVersion\ThemeManager\"
oReg := TReg32():New( HKEY_CURRENT_USER, cKeyName )
if oReg:nError == 0
cTheme := StrTran( oReg:Get("ColorName", ""), chr(0),"")
do case
case cTheme == "NormalColor" ; cTheme := "XPBlue"
case cTheme == "HomeStead" ; cTheme := "XPGreen"
case cTheme == "Metallic" ; cTheme := "XPSilver"
otherwise ; cTheme := "WindowsClassic"
endcase
endif
oReg:Close()
return( cTheme )
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 77 guests