Imagen de fondo en TListView

[Andreu]

Hola!

Quiero incorporar una imagen de fondo en TListView, buscando en internet he conseguido el código en VB en la página http://vbnet.mvps.org/index.html?code/comctl/lvbackground.htm.

Lo he adaptado a Delphi pero no funciona, el código seria:

Var
iccex: tagINITCOMMONCONTROLSEX;
plvbki: TLVBKImage;
Begin
CoInitialize (Nil);
iccex.dwSize := SizeOf(tagINITCOMMONCONTROLSEX);
iccex.dwICC := ICC_LISTVIEW_CLASSES;
InitCommonControlsEx(iccex);
FillChar (plvbki,SizeOf(plvbki),0);
with plvbki do begin
ulFlags:= LVBKIF_SOURCE_URL or LVBKIF_STYLE_TILE;
hbm:= 0;
pszImage:= PChar(Edit1.Text);
cchImageMax:= Length(Edit1.Text);
xOffsetPercent:=0;
yOffsetPercent:=0;
end;
ListView_SetBkImage(ListView.Handle, @plvbki);
ListView_SetBKColor(ListView.Handle,CLR_NONE);
End;

Alguna sugerencia.

Saludos.