[Mobiel]

Привет всем.
Ребят как поставить фон в ListView?
Либо может его можно заменить сторонним компонентом?
Заранее спасибо...

[Alegun]

Похоже можно создать потомка от ЛВ и у него переназначить процедуру WMPaint, примерно так

Код:

...
type
  TPaintListView = class(TListView)
 protected
  procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
 end;
...

{ TPaintListView }

procedure TPaintListView.WMPaint(var Message: TWMPaint);
var
 Cnv: TControlCanvas;
 DrawBounds: TRect;
begin
 inherited;
 Cnv:= TControlCanvas.Create;
 DrawBounds:= ClientRect;
  try
   Cnv.Control:= Self;
   Cnv.Draw(0, 1, {Пример картинки} Form1.Image1.Picture.Graphic);
  finally
   Cnv.Free;
  end;
 end;

а вот и пример динамики

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
with TPaintListView.Create(self) do Parent:= form1;
end;

[Mobiel]

Я еще не настолько знаком с делфи, чтобы понять как это прмвязать к млету listview. Подскажите пожалуйста ((

[Alegun]

Тогда можно проще сделать, но придётся вручную отрисовку выделений итемов обрабатывать

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
 img: TImage;
begin
 img:= TImage.Create(self);
 img.LoadFromFile('fon.jpg');
 ListView1.Canvas.Draw(0, 1, img.Picture.Graphic);
 img.Free;
end;

[Mobiel]

не рисует фон

[Alegun]

Покажите пжлст как делаете - проверил и у меня под D7 это фон рисует

[Mobiel]

http://rghost.ru/58398721 вот проект
если на баттон повесить то прорисовывает, НО фон итемов не прозрачный закрывает все изображение