WindowsXP: ListView error with XP XP Style (3)

The only problem I have found with WinXP and Delphi is the TListView
control. Everything else seems to work OK for me (though I don’t use
TCoolBar). You need to modify the Delphi VCL to fix the TListView problem. I
only have Delphi 5, so you will need to adapt the following to Delphi 6:

—– cut —–
Unit: ComCtrls
Method: TCustomListView.UpdateColumn

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

New:
[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]
—– cut —–