список с картинками

[пауэрлифтинг]

как сделать список ListBox с картинками, например как используються в icq клиентах

[TwiX]

Как-то так:

procedure TForm4.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
begin
bmp:=TBitmap.Create;
  bmp.LoadFromFile('0.bmp');
  ListBox1.AddItem('asd', bmp);
  ListBox1.Style:=lbOwnerDrawFixed;
end;

procedure TForm4.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
 listBox1.Canvas.CopyRect(rect, TBitmap(ListBox1.Items.Objects[index]).Canvas, TBitmap(ListBox1.Items.Objects[index]).Canvas.ClipRect);
end;

[mihali4]

У класса TListbox есть свойство Style, определяющее порядок рисования объекта. По умолчанию оно установлено в lbStandard и за внешний вид объекта отвечает Windows. Если установить это значение в lbOwnerDrawFixed или lbOwnerDrawVariable, то можно несколько разнообразить внешний вид объекта. Разбираться лучше всего на конкретном примере, так что попробуем создать Lstbox, который отображал имена графических файлов какой-нибудь директории вместе с картинками.

Чтобы заполнить Listbox надо написать следующее (чтобы каждый файл не прописывать можно просто послать сообщение):

procedure tform1.button1click(sender: tobject);
var
s : string;
begin
s:='c:\windows\*.bmp';
listbox1.perform(lb_dir, ddl_readwrite, longint(@s[1]));
end;

Здесь мы указали listbox'у, какие файлы требуется отображать.
Устанавливаем свойство style нужно установить в lbownerdrawfixed и создать обработчик события ondrawitem:

procedure tform1.listbox1drawitem(control: twincontrol;
index: integer; rect: trect; state: townerdrawstate);
var bitmap: tbitmap;
offset: integer;
bmprect : trect;
begin
with (control as tlistbox).canvas do
begin
{очищаем прямоугольник}
fillrect(rect);
{считываем картинку}
bitmap:=tbitmap.create;
bitmap.loadfromfile('c:\windows\'+listbox1.items[index]);
if bitmap <> nil then begin
{вычисляем квадрат для показа картинки}
bmprect:=bounds(rect.left + 2, rect.top + 2,
rect.bottom-rect.top-2, rect.bottom-rect.top-2);
{рисуем картинку}
stretchdraw(bmprect, bitmap);
offset := rect.bottom-rect.top + 6;
end;
{выводим текст}
textout(rect.left+offset,rect.top,listbox1.items[index]);
{не забыть освободить!}
bitmap.free;
end;
end;

Чтобы картинки получились побольше, значение свойства itemheight можно увеличить.

[пауэрлифтинг]

спасибо . я думал что через ImageList надо как то

[Aleksandr]

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  Listbox1.canvas.fillrect(rect);

  imagelist1.Draw(Listbox1.Canvas,rect.left,rect.top,index);

  Listbox1.canvas.textout(rect.left+imagelist1.width+2,rect.top,
  Listbox1.items[index]);

end;

[пауэрлифтинг]

а как потом перерисовать на другую картинка в нужной строке?

[Kotofff]

imagelist1.Draw(Listbox1.Canvas,rect.left,rect.top,index);

index - это номер картинки в imagelist1

[пауэрлифтинг]

procedure TForm2.Button2Click(Sender: TObject);
begin
imagelist1.Draw(Listbox1.Canvas,rect.left,rect.top,2);
end;

А где взять rect ?

[Stilet]

А где взять rect ?

а ты не в то событие вставил код.
Ты пост Михалыча то почитай.

[пауэрлифтинг]

а мне надо в ходе выполнения программы мне картинки одни на другие