Скопировать часть изображения в canvas

[NBSTUDIO]

Допустим, на форме есть растянутый Image1, в него грузится картинка. Сверху Image1 лежит Image2 (размером меньше) и в его канву нужно загрузить тот кусок рисунка из Image1 который как бы закрывает Image2.
Другими словами, чтобы Image2 фотографировала в канву то, что находится под ней
Подскажите пожалуйста как можно реализовать!

[grom333]

const
  x1=0;
  y1=0;
  x2=32;
  y2=32;
var
  bmpin: TBitmap;
  bmpout: TBitmap;
begin
  bmpin:=TBitmap.Create;
  bmpout:=TBitmap.Create;
  try
    bmpin.LoadFromFile('c:\1.bmp');
    bmpout.Width:=x2-x1+1;
    bmpout.Height:=y2-y1+1;
    bmpout.Canvas.CopyRect(Rect(0, 0, bmpout.Width, bmpout.Height), bmpin.Canvas, Rect(x1, y1, x2, y2));
    bmpout.SaveToFile('c:\2.bmp');
    image2.Picture.LoadFromFile('c:\2.bmp');
  finally
    bmpout.Free;
    bmpin.Free;
  end;
end;

Не помню где брал, осталось в проектах.. где-то переделывал, заменял координы x1,x2,у1,у2 просто координатами image2. и можно перетягивать компоненту по форме, автоматически меняются координаты. В этом же примере, просто в image2 вставляет скопированный и сохраненный рисунок по координатам...

[Lesha]

http://www.cyberforum.ru/post2811657.html

[NBSTUDIO]

спасибо за пример. вот нашел решение с помощью этой функции:

BitBlt(dest.Canvas.Handle, 0, 0, dest.Width,
  dest.Height, src.Canvas.Handle,
   dest.Left, dest.Top, SRCCOPY);