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

Hola a todos los uauarios de este foro.
Me llamo Roberto y necesito saber c´mo hago para incorporarnuna imagen a un listbox o un memo.
Se que por ejemplo, AddObject o InsertObject son los métodos para insertar un objeto a un string, pero no sé cómo usarlo. tambien he oido decir que las listas string son componentes owner-draws y que eso hace más fácil mi tarea.

Si alguien sabe la sintáxix correctapara agregar una o varias imágenes a un listbox o un memo por favor díganmelo.

En el cursillo que me bajé de internet decía:
lisbox1.items.addobject(0):= "la dirección de la imagen";

Sinceramente creo que no vas por el camino correcto. Un memo y un ListBox no son controles donde puedas insertar una imagen ("casi todo es posible" y eso también, pero no de forma en que tú comentas). Un memo es "puramente" texto y un ListBox es una lista de líneas, por lo que lo lógico sería insertar una imagen por línea, (pero para eso ya hay otros componentes);
Creo que sería más sencillo que explicaras lo que necesitas hacer, porque con ésta explicación y habiendo leído algun otro mensaje tuyo en el foro, estoy haciendo suposiciones y creo que vas por camino incorrecto.

Si estoy equivocado disculpa.

Cursillo
 

Hola Acuarius:
¿Te molestaría hacerme llegar ese cursillo (asi como lo llamas)?. Es que estoy buscando documentación y he encontrado muy poco.

Mi correo es joseledian@net.cedipad.com.cu
Te lo agradecería. De antemano gracias !!!

Poner imagenes en los items de un listbox
 

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: angela.sardinas@infomed.sld.cu y yo te ayudo con el error.

Carlos