[Electronic_Arts]

Всем добрый день
- столкнулся с такой проблемой не понимаю почему так происходит и как это исправить

Значит так - на форме стоит компонент Image
когда в него из буфера ставишь картинку и свойство Stretch делаешь активным картинка получается безобразным



Нашел в сети другой компонент Image32 у которого все ок с свойством Stretch но у него нашлась проблема когда мне понадобился изменение размера файла в зависимости от Image.width Image.height

Код:

bmp: TBitmap;
jpeg: TJPEGImage;
begin
image:= TJPEGImage.Create;
bmp:= TBitmap.Create;
jpeg:= TJPEGImage.Create;
BMP.Width:= Image321.Width;
BMP.Height:=Image321.Height;
with bmp.Canvas do
StretchDraw(ClipRect, ТGraphic); //Вот тут проблема так 
jpeg.Assign(bmp);                                           //как у компонента нету
jpeg.CompressionQuality:=80;                           //класса TGraphic
jpeg.Compress;
jpeg.SaveToFile('D:\111.jpg');

С cтандартным компонентом Delphi Image писали так

Код:

StretchDraw(ClipRect, image1.picture.graphic);

и все работало - а как быть тут??

Посоветуйте что нибудь