Imagen en Grid

[Joa0]

Creo que seria algo asi:




procedure TFrm.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin

if column.Field=dmseguimiento.tblcolumnax
then//si se trata de la columna en la que queremos dibujar la celda
// dibujamos sobre el canvas del grid
dbgridfichas.Canvas.StretchDraw(Rect,grafico);

end
else
DBGridFichas.DefaultDrawDataCell(Rect, Column.Field, State);
end;