[nbstudio]

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

[Bargest]

Читай про BitBlt.

[nbstudio]

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

Читай про BitBlt.

а можно пример ее использования пытался через copyrect но не сработало

[angvelem]

На самом деле, лучше использовать StretchBlt или TransparentBlt. Лучше по той причине, по которой и CopyRect не помог:

...на форме есть растянутый Image1...

[nbstudio]

нашел решение

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

[angvelem]

На форме лежит Image1 на нём Image2. В Image1 картинка уже загружена:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  aRect : TRect;
  bmp : TBitmap;
begin
  bmp := TBitmap.Create;
  try
    SetRect(aRect, Image2.Left - Image1.Left, Image2.Top - Image1.Top, Image2.Left + Image2.Width - Image1.Left, Image2.Top + Image2.Height - Image1.Top);
    bmp.Width  := Image1.Width;
    bmp.Height := Image1.Height;
    bmp.Canvas.StretchDraw(bmp.Canvas.ClipRect, Image1.Picture.Graphic);
    Image2.Canvas.CopyRect(Image2.Canvas.ClipRect, bmp.Canvas, aRect);
  finally
    bmp.Free;
  end;
end;

нашел решение

Цитата:
BitBlt(dest.Canvas.Handle, 0, 0, dest.Width,
dest.Height, src.Canvas.Handle,
dest.Left, dest.Top, SRCCOPY);

Это несколько не то. С изображениями отличными от битмап (jpg к примеру) работать не будет.