[Kpyc]

Есть исходное изображение 1800х2500. На форме оно отображено в TImage и ужато до 600х800. Как скопировать кусок из изображения и растянуть его в те же 600х800, не потеряв в качестве? Т.е. мне надо копировать кусок из первоначального файла большого разрешения, а не из изображения на форме.

[robt]

Image.Canvas.CopyRect();

[Kpyc]

Кстати изображение Jpg

[robt]

Сообщение от Kpyc

Кстати изображение Jpg

ичо?........................

[Kpyc]

Ок, тогда что делаю не так:

Код:

var
  ARect: TRect;

begin
  ARect := Rect(0, 0, 300, 400);
  map.Canvas.CopyRect(map.Canvas.cliprect, map.canvas, arect);
end;

вылетает EInvalidOperation: can only modify an image if it contains a bitmap.

[robt]

Image.Picture.Bitmap.Canvas.CopyRect();
или
TJPEGImage + DIBNeeded