Bueno no es nada complicado tener una columna de tu DBGrids con Imagenes tan solo utiliza el evento
OnDrawColumnCell de tu DBGrid y pon un código similar a Esto:
Código Delphi
[-]procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.Field = ADOQuery1FOTO then begin
if not (gdSelected in State) then DBGrid1.Canvas.FillRect(Rect); with TPicture.Create do begin
Assign(ADOQuery1FOTO); DBGrid1.Canvas.StretchDraw(Rect,Bitmap); Free; end;
end;
end;
Claro está que tus campos (fields) de tu Dataset(ADOQuery ,ADOTable) deben estar añadidos como "
componentes de acceso de campos" ,de ahí que en el ejemplo yo tenga un componente de acceso de campo llamado "ADOQuery1FOTO".
.
Si tienes dudas de como añadir componentes de acceso de campos ,te aconsejo leer
éste estupendo libro el capitulo 16 ,página Nro 323.
.
Saludos...