WindowsXP: ListView error with XP-Style

> When you give a Delphi application the Windows XP look using the WindowsXP
> manifest XML file, whenever a TListView with columns is displayed the
> application generates an access violation error.
>
> How can I fix this?

You need to modify a few lines in comctrls.pas and save it to another
directory. Put this directory in you search path before the VCL directory.

Change
[code lang=”delphi”]
if FImageIndex <> -1 then
fmt := fmt or LVCFMT_IMAGE or LVCFMT_COL_HAS_IMAGES;
[/code]
To

[code lang=”delphi”] if FImageIndex <> -1 then
fmt := fmt or LVCFMT_IMAGE or LVCFMT_COL_HAS_IMAGES
else
mask := mask and not (LVCF_IMAGE);[/code]