Есть ли такой компонет?ЛистБокс с функцией загрузки фонового изображения

[Дима я]

есть ли такой??

[MalCer]

Ты имеешь ввиду простой картинки в ListBox?

Image1.Parent:=listbox1;

[Дима я]

я хочу что в листбоксе была фоновая картинка,ну мы можем задать цвет листбокса а я хочу чтобы можно было картинку так грузить.Чтоб все работало также только картинку можно было на фон грузить

[Квэнди]

выше вам написали ответ

[Stilet]

выше вам написали ответ

Дружище, он не сработает. Я проверил на D6.

Дима я

Нужно просто рисовать на канве ЛистБокса, для чего есть событие OnDrawItem - это для отрисовки текста.
И перехватывать сообщение WM_PAINT для отрисовки картинки.

[Квэнди]

сработать- то сработает, только элементы списка будут под изображением. Проще действительно на канве рисовать или посмотреть в JVCL наверняка есть

[Дима я]

Проблема только в том что я не знаю как обрабатывать OnDrawItem дайте плиз если у кого то есть какие то ссылочки по этому вопросу

[Stilet]

Вот я пример тут приводил:
http://www.programmersforum.ru/showt...%28i%2Cb%29%3B

Вот еще такое могу показать

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var  b:TBitmap;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
b:=TBitmap.Create; b.Width:=1000;b.Height:=1000;
b.LoadFromFile('D:\stasya_ru_2_big.bmp ');
ListBox1.Style:=lbOwnerDrawFixed;
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
if Index=0 then BitBlt (ListBox1.Canvas.Handle,0,0,ListBox1.Width,ListBox1.Height,b.Canvas.Handle,0,0,SRCCOPY);
 ListBox1.Canvas.Brush.Style:=bsClear;
 ListBox1.Canvas.TextOut(rect.Left,rect.Top,ListBox1.Items[index]);
end;

end.

Но тут небольшие косяки с отрисовкой текста

Квэнди

У меня такое не получалось. Если не сложно приведи примерчик, сравню со своими ошибками

[Квэнди]

У меня такое не получалось. Если не сложно приведи примерчик, сравню со своими ошибками

В вложении исходник проекта (использовал D2009)

[Stilet]

Квэнди

Поооонял. Не скажу что идеально но тоже вариант. )