Внешний вид сайта:

Копирование части одного изображения в другое

Вы можете использовать функцию CopyRect для копирования одной части Canvas в другой.

Вы можете использовать функцию CopyRect для копирования одной части Canvas в другой.

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Image1.Picture.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Image2.Canvas.CopyRect(
    Rect(0, 0, Image2.Width, Image2.Height),
    Image1.Canvas,
    Rect(
      0,
      0,
      Image1.Picture.Width - 50,
      Image1.Picture.Height - 50));
end;

Комментарии

Нет комментариев. Ваш будет первым!