[最新收获发布]TListView的ListItem完全自绘

Question

因工作需要完全自绘ListItem，模仿成电驴的样式，查找了N久相关的资料，发现很少有这方面的，最后用ListView_GetSubItemRect关键词在一个小日本的网站上找到一点相关的代码，修改后解决该问题。至于是否存在BUG，偶用了几天还木有发现，如果有什么问题，请大家回复一下，谢谢效果图：
http://blog.csdn.net/images/blog_csdn_net/xzhifei/178770/r_11.JPG源码：
http://blog.csdn.net/xzhifei/archive/2006/02/20/603357.aspx

Answer 1

友情支持&学习不过看到“小日本”三个字...

Answer 2

KAO，这里是讨论技术，关于“小日本”，大家还是不要再谈论！！

Answer 3

Kao!! 收回上面说的改为BS一百边呀一百边 -_-!!

Answer 4

呵呵,不错
LYSoft上都有代码和Tips发布的:)

Answer 5

楼主快帮忙，我的delphi6这个函数  
procedure TForm1.ListView1DrawItem(Sender: TCustomListView;
  Item: TListItem; Rect: TRect; State: TOwnerDrawState);
怎么跟你上面的参数不一样啊？你的是这样的：
procedure LVDrawItem(Sender: TListView; Item: TListItem; State: TCustomDrawState;var DefaultDraw: Boolean);