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

最新推荐文章于 2020-11-28 03:17:22 发布

原创最新推荐文章于 2020-11-28 03:17:22 发布 · 2k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#integer

开发技术专栏收录该内容

2 篇文章

订阅专栏

本文介绍如何在dbgrideh中自定义显示jpg格式的图片，通过创建TjpegImage实例并使用LoadJPGImage加载图片，再利用Canvas.StretchDraw绘制到网格单元格中。

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;