捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们
		粤ICP备10103342号-1	DELPHI盒子 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 盒子检索 | 下载中心 | 高级搜索
			精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言

盒子资源分类 全部展开 - 全部合拢

关于 ListView 排序箭头的若干历史问题的决议 关键字：ListView 箭头 排序 来　自：原创 平　台：Win9x,Win2k/XP/NT,Win2003 下载所需：0 火柴 深浅度：中级 完成时间：2009/6/25 发布者：vvyang 发布时间：2009/6/26 编辑器：DELPHI7 语　　种：简体中文 分　类：杂项 下载浏览：1154/11860 加入到我的收藏 下载错误报错 登陆以后才能下载  用户名：  密　码： 自动登陆(30天有效) 一、如何在 ListView 的标题栏上画排序小箭头？看似一个老调重弹的问题，您在网上问这个问题，会有多种答案： 方法1：用 ImageList 如果用那个 ImageList 的话，图片会出现在文字的左边，而且在 XP 环境下，由于图片不透明，鼠标一指 Hot 的话，会露出图片底色。 方法2：用 HDF_SORTUP、HDF_SORTDOWN 等 Windows 提供的 HeaderControl 格式 为 HeaderControl 的 HDItem.fmt 添加 HDF_SORTDOWN 或 HDF_SORTUP 属性，可以画出与系统一样的排序箭头，但是很可惜，HDF_SORTDOWN、HDF_SORTUP 只能运行在 XPTheme 下，如果在 2000/98 下或程序没有 XP 风格，都无法显示。 方法3：用某“改良版” ListView 网上流传一种所谓“改良版”的 ListView，主要原理是靠覆盖 ListView 的 WndProc 方法，并截获 HDN_ITEMCLICK 消息，向 HeaderControl 的 HdItem.hbm 赋予 Bitmap 以实现排序箭头效果。很显然，作者在这样写完后发现了一个问题，就是一旦表头的宽度变化或标题变化或左右方向变化，都会导致箭头消失，于是作为补救，他又截获了 HDN_ENDTRACK、HDN_ENDTRACKW、HDN_ITEMCHANGED 消息，以期箭头消失后再画上一个。问题又来了，许多人问为什么这种方法在 2000/98 下运行正常，而一在 XP 下就 StackOverFlow？很简单，在 XP 下这样写会导致 HDN_ITEMCHANGED 消息不断被触发，从而进入死循环！ 二、因为最近要用一个带排序箭头的 ListView，而苦于手头没一个能用的，于是只好自己写。看了 Delphi ListView 的源码，真怀疑 Borland 的程序员在写这段代码的时候是不是在睡觉！尤其是 TListView.UpdateColumn 方法（此方法是画标题栏的关键，在多处被调用），不管 LVColumn 的 fmt、cx、pszText 等属性改没改变，只要有一个变了，其它也一律用 ListView_SetColumn 重新写回；尤其令人不能容忍的是，他竟然想当然地认为 fmt 只有 LVCFMT_IMAGE、LVCFMT_LEFT、LVCFMT_RIGHT、LVCFMT_CENTER 这几个属性！！稍微有点常识的人，翻开 MSDN，都知道 fmt 还有 LVCFMT_BITMAP_ON_RIGHT 可以控制图片在文字左边还是右边，还有 LVCFMT_COL_HAS_IMAGES 可以控制标题栏是否要显示图片，不仅如此，fmt 还有一些没有在文档中描述的属性（如 $4000），而且 LVColumn.fmt 与 HDItem.fmt 关系密切，也就是说 HeaderControl 的 HdItem 会影响 ListView 的 LVColumn。以上也是为什么第一种方法图片会出现在文字的左边（没有 LVCFMT_BITMAP_ON_RIGHT）、第三种方法表头变化箭头就会消失（触发 TListView.UpdateColumn 会导致所有工作白做）的原因。 三、解决问题的关键就在修改 TListView.UpdateColumn，是它的设计缺陷导致所有画箭头的努力最终归于失败。很可惜，Delphi 的 TListView.UpdateColumn 竟然是静态方法，不能覆盖，也就是说 TListView 的设计人员不想让别人去发挥想象力，只能用那个狗屎般的 ImageList。我只好把 ComCtrls.pas 单元中与 ListView 有关的类都单独摘出来，然后在所有类前加个 Sort 以避免与原有类同名，接下来的工作就简单了：首先大改 TListView.UpdateColumn 方法，尤其是要把“LVColumn.fmt := LVCFMT_LEFT”之类的换成“LVColumn.fmt := LVColumn.fmt or LVCFMT_LEFT”，以保留原来 fmt 的基因；至于画箭头，就不要用脱裤子放屁的 LoadImage、LineTo 之类的玩意，慢啊！创建个16×16内存位图，背景透明后直接用 Marlett 字体往上写“5”（向上箭头）、写“6”（向下箭头）就行了（事实上 Windows 所有窗口的关闭、最大化、最小化、恢复、帮助、上下左右箭头都是用 Marlett 字体画上去的，系统御用）；还有一个问题，位图画箭头在 2000/98 下没有问题，但在 XPTheme 下鼠标一指 Hot 还是会露出图片底色，这时改用前面介绍的第二种方法就行了；至于如何区分程序是否具有 XP 风格，用 GetFileVersion 判断当前程序调用的是哪一个版本的 comctl32.dll 就行了；另外为这个类加了个 SortColumn 属性，可以设置哪个列需要排序箭头。 四、不知以前是否有人用过此类方法，如果有，就当我白写。 五、为了不至于让各位为了运行一下演示就得装一个狗屁控件，我没有把这个类打包成控件，需要的话自己做吧。想看非 XP 的效果，把 SortLV.dpr 中 {$R WindowsXP.res} 注释掉重新编译就行了。 输入您的搜索字词 提交搜索表单   Web www.2ccc.com 本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！ 龙脉加密锁 15元起 Grid++Report 报表 申请支付@网 　相关文章 没有相关文章 相关评论 共有评论12条 当前显示最后6条评论 vvyang 2009/6/29 15:14:25 To duduxia： 呵呵，感谢回复！ 经您提醒，我看了 kmListView，功能比较丰富。不过我在前面介绍了，我个人写这个东西不是想搞什么“控件”，我只是想要一个带箭头的 ListView 来用，仅此而已。另外这个 kmListView 确实没有免费源码，不过大家有时间的话，写一个功能相同的控件应该不是难事，关键是这么做有没有用。 duduxia 2009/6/30 14:35:21 做个Delphi2009适用版就可以了。 kmListView可以先自己研究研究。 vvyang 2009/7/7 7:53:53 To duduxia： 研究那个 kmListView 还不如去研究避孕套，就是上海世博会那个吉祥物... ysq8101 2009/7/18 10:04:42 不错，不过可以改进，这种方法太麻烦。 在改良版基础上优化就可以。HDN_ITEMCHANGED 没有必要处理。唯一遗憾的就是不提供额外接口无法达到lz修改列头文字对戏图标没有消失的效果。只要将SetHeaderBitmap作为共有接口在修改对齐时调用就可以达到同样的效果。 当然lz的图使用方法很不错。我以前是用资源，感觉不方便。 vvyang 2009/7/23 0:02:17 To ysq8101： 呵呵，感谢指点... 其实我自己也觉得麻烦，不过麻烦有麻烦的道理——Delphi 源码有缺陷，这是根源，改良版并不能从根本上解决问题... 导致表头图片消失有多种可能：拖动分割线、双击分割线、左右对齐、改变表头文字、拖曳表头、改变文字大小、改变文字颜色...如果不改变 Delphi 源码，您能想到的所有改变表头的操作都能造成图片消失，因为它们都会触发 TListView.UpdateColumn，那要截获多少种消息，调用多少次 SetHeaderBitmap？ 改良不如彻底改变，不知您是否同意我的说法... danielhuang 2012/4/18 15:08:25 有心人！虽然不需要，还是要赞一下。以前也曾经被困扰很久。 我要发表评论 查看全部评论

		DELPHI盒子版权所有 技术支持:深圳市麟瑞科技有限公司 1999-2024 V4.01 粤ICP备10103342号-1