Не получается сменить фон у ListView. Нужно как-то сменить обработку WM_ERASEBKGND, судя по всему

[TwiX]

Ставлю обои так:

procedure TForm1.DrawWallpaper();
var
  Img: TImage;
  BkImg: TLVBKImage;
begin
  FillChar(BkImg, SizeOf(BkImg), 0);
  BkImg.ulFlags := LVBKIF_TYPE_WATERMARK;
  // Load image and take ownership of the bitmap handle
  Img := TImage.Create(nil);
  try
    Img.Picture.LoadFromFile('C:\sample.bmp');
    BkImg.hbm := Img.Picture.Bitmap.ReleaseHandle;
  finally
    Img.Free;
  end;
  // Set the watermark
  SendMessage(ListView1.Handle, LVM_SETBKIMAGE, 0, LPARAM(@BkImg));
end;

Вот и сабклассинг:

function NewWndProc(Handle: hWnd; Msg, wParam, lParam: Longint): Longint;
  stdcall;
var

begin
  Result := CallWindowProc(WProc, Handle, Msg, wParam, lParam);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
    header: HWND;
begin
    header := ListView_GetHeader(ListView1.Handle);
    WProc := Pointer(SetWindowLong(ListView1.Handle, GWL_WNDPROC, NativeInt(@NewWndProc)));
end;

Уже кучу всего перекопал. Помогайте)


Как следующий код переделать для новой оконной процедуры?

procedure TwpListView.WndProc(var Message: TMessage);
begin
  if Message.Msg = WM_ERASEBKGND then
    DefaultHandler(Message)
  else
    inherited WndProc(Message);
end;

[Stilet]

По моему проще стоит:

 TListView=class(ComCtrls.TListView)
    private
      procedure ebg(var m:TWMEraseBkgnd); message WM_EraseBkgnd;
  end;

  TForm1 = class(TForm)
    ListView1: TListView;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

...
{ TListView }

procedure TListView1.ebg(var m: TWMEraseBkgnd);
begin
 ну и тут рисуй
end;

Однако я не понимаю разве у листвью нет событий на рисование элементов?

[TwiX]

ListView - не мой, а чужого окна. Пока так текстирую