FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
¿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"; |
#2
|
||||
|
||||
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.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
||||
|
||||
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 !!!
__________________
Saludos ... JLedian. |
#4
|
|||
|
|||
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 |
|
|
|