Фон в listbox

[Черничный]

ну подсоединил картинку в bmp формате и код. Ошибок не выдает, а делать не хочет.

[eoln]

У компонента ListBox в панеле Object Inspector поставь свойство Style в lbOwnerDrawVariable или lbOwnerDrawFixed
Кроме того, прорисовка вызывается только для изменённых строк (которые выделяем например). Можно отрисовывать неполностью, т.е. вырезаем из исходного изображения полоску и вставляем в ListBox.

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
 with (Control as TListBox) do  with Canvas do begin
     copyrect(classes.rect(0,rect.top,t.Width,rect.top+Listbox1.ItemHeight),
     t.Canvas ,classes.rect(0,rect.top,t.Width,rect.top+Listbox1.ItemHeight));
  end;
  ListBox1.Canvas.TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
end;

[Черничный]

неа, все так же, фон не появился. Может ваш исходник зашлете мне

[eoln]

Следует учесть, что под текстом будет не картинка, а фоновый цвет.
В папку кинь файл картинки с названием 0.bmp

[Черничный]

чудеса какие то! в моем юните твой код не работает))

[Stilet]

Ану мое попробуй. Экзешник и сырцы прилагаю.

[Черничный]

Сообщение от Stilet

Ану мое попробуй. Экзешник и сырцы прилагаю.

Работает! .

[eoln]

Странно, может из-за самой операционки зависит.
Я, например, вот что вижу если покликать по строка