unit Unit7;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ExtCtrls, ComCtrls, StdCtrls, Buttons;

type
 TListView = class(ComCtrls.TListView)
   procedure WMEraseBkgnd(var aMessage: TMessage); message WM_ERASEBKGND;
 end;

 TForm7 = class(TForm)
   ListView1: TListView;
   Image1: TImage;
   BitBtn1: TBitBtn;
   procedure BitBtn1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form7: TForm7;

implementation

{$R *.dfm}

uses
 CommCtrl, XPMan;

procedure TListView.WMEraseBkgnd(var aMessage: TMessage);
begin
 DefaultHandler(aMessage)
end;

procedure TForm7.BitBtn1Click(Sender: TObject);
var
 Image: TLVBKIMAGE;
begin
 FillChar(Image, SizeOf(Image), 0);
 Image.ulFlags := LVBKIF_SOURCE_HBITMAP;
 Image.hbm := Image1.Picture.Bitmap.Handle;
 ListView_SetBkColor(ListView1.Handle, CLR_NONE);
 ListView_SetBkImage(ListView1.Handle, @Image);
end;

end.

if not ListView_SetBkImage(ListView1.Handle, @Image) then
  MessageBox(0, 'error', 'error', MB_OK or MB_ICONERROR or MB_SYSTEMMODAL);

   WM_MEASUREITEM :
     begin
       DC := GetDC(hApp);
       lpmis:=Pointer(LParam);
       item:=Pointer(lpmis.ItemData);
       GetTextExtentPoint32(DC, item.text, StrLen(item.text), size);
       lpmis.itemWidth := size.cx - 18;
       lpmis.itemHeight := 18;
       ReleaseDC(hApp, DC);
     end;