2009-11-17 177 views
5

任何人有任何良好的资源为德尔福和Windows Aero 7或Vista?德尔福 - Windows Aero资源

我们即将向我们公司添加Windows 7,并希望确保我们的内部应用程序尽可能使用适合的内容。

使用Delphi 2010我可以添加玻璃框架并且菜单栏继承了Aero外观,但是TabControls,栅格和状态栏都显得过时。

任何帮助?

+1

您是否在Project/Options/Application中启用了运行时主题? – frogb 2009-11-17 13:36:32

+0

谢谢 - 这就是我一直在寻找的! – 2009-11-17 14:34:33

回答

6

我同意使用启用运行时主题项目选项应使大多数控件主题感知。

TMS Components总是被更新为包括最新的主题,包括Windows 7和Raize Components允许您使用透明度,渐变和主题感知的颜色。

11

我们包含了我们自己的清单资源,因为据我所知,Delphi不包括Windows 7(和Vista?)的新清单补充。从http://msdn.microsoft.com/en-us/library/dd371711(VS.85).aspxherehere帮助:

创建一个文件 “mymanifest.rc” 与单行

1 24 "my.manifest" 

,并创建一个文件,如下称为my.manifest

<?xml version="1.0" encoding="UTF-8" standalone="yes"?> 
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> 
    <assemblyIdentity type="win32" name="OUR COMPANY NAME" version="3.1.0.0" processorArchitecture="*"/> 
    <dependency> 
    <dependentAssembly> 
     <assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" publicKeyToken="6595b64144ccf1df" language="*" processorArchitecture="*"/> 
    </dependentAssembly> 
    </dependency> 
    <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3"> 
    <security> 
     <requestedPrivileges> 
     <requestedExecutionLevel level="requireAdministrator" uiAccess="false"/> 
     </requestedPrivileges> 
    </security> 
    </trustInfo> 
    <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1"> 
    <application> 
     <!--The ID below indicates application support for Windows Vista --> 
     <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/> 
     <!--The ID below indicates application support for Windows 7 --> 
     <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/> 
    </application> 
    </compatibility> 
</assembly> 

然后将mymanifest.rc添加到您的项目中,并关闭“启用运行时主题”选项,因为它可以做同样的事情(但不太灵活)。 'requestedExecutionLevel'部分可以被修改以适应应用的UAC需求。

适用于我们。

-2

只需将单位XPMan添加到Uses列表。

+0

将xpman组件拖到主窗体是让控件重新显示的最简单方法。只是启用运行时主题似乎不足以让我的基本“hello world”应用程序在win7上提供aero风格的外观。感谢您的提示。 – MikeJ 2010-08-06 12:59:54

+2

这现在被认为是“过时”。对于旧版本的Delphi,这将起作用。 “启用运行时主题”如上所示,或者使用Shunty显示的Manifest回复。 – 2010-09-29 14:22:26