[Alex_Crack]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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'а, только вот не получается