Перенос из одного Image в другой

[Dimitriys]

Допустим, у меня картинка в Image1. Мне надо взять кусок. Допустим, 50 на 50. И его в Image2. Как сделать?

[itisiam]

это описано в любой книге по делфи ну да ладно ))


procedure CopyRect (Dest:TRect;Canvas:TCanvas;Source:T Rect);

Dets:прямоугольник куда копируется
Canvas: канва компонента из которого производится копирование
Source:прямоугольни который копируется

TRect -знаете что такое? если нет то это прямоугольник который задается методами Rect.Left,Rect.Top,Rect.Right,Rect. Bottom


например
Form1.Canvas.CopyRect(Dest,Image1.C anvas,Source);
будет копирован прямоугольник Source из Image1 на канву формы в прямоугольник Dest
понятно все?

[Сильванович Михаил]

Есть API-функция:

function BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc: Integer; Rop: Longint): Bool;

Итак:

 Image2.Picture.Bitmap.Width:=50;
 Image2.Picture.Bitmap.Height:=50;
 BitBlt(Image2.Picture.Bitmap.Canvas.Handle,0,0,50,50,
         Image1.Picture.Bitmap.Canvas.Handle,10,10,SRCCOPY);
//копирует от точки 10,10

З.Ы. по поводу TRect - это не прямоугольник, а структура, описывающая
координаты всех углов прямоугольника.
И задать ее можно с помощью следующей процедуры:
procedure SetRect(var Rect: TRect; X1, Y1, X2, Y2: Integer);
Хотя описанный выше способ применим
(через субьекты структуры: left,top,right,bottom), но великоват в
написании - 4 строки вместо 1й!

[Dimitriys]

Всё, разобрался, спасибо.

[itisiam]

то что структура я понимаю , просто так написал ))
а вот за SetRect спасибо, 4 строчки и правда многовато

[mutabor]

Я вообще так всегда пишу, проще некуда
CopyRect (Rect(x1,y1,x2,y2),Canvas,Rect(x1,y 1,x2,y2));
А про SetRect и я не знал, намотаю на ус, может пригодиться.