[Alex_Crack]

Проблема такая: Загружаем картинку в TImage (из файла jpg,bmp,gif), затем меняем свойство Stretch, картинка растягивается, а после нужно сохранить эту картинку в файл в таком растянутом виде.
пробовал вот так:

Код:

var
img:TImage;
r:TRect;
begin
img:=TImage.Create(Form2);
img.Width:=500;
img.Height:=300;
r.Left:=0;
r.Top:=0;
r.Right:=Image1.Width;
r.Bottom:=Image1.Height;
img.Canvas.CopyRect(r,Image1.Canvas,r);
Img.Picture.SaveToFile('D:\123.jpg');
Img.Free;

но не получается

[Alex_Crack]

Вроде как надо сначала создать Bitmap, загрузить в него Canvas TImage'а, а потом присвоить полученный Битмап в Picture Image'а, только вот не получается