>You're right!
>
>
>>Murad/Enmanuel
>>
>>the vfp function sys(2700) may be preferable
>>
>>

>>if sys(2700) = "1"
>>*!* themes enabled
>>endif
>>

>>
>>attempting to call uxtheme.dll on a non WinXP machine will cause an error
>>
>>Nigel

SYS(2700) enables or disables XP themes in Visual Foxpro only, it does not tell you if Themes is active at the OS level.

* -1: No OS Themes Support, 0: Themes not active, 1: Themes Active
Function IsThemesOn
local lnRetVal

IF VAL(OS(3)) + VAL(OS(4))/100 < 5.01 THEN
   m.lnRetVal = -1
else
   DECLARE INTEGER IsThemeActive IN uxtheme.DLL
   m.lnRetVal = IsThemeActive()
ENDIF
return m.lnRetVal