>Hello, everyone
>
>Maybe I am missing something (though I doubt) but anyway: if windows xp themes support is activated and the compatibility mode is "disable themes", vfp stops drawing controls in forms.
>
>When we'll have a product 100% compliant with windows?

Hi Grigore.

I use XP themes in my application and it works fine. In my screen that lets the user specify themes or no themes, there is an option group with 2 buttons (use themes, don't use themes). I only show the option group if the Windows XP themes are turned on. Here is the code in the REFRESH method:

dodefault()
local llShowIt
llShowIt = .F.

* Check to see if the version of VFP is 8.0 or above. If so,
* then sheck to see if Windows XP themes are turned on. If
* so, then show the control that lets the user use themes.

if val(left(version(4), 2)) > 7

if sys(2700) = "1"
llShowIt = .T.
endif
endif

THIS.Visible = llShowIt

I store the value from the option group in a field in a table - zz_sys.sys_themes - then at application startup the following code is run:

if val(left(version(4), 2)) > 7

if zz_sys.sys_themes = 1
_screen.Themes = .T.
else
_screen.Themes = .F.
endif
endif

The forms take on the characteristic of the _screen setting so all forms then show themes or not based on the user's preference.

Charlie Parker
cparker@fowlersoftware.com
www.fowlersoftware.com