Pantalla para registro de ventas

[ecfisa]

Hola mRoman.

Estuve mirando que el código anterior sólo contempla bitmaps, si deseas usar otros tipos de imágenes basta con un pequeño cambio:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Pic: TPicture;
begin
  if (Column.FieldName = 'IMG') then
  begin
    Pic := TPicture.Create;
    try
      Pic.Assign(Column.Field);
      DBGrid1.Canvas.StretchDraw(Rect, Pic.Graphic);  // (antes Pic.Bitmap)
    finally
      Pic.Free;
    end;
  end
end;

Saludos