FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#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 |
|
|
|