SPECIAL OFFER        Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

⤷ 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;
More for developers
Databases for Amazon Associates
Amazon Categories
Amazon Nodes