Ver Mensaje Individual
  #4  
Antiguo 09-03-2021
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita