关于在DBgrideh的单元格中显示jpg图片

dbgrideh只能默认显示bmp格式的图片,但不能显示jpg格式的图片。如果要想显示jpg格式的图片得自己动手完成。

其源码如下：

procedure TSampleForm.GrdSampleDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
var
  jpeg: TjpegImage;
begin
  if Column.Field.FieldName = 'img' then
  begin
    jpeg := TjpegImage.Create;
    try
      LoadJPGImage(QSample, 'img', jpeg);  //读出jpg图片
      GrdSample.Canvas.StretchDraw(Rect, jpeg);//把jpg图片画到grid的单元格中
    finally
      jpeg.Free;
    end;
  end;

end;