asked on

Changing to Windows XP design in runtime

I use {$R windowsXP.res} to present my application in XP design for the user.
How can I let the user decide if he wants an XP or 98 design?

ASKER CERTIFIED SOLUTION

Member_2_248744

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Member_2_248744

do you need some code for a manifest file? ? ?

rainbowsoftware

ASKER

Thanks to Slick812 for an explanation. Helped me to understand, but unfortunately I have to accept, that it is not possible to do what I want.

Member_2_248744

????
It may be possible to change it.
This is forum at EE, so you ask questions if you need more help. . .

here is some code that in windows XP, is suppose to Turn Off the Theme

uses UxTheme;

procedure TForm1.FormCreate(Sender: TObject);
begin
SetThemeAppProperties(0);
SendMessage(Handle, WM_THEMECHANGED, 0,0);
end;

rainbowsoftware

ASKER

Thanks to Slick812.
It doesn't quite work for all components in my form, but you gave me a hint to examine the Windows UxTheme.
If you post your comment as an answer, I can give you the points.

Member_2_248744

I do not know what you mean when you say -

If you post your comment as an answer, I can give you the points.
? ? ?
- - - - - - - - - - - - - - - -

I'm glad you got some of it to help you, however, some components on the delphi form are NOT windowed controls, and the above SetThemeAppProperties(0); will only effect the windowed controls,