Articles

Joomla
Joomla

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;

Joomla
Joomla