How to implement XP mode in the program

zhaozj2021-02-16  46

Posted by: 21/04/2002 10:18:39 Posted by: Thomas Stutz Posted by: Tom@swissdelphicles: http://www.swissdelphiceter.ch

To implement the visual effect of Windows XP in your own program, add an explanation to the program. This instruction file can be the resource file of the program, or the files under the same path.

{To implement the visual effect of Windows XP in your own program, add a documentation to the program. This instruction file can be the resource file of the program, or the files under the same path. This instruction file is an XML file. It makes Windows XP decides which version of ComctL32.dll when linking data. This XML file contains information about the program you have written and the use of Comctrl32.dll version information. The following describes how to create a documentation, create an XP resource file, which is included in the application. Step 1-4 This section describes how to create these files. An example can be downloaded at the end of the article.

}

(1) Copy the following XML code to the text editor:

Your Application Description

(2) Remote the contents of Description tag in text and "Name" tagged in the AssemblyIndentity tagged into your own content. Then save the file as: WinXP.txt.

(3) Creating a resource file to point to the file above, the resource file is named WinXP.RC: 1 24 "Winxp.txt". (4) Now use Delphi's resource compiler (brcc32.exe) to compile WinXP.RC. Type instructions in the command line: BRCC32 Winxp.rc is compiled and generates a WinXP.RES file. (5) In the application, this resource file is included, and the {$ R winxp.res} will be indicated after {$ r * .dfm}. (6) Compiler and run.

(7) Whether the test procedure is normal. Note that some components such as TGROUPBOX, TSPEEDButton do not support XP mode. If you use the TListView component, read "TLISTVIEW in XP Patch"

This article link: http://www.swissdelphicenter.ch/en/demodownload.php? Id = 1118

转载请注明原文地址:https://www.9cbs.com/read-27873.html

New Post(0)