¿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"; |
Cita:
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 |
La franja horaria es GMT +2. Ahora son las 05:33:50. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi