Hola Daniel.
Te agrego una opción más a las que te señaló
Casimiro.
Código Delphi
[-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
with TStringGrid(DBGrid1) do
begin
DefaultRowHeight := 60; RowHeights[0] := 25; end;
DBGrid1.Options := DBGrid1.Options - [dgColumnResize]; end;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if ( Column.FieldName = 'GRAPHIC' ) then
with TPicture.Create do
try
Assign( Column.Field );
DBGrid1.Canvas.StretchDraw( Rect, BitMap );
finally
Free;
end;
end;
Muestra del ejemplo:
Saludos