Como puedo Cargar una Grilla con Imagenes de una Base de Datos.????

[DANNY777]

Le estaré muy agradecido si me pueden ayudar con este tema, me pase buscando una solucion a mi problema de como puedo cargar una grilla con imganes que tengo que levantarlos desde una base de datos. Estoy queriendo hacer un formulario que se puede usar con pantalla tactil. Entonces tengo las imágenes de mis articulos que la idea es que estén en la grilla y que el usuario pueda presionar y automáticamente cargar en la lista de productos a comprar.. Desde ya muchas gracias por la ayuda que me puedan brindar..

[DANNY777]

Empezado por DANNY777

Le estaré muy agradecido si me pueden ayudar con este tema, me pase buscando una solucion a mi problema de como puedo cargar una grilla con imagenes que tengo que levantarlos desde una base de datos. Estoy queriendo hacer un formulario que se puede usar con pantalla tactil. Entonces tengo las imágenes de mis articulos que la idea es que estén en la grilla y que el usuario pueda presionar y automáticamente cargar en la lista de productos a comprar.. Desde ya muchas gracias por la ayuda que me puedan brindar..

. Si me pudieran dar por lo menos una idea de como comenzar a hacer le agradeceré..

[[Caral]]

Hola DANNY777
En un grid no se puede cargar una imagen, por lo menos en uno estandar hay varios componentes de grid que si lo hacen, en este momento no recuerdo en donde pero buscando en internet se consiguen.
Tambien hay algunos trucos para hacerlo, parecido a lo que buscas.
Sigue buscando, seguro encuentras.
Saludos

[[fjcg02]]

Con Access, cargadas las imagenes en campos objeto OLE ( o eso creo )

Código Delphi [-]
procedure TFormSubclases.DBGrid1DrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
var icono: TBitmap;
begin
if Field.Name = 'TablaSubclasesdibujo' then
begin
  try
   icono:= Tbitmap.Create;
   icono.Assign(TBlobField(Field));
   (Sender as TDBGrid).Canvas.FillRect(Rect);
   (Sender as TDBGrid).Canvas.Draw(Rect.left+3,Rect.Top+1, icono);
  finally
    icono.free;
  end;
end
else
    (Sender as TDBGrid).DefaultDrawDataCell(Rect, Field, State);
end;

PAra cargar las imagenes a la BBDD, pongo un DBImage asociado al campo y un boton, con este código

Código Delphi [-]
procedure TFormSubclases.BitBtn1Click(Sender: TObject);
begin
  with TOpendialog.Create(nil) do
  try
    Filter:= 'Archivos de imagen|*.bmp;*.ico;*.jpg';
    if Execute then
    begin
      TablaSubclases.Edit;
      DBImage1.Picture.LoadFromFile(Filename);
    end;
  finally
    Free;
  end;
end;

y ya pinto una imagen en el grid. PAra lo que yo necesito, suficiente. Queda pulir los altos de las filas por si utilizas imagenes de diferentes tamaños, ... pero con eso nunca me he metido.

Suerte y saludos