Картинки в ComboBox

[Shouldercannon]

Как вставить в ComboBox слева от надписей картинки?

[raxp]

пример аналогичный...

procedure tform.ondrawitem(Control: TWinControl; Index: Integer;Rect: TRect; State: TOwnerDrawState);
var s: string;
begin
 with (Control as TcomboBox).canvas do begin
  s:= extractfilename((Control as TcomboBox).Items[Index]);
  brush.Color:= clblack;
  Font.Color:= cllime;//clgray;

  FillRect(Rect);
  draw(Rect.Left + 3, Rect.Top-1, bmp_open);

  TextOut(Rect.Left + 4 + bmp_open.width, Rect.Top+2, s+' ');
  //if index= combo_dat.ItemIndex then
  // textout(Rect.Right-95, Rect.Top+2,progress_dat)
 end;
 //удаление пунктира- (пусть пока будет)
 //if odFocused in State then DrawFocusRect((Control as TcomboBox).Canvas.Handle, Rect);
end;

bmp_open: tbitmap; - создайте заранее и загрузите в нее свой рисунок