Keeper89, структура неверно описана (зачем вообще было ее самому определять?). Тем не менее, с ошибкой код тоже заработает.
WM_ERASEBKGND обрабатывается? CoInitialize есть? Я такой код прогнал на Windows 7, работает:
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan, ComCtrls, ActiveX, CommCtrl;
type
TListView = class(ComCtrls.TListView)
protected
procedure WndProc(var Message: TMessage); override;
end;
TForm1 = class(TForm)
ListView1: TListView;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
BKImg: TLVBKImage;
begin
FillChar(BKImg, SizeOf(BKImg), 0);
BKImg.ulFlags := LVBKIF_SOURCE_URL or LVBKIF_STYLE_TILE;
BKImg.pszImage := PChar('C:\1.jpg');
SendMessage(ListView1.Handle, LVM_SETTEXTBKCOLOR, 0, CLR_NONE);
SendMessage(ListView1.Handle, LVM_SETBKIMAGE, 0, LPARAM(@BKImg));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
CoInitialize(nil);
end;
{ TListView }
procedure TListView.WndProc(var Message: TMessage);
begin
if Message.Msg = WM_ERASEBKGND then
DefaultHandler(Message)
else
inherited;
end;
end.
|
|
)