cxgrid 添加图片

设置列的属性为image ，

procedure TFrmSelectLost.SetValueShow(AColName: string; isSmile: Boolean);

var
  tmpMemStream: TMemoryStream;
  s: string;
begin
  if isSmile then
    s := gGlobal.AImageFilePath + '\' + Con_ImageFile_Smile
  else
    s := gGlobal.AImageFilePath + '\' + Con_ImageFile_NoSmile;
  tmpMemStream := TMemoryStream.Create;
  try
    tmpMemStream.LoadFromFile(s);
    cds.Edit;
    TBlobField(cds.FieldByName(AColName)).LoadFromStream(tmpMemStream);
    cds.Post;
  finally
    FreeAndNil(tmpMemStream);
  end;
end;