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?
rainbowsoftwareAsked:
Who is Participating?
 
Slick812Commented:
hello rainbowsoftware, , I may not understand your question, I guess you are refering to the new XP  "Theme" common control drawing style? If you are. . . . . .
As far as I know if you compile the mainifest file into your program, then XP will use the "Theme" to draw the controls. But if you do NOT compile the manifest file into your program, and just have that file  in the same folder as the program, you will still get the "Themes" on the program, and then if your user does not want "Themes", then just  delete the manifest file or rename it. And the next time your program is run, then it will not have the "Themes"
0
 
Slick812Commented:
do you need some code for a manifest file? ? ?
0
 
rainbowsoftwareAuthor Commented:
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.
0
Cloud Class® Course: Microsoft Office 2010

This course will introduce you to the interfaces and features of Microsoft Office 2010 Word, Excel, PowerPoint, Outlook, and Access. You will learn about the features that are shared between all products in the Office suite, as well as the new features that are product specific.

 
Slick812Commented:
????
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;
0
 
rainbowsoftwareAuthor Commented:
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.
0
 
Slick812Commented:
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,
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.