TListView在XP中的补丁程序

TListView在XP中的补丁程序
{
　在Windows XP下使用vsReport方式的TListView组件会导致出错。
　它的VCL里有一个臭虫，需要打个补丁。
　
　把下面的comctrls.pas拷贝到你的应用程序路径之下然后编译该程序。
　这个文件修改了原先的UpdateColumn方法。
　
　你的程序可以直接使用新的comctrls.dcu，你可以用它覆盖原先的组件。
}
// ComCtrls.pas:
procedure TCustomListView.UpdateColumn(AnIndex: Integer);
{...}
with Column, Columns.Items[AnIndex] do
begin
{ PATCH start:}
// mask := LVCF_TEXT or LVCF_FMT or LVCF_IMAGE;
mask := LVCF_TEXT or LVCF_FMT;
if FImageIndex > = 0 then
mask := mask or LVCF_IMAGE;
{ PATCH :end }
{...}
end;
　
附件&gt;&gt;&gt;&gt; <a href="ComCtrls.rar" target="_blank">ComCtrls.dcu</a>