¿Cómo insertar una imágen en un lisbox o un memo?

[Gandazgul]

en la forma pon un listbox
ponle la propiedad Style a lbOwnerDrawFixed
y pon este codigo en el evento OnDrawItem

ademas pon un Imagelist y carga las imagenes de los items.

procedure TForm1.lbNicksDrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
var Graph: TBitmap;
begin
with (Control as TListBox) do
begin
Canvas.Font.Color:=[El color que quieras para la letra]
Canvas.Brush.Color:=[El color que quieras para el fondo]
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+Imagelist1.Height+2,Rect.Top,Items[Index]);
Graph:=TBitmap.Create;
Imagelist1.GetBitmap([index de la imagen para este item],Graph);
Graph.Transparent:=True;
Canvas.Draw(Rect.Left,Rect.Top,Graph);
Graph.Free;
end;
end;

Esto debe funcionar, si no escribeme a: [email protected] y yo te ayudo con el error.

Carlos