Теряется качество картинки из BLOB

[artemavd]

Добрый день!
При отображении картинки в поле из BLOB поля базы данных теряется качество картинки.
Вот код:

procedure TForm_Main.StudentsDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer;
  Column: TColumnEh; State: TGridDrawState);
var
  stream: TStream;
  img: TBitmap;
  t,r:integer;
begin
 if Column.FieldName='PS' then
 with Form_Main.Students.Canvas, Form_Main.pFIBDataSet1 Do
 begin
  img:= TBitmap.Create;
  stream:=
      Form_Main.pFIBDataSet1.CreateBlobStream(Form_Main.Students.DataSource.DataSet.FieldByName('PS'),bmRead);

  t:=TDBGridEh(Sender).Canvas.TextWidth(Column.Field.DisplayText);//длина отображаемого значе ния
  t:=TDBGridEh(Sender).Canvas.TextHeight(Column.Field.DisplayText);//длина отображаемого значе ния
  r:=Rect.Right - Rect.Left;//длина прямоугольника
  TDBGridEh(Sender).Canvas.TextOut(3 + Rect.Left+round((r-t)*0.5), 3 + Rect.Top+2,Column.Field.Text);
  try
   img.LoadFromStream(stream);
   StretchDraw(Rect, img);
  finally
   stream.Free;
   img.Free;
  end;
 end;
end;

Прошу помощи в том как сделать, чтобы не терялось качество картинки?

[Аватар]

А степень сжатия какая? StretchDraw вообще-то не самый хороший сжиматель изображения при сильном сжатии. Да и любым другим способом потеря качества неизбежна. Может GDI+ и поможет, но качество тоже прежним не останется. И Rect хоть пропорционален размерам битмапа?

[artemavd]

Сообщение от Аватар

А степень сжатия какая? StretchDraw вообще-то не самый хороший сжиматель изображения при сильном сжатии. Да и любым другим способом потеря качества неизбежна. Может GDI+ и поможет, но качество тоже прежним не останется. И Rect хоть пропорционален размерам битмапа?

Привет!
У меня в событии OnCreate формы есть этот код:

 pic:=Tjpegimage.Create;
 TJPEGImage(pic).Scale:=jsEighth;// уменьшаем картинку в 8 раз
 TJPEGImage(pic).Performance:=jpBestSpeed; // уменьшаем цветопередачу и увеличиваем скорость отрисовки

Но, он вроде остался от предыдущих вариантов и не влияет на тот код, который отображает картинку. По крайней мере если я комментирую его, то ничего не меняется в лучшую сторону.
У меня размер картинки-то 70(ш) на 80(в) всего лишь.
В коде размер Rect явно не задается, отсюда и потеря качества, наверное.

[Аватар]

Выложи сюда одну картинку и покажи содержимое Rect-а

[artemavd]

Аватар, да картинка-то обычная.
А как посмотреть размер Rect?

[Аватар]

Ну картинка 65x83, а говоришь 70x80
А Rect в отладчике подглядеть - ставь точку останова на строке

StretchDraw(Rect, img);

наведи курсор на Rect во время останова и смотри. Неужели отладчиком не пользуешься?