Ver Mensaje Individual
  #13  
Antiguo 10-02-2010
jandro jandro is offline
Miembro
 
Registrado: jul 2007
Posts: 56
Reputación: 17
jandro Va por buen camino
Antes de nada, perdon por tardar tanto pero he estado fuera de casa todo este tiempo.

Para los que querian saber como metia imagenes en el ListBox aqui dejo la funcion del evento DrawItem del ListBox

procedure TfMain.MemoListadoDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox) do begin
begin
MemoListado.Canvas.FillRect(Rect);
MemoListado.Canvas.TextOut(Rect.Left+ImageList1.Width+5,Rect.Top,Memo Listado.Items[Index]);
ImageList1.Draw(MemoListado.Canvas,Rect.Left,Rect.Top,Index);
end;
end;

Las imagenes la coge de un ImageList en BMP.

He probado varios metodos de impresion que aqui habeis puesto pero ninguna imprime las imagenes. Alguna idea de como hacerlo??

Gracias a todos de nuevo
Saludos.

P.D.: Alguien me puede decir como era para que el codigo saliera bonito??
Responder Con Cita