onPaint в TListView

← →
SH © (2003-10-20 14:06) [0]

Гружу картинку на канвас TListView. Как избежать её порчи при перерисовке окна? Метод onPaint у ListView отсутсвует. ListView занимает у меня всю форму (align=klient)

← →
ZEE © (2003-10-20 14:17) [1]

OnPaint у TListView???
а может dct-nfrb OnCustomDraw...

← →
SH © (2003-10-20 14:25) [2]

>ZEE ...OnCustomDraw
Я гружу настоящую большую катинку, не иконку, через TBitMap.

← →
ZEE © (2003-10-20 14:35) [3]

>SH
ну и какая разница - хоть иконка, хоть картинка - все равно OnPaint у TListView нету...

← →
clickmaker © (2003-10-20 14:42) [4]

Как вариант можно подменить WindowProc и обрабатывать WM_ERASEBKGND

← →
SH © (2003-10-20 18:42) [5]

>clickmaker © (20.10.03 14:42) [4]
Можно пример такой замены?

var OldWndProc: TWndMethod;

OldWndProc := ListView.WindowProc;
ListView.WindowProc := NewWndProc;

procedure TForm1.NewWndProc(var Message: TMessage);
begin
if (Message.Msg = WM_ERASEBKGND) then
// заливаешь фон на HDC(Message.wParam)
...
Message.Result := 1;
end else
OldWndProc(Message);
end

>clickmaker © (20.10.03 18:51) [6]
> // заливаешь фон на HDC(Message.wParam)

1) BitMap.loadfromfile(); здесь не пройдёт?
2) Окошко соxранит стиль WinXP?

1)

Canvas := TCanvas.Create;
Canvas.Handle := HDC(Message.WParam);
Canvas.Draw(x, y, Bitmap);

onPaint в TListView Найти похожие ветки