DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: jeff1314
今日帖子: 10
在线用户: 10
导航: 论坛 -> 论坛精华贴 斑竹:liumazi,iamdream  
作者:
男 cjrb (Thinking In 魂) ★☆☆☆☆ -
盒子活跃会员
2003/5/14 13:05:37
标题:
在XP下用XP样式 浏览:10533
加入我的收藏
楼主: 代码如下:
<?xml version="1.0" encoding="UTF-8" standalon_e="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
  name="Microsoft.Windows.Shell.explorer"
  processorArchitecture="x86"
  version="5.1.0.0"
  type="win32"/>
<description>Windows Shell</description>
<dependency>
  <dependentAssembly>
    <assemblyIdentity
      type="win32"
      name="Microsoft.Windows.Common-Controls"
      version="6.0.0.0"
      processorArchitecture="x86"
      publicKeyToken="6595b64144ccf1df"
      language="*"
    />
  </dependentAssembly>
 </dependency>
</assembly>
操作很简单。
把上面代码另存为一个Project1.exe.manifest
拷到和Project1.exe同个目录下
(效果只有XP才能看到)
效果对比如下:

按此在新窗口浏览图片
按此在新窗口浏览图片
----------------------------------------------
按此在新窗口浏览图片 充电..........
作者:
女 123 (猪猪) ★☆☆☆☆ -
盒子活跃会员
2003/5/14 13:38:45
1楼: 看上去不错,值得表扬。
----------------------------------------------
-
作者:
男 cjrb (Thinking In 魂) ★☆☆☆☆ -
盒子活跃会员
2003/5/15 14:31:15
2楼: 或直接把这个文件(点击下载
复盖DELPHI6/Lib/controls.res

完直接编译即可。
----------------------------------------------
按此在新窗口浏览图片 充电..........
作者:
男 cjrb (Thinking In 魂) ★☆☆☆☆ -
盒子活跃会员
2003/5/15 14:33:58
3楼: 新的controls.res就是旧的controls.res+上面那段XML代码。
----------------------------------------------
按此在新窗口浏览图片 充电..........
作者:
男 delphicn (http://www.delphicn.com) ★☆☆☆☆ -
普通会员
2003/5/15 16:20:50
5楼: 效果太恶心.
用skinEng..不就完了,何必呢
----------------------------------------------
中国Delphi联盟
http://www.delphicn.com
欢迎访问
作者:
男 cjrb (Thinking In 魂) ★☆☆☆☆ -
盒子活跃会员
2003/5/15 16:42:47
6楼: 用第三方控件麻烦
----------------------------------------------
按此在新窗口浏览图片 充电..........
作者:
男 qsmile (qsmile) ★☆☆☆☆ -
盒子活跃会员
2003/5/21 17:46:56
7楼: Delphi7里有一个控件加上后在XP下就有当前主题的效果。
不过这个方法也很不错!!!
----------------------------------------------
无色无味
作者:
男 zhgn ★☆☆☆☆ -
普通会员
2003/6/16 15:24:04
9楼: 支持
----------------------------------------------
-
作者:
男 ruelm (风子) ★☆☆☆☆ -
盒子活跃会员
2003/6/23 11:35:40
10楼: 其他的挺好,可是我实在不喜欢那个丑陋的关闭按钮
是不是XP选择怎样的主题,软件就会变?

----------------------------------------------
-
作者:
男 sephil (NAILY Soft) ★☆☆☆☆ -
盒子中级会员
2003/9/25 19:40:07
11楼: SkinEngine之类消耗系统资源太大
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog
作者:
男 flyers (flyers) ★☆☆☆☆ -
普通会员
2003/12/31 12:35:09
12楼: 一点也不好……还不如VCLSkin呢!
----------------------------------------------
大家好,我是Flyers。

是Delphi.Net版主,小弟会尽力解决大家的问题!谢谢支持!
作者:
男 kwbin (rainey) ★☆☆☆☆ -
盒子活跃会员
2004/1/3 7:43:17
13楼: 我举双手双脚支持!:)
但是我发现了一个严重的问题,
更换Control后,新建一个Application添加一个ListView,改成vsReport后,(适当添加几个Colunm),编译通过,无法执行!这是为何???
----------------------------------------------
我们的技术来自于大家的齐心合力!不要吝啬你的知识!
作者:
男 sephil (NAILY Soft) ★☆☆☆☆ -
盒子中级会员
2004/1/3 11:17:16
14楼: D6以下版本的需要注意
如果你的程序用了TListView
那么不要用楼主的方法,在XP下会出错的
D7已经修正了这个问题
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog
作者:
男 kwbin (rainey) ★☆☆☆☆ -
盒子活跃会员
2004/1/7 9:41:37
15楼: 哦,原来是这样啊!谢谢,谢谢!
----------------------------------------------
我们的技术来自于大家的齐心合力!不要吝啬你的知识!
作者:
男 8202271 (喷血) ★☆☆☆☆ -
普通会员
2004/2/3 15:38:03
16楼: [glow=255,red,1]发扬团队合作精神!!没有完美的个人,只有完美的团队!![/glow]
----------------------------------------------
-
作者:
男 jfzjm (delphi) ★☆☆☆☆ -
普通会员
2004/3/5 11:07:12
17楼: 有一组XP控件,只要加上后在使用时让它的Active为真就可以了.不管在那个系统都可以用,感觉还行.(网上应该有吧)
----------------------------------------------
-
作者:
男 mygod007 (游客不能发贴) ★☆☆☆☆ -
盒子活跃会员
2004/6/17 20:46:02
18楼: 用D6也可以用XP样式的,不过要对ListView控件的源代码修改一下
----------------------------------------------
-
作者:
男 mygod007 (游客不能发贴) ★☆☆☆☆ -
盒子活跃会员
2004/6/18 11:41:36
19楼: 想在D6里使用XP样式,同时又使用了TListView,记住不要将ViewStyle设为VsReport,设为其它就可以,或者修改控件的源代码。
在ComCtrls.pas中你要修改TCustomListView.UpdateColumn过程和TListColumn.Create构造函数,将下列代码:
mask:=LVCF_TEXT or LVCF_FMT or LVCF_IMAGE;
iImage:=FImageIndex;

替换为

mask:=LVCF_TEXT or LVCF_FMT;
if FImageIndex>=0 then
  mask:=mask or LVCF_IMAGE;
iImage:=FImageIndex

如果你不想修改Borland的源码,你将这个ComCtrls.pas拷贝到你的程序的源代码目录下,然后将之按上面所讲进行修改,但不能使用包来链接你的应用程序。
----------------------------------------------
-
作者:
男 ssyyxx (Startar) ★☆☆☆☆ -
盒子活跃会员
2004/7/8 11:21:10
20楼: Delphi7里的TXPManifest加上后在XP下就有当前主题的效果,其实这个控件也是在工程文件的资源文件里(.res)加入了以上代码,所以原理是一样的。

另外,在Delphi7的帮助里,用索引查找“XP themes”,会找到与楼主一模一样的方法。
----------------------------------------------
-
作者:
男 liumazi (刘麻子) ★☆☆☆☆ -
大善人会员
2004/11/25 22:40:51
21楼: 学到东西了
----------------------------------------------
好好学习,天天上网。
作者:
男 ptgfr (ptgfr) ★☆☆☆☆ -
盒子活跃会员
2004/11/28 11:26:40
22楼:
----------------------------------------------
to be ,not to be, is life!
until now, I still study life....
作者:
男 eagle_lyw (eagle_lyw) ★☆☆☆☆ -
普通会员
2004/12/24 9:15:54
23楼: 好用
----------------------------------------------
-
作者:
男 ddjk154 (ddjk154) ▲▲▲▲▲ -
普通会员
2011/3/1 14:59:48
25楼: abercrombie & fitch
A&F clothing
abercrombie and fitch
Jordan Shoes
Air Max
Nike Shox
Nike Dunk SB shoes
Lerbron James Shoes Mbt shoes
masai barefoot
masai shoes
Links of london
links london
pandora beads
pandora bracelets
pandora charms
louis vuitton handbags
louis vuitton outlet
louis vuitton bags
vivienne westwood
vivienne westwood bags
vivenne westwood online
----------------------------------------------
-
作者:
男 wycf021 (wycf021) ▲▲▲▲▲ -
普通会员
2011/3/24 18:50:22
26楼: 蓝蜂科技8年来一直致力于企业网站建设企业网站制作企业网站设计企业网站优化企业网站推广网站建设公司搜索引擎优化论坛营销竞价推广博客营销问答营销媒体发布事件营销邮件营销企业网站建设网页设计建站流程等网络建设与推广的公司.

  – Vi gör rundvandring i fabriken och tittar på säkerhet,resor Japan arbetsmiljö och arbetsförhållanden i stort.resor PeruVileverantörer. resor KinaKan vi hjälpa dem att leder detta också till en lägre produktionskostnad.resor Vietnam från design, inköp, logistik och produktion. Alla avdelningar kan ­bidra på något sätt. En framtagen hållbarhetsstrategi integreras nu i hela företaget och den ska in som en arbetet utåt.Övertid är ett problem som vi ofta stöter på.Kina resor också. Japan ResorDet är inte såFlyg Beijing Plaggen är exempel ur en ny kollektion,Peru Resor som Flyg Shanghaiär ett svillkor,Flyg Hongkong me
----------------------------------------------
-
作者:
男 owu01 (owu01) ▲▲▲▲▲ -
普通会员
2011/10/26 14:55:31
38楼: In this modern and fashionable society, people are pursuing for michael kors online cool, unique, stylish and innovative. Whether it is buy michael kors or fashion accessories all means a lot for modern society of today. Same is the case with trendy looking michael kors bags. When these are michael kors dresses, the excitement just gets doubled. Most chic looking michael kors sandals are in fashion now. These are one of the favorite fashion accessories for men and women long time ago. If you have not yet tried michael kors totes, it's time to own one and feel the difference it can make to your personality. These are just brilliant and fabulous michael kors satchel. They are most iconic and can provide you with a new feeling and enhance confidence. The quality of abercrombie and fitch is just superior to what you have dreamt of. Today owning a new and trendy looking abercrombie and fitch sale are not only meant for the wealthy people. These are now made luxurious and affordable abercrombie and fitch uk sale to reach out to every budget and range. You can just enjoy them by ordering abercrombie sale online where you get the complete satisfaction and genuine quality at best possible rates.
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行289.0625毫秒 RSS