ListBox и изображения

[fezilk24]

Привет.
Снова нужна ваша помощь
В компоненте ListBox (или в похожем, подскажите, если есть какой-то..)
рядом с каждым элементом, т.е. итемом, нужно добавить изображение. Для каждого итема своё. Как это можно сделать? Поискал в инете (гугл не советовать), нашел статейку, но там одно изображение для всех итемов..

[fezilk24]

PS. Наподобие списка контактов в @Mail Agent'е

[Sibedir]

У ListBox'а есть событие OnDrawItem. В нем можно самостоятельно перерисовать содержимое строки, в том числе и картинку нарисовать.

[fezilk24]

Т.е. для каждой строки можно своё ? Что-ж, попробую поискать, как это сделать

[Kotofff]

Пример для размышления.
Вопросы спрашивай.

[fezilk24]

Kotofff, если честно, ничего не понятно
каким образом рисуются эти картинки? "Ж" например..

[fezilk24]

А вообще, мне картинку нужно загрузить из файла, это реально?

[Sibedir]

Все там ясно, как белым днем. Поразберайтесь немножко.
Даю наводку
1. На форме болтается компонент TImageList
2. В коде присутствует строка
ImageList1.Draw(ListBox1.Canvas, Rect.Left, Rect.Top, Index, true);
3. OnDrawItem вызывается при отрисовке каждой строки (что значит в нем Index объяснять, думаю, не надо)

Что такое TImageList знаете? Загрузить туда картинки сможете?

Есть другое решение

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  ic: TIcon;
begin
  for i := 0 to ListBox1.Items.Count-1 do begin
    ic := TIcon.Create;
    ic.LoadFromFile ('***********'); // Загружаем иконку из файла
    ListBox1.Items.Objects[i] := ic;
  end;
end;

И меняем

    ImageList1.Draw(ListBox1.Canvas, Rect.Left, Rect.Top, Index, true);

на

    Draw (Rect.Left, Rect.Top, TIcon(ListBox1.Items.Objects[Index]));

[fezilk24]

Спасибо, всё понял

А jpg как-то можно загрузить?

[fezilk24]

Т.е. загрузить то, я загрузил, а высоту изображения увеличить в строке ListBox как?