Stick graphics in ListBox
Use OnDrawItem event for inserting graphics into Listbox or Combobox. Change ItemHeight property for changing size of picture. Don't forget change Style property to lbOwnerDrawFixed.
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var Bitmap: TBitmap; R: TRect; Mas: array[1..3] of string; i: Integer; begin Mas[1]:='Pict1.bmp'; Mas[2]:='Pict2.bmp'; Mas[3]:='Pict3.bmp'; with (Control as TListBox).Canvas do begin Bitmap:=TBitmap.Create; FillRect(Rect); Bitmap.LoadFromFile('C:\Pictures\'+Mas[Index+1]); if Bitmap<>nil then begin R:=Bounds( Rect.Left+2, Rect.Top+2, Rect.Bottom-Rect.Top-2, Rect.Bottom-Rect.top-2); StretchDraw(R,Bitmap); end; TextOut(Rect.Left+100,Rect.Top,Mas[Index+1]); Bitmap.Free; end; end;