Обрезать фото

[Kronos913]

Добрый день. Как обрезать изображение по какой-то линии?

[NetSpace]

1. привязаться к кординатам, отсчитываемым от какого-то угла фотографии. либо верхний левый, либо нижний левый.(x, y)
2. ваша линия каким-то уравнением, типа y = k*x+b?
если да, то надо просто пройтись по всем точкам выше этой линии и убрать их (сделать чёрными/белыми)

[Arigato]

Если речь за фото, то исходный файл будет в формате jpg. Значит подключаем модуль для работы с этим форматом, для этого в раздел uses добавляем JPEG.

Набросал пример кода, из фотки вырезает заданный кусок. Просто доработайте этот пример под свою задачу.

var
  jpg: TJPEGImage;
  bmp: TBitMap;
  Bound, Rect: TRect;
begin
  jpg := TJPEGImage.Create;
  // загрузка фотографии
  jpg.LoadFromFile('1.jpg');
  // переводим jpg в bmp
  bmp := TBitmap.Create;
  bmp.Assign(jpg);
  // определяем границу области
  with Bound do begin
    Left := 100;
    Top := 200;
    Right := 500;
    Bottom := 400;
  end;
  // вычисляем размер области
  with Rect do begin
    Left := 0;
    Top := 0;
    Right := Bound.Right - Bound.Left;
    Bottom := Bound.Bottom - Bound.Top;
  end;
  // копируем выделенный кусок картинки
  bmp.Canvas.CopyRect(Rect, bmp.Canvas, Bound);
  // изменяем размеры картинки
  bmp.Width := Rect.Right;
  bmp.Height := Rect.Bottom;
  // переводим bmp в jpg
  jpg.Assign(bmp);
  bmp.Free;
  // сохраняем фотку в файл
  jpg.SaveToFile('2.jpg');
  jpg.Free;
end;

[Kronos913]

Может кому понадобится, что я тут нагородил.

Глобальные переменные:

px1, px2, py1, py2:integer;

Обработка нажатия на изображения, чтобы по нажатию определять границы обрезки
Адекватно работает если само image квадратной формы и включен параметр proportional

procedure TForm2.Image21MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
   a, b:real;

begin
 If (Button=mbLeft) or (Button=mbRight) then begin
  if image21.Picture.Height>image21.Picture.Width then begin
   a:=1;
   b:= image21.Picture.Height / image21.Picture.Width;
  end else begin
   a:=image21.Picture.Width / image21.Picture.Height;
   b:=1;
  end;

  if (image21.Picture.Width > image21.Width) or (image21.Picture.Height > image21.Height) then begin
    if Button=mbLeft then begin
       px1 := trunc( b*X*(image21.Picture.Width / image21.Width) );
       py1 := trunc( a*Y*(image21.Picture.Height / image21.Height) );
    end else begin
       px2 := trunc( b*X*(image21.Picture.Width / image21.Width) )-1;
       py2 := trunc( a*Y*(image21.Picture.Height / image21.Height) )-1;
    end;
  end else begin
    if Button=mbLeft then begin
       px1:=X;
       py1:=Y;
    end else begin
       px2:=X;
       py2:=Y;
    end;
  end;

  If px2>image21.Picture.Width then px2:=image21.Picture.Width;
  If py2>image21.Picture.Height then py2:=image21.Picture.Height;

  ImgObr(false);
 end;
end;

Процедура обрезки. Если false - она просто показывает во второе image что выходит, если true - сохраняет результат в файл

procedure TForm2.ImgObr(q:boolean);
 var
  jpg: TJPEGImage;
  bmp: TBitMap;
  Bound, Rect: TRect;
begin
 If (px2>px1) and (py2>py1) then begin
  jpg := TJPEGImage.Create;
  jpg.LoadFromFile('Файл 1');
  bmp := TBitmap.Create;
  bmp.Assign(jpg);

  with Bound do begin
    Left := px1;
    Top := py1;
    Right := px2;
    Bottom := py2;
  end;

  with Rect do begin
    Left := 0;
    Top := 0;
    Right := Bound.Right - Bound.Left;
    Bottom := Bound.Bottom - Bound.Top;
  end;

  bmp.Canvas.CopyRect(Rect, bmp.Canvas, Bound);
  bmp.Width := Rect.Right;
  bmp.Height := Rect.Bottom;
  jpg.Assign(bmp);
  bmp.Free;

  If q then begin
   jpg.SaveToFile('Файл 2');
  end else begin
   Image22.Picture.Assign(jpg);
  end;
  jpg.Free;
 end;
end;

Сохранение результата:

procedure TForm2.Button1Click(Sender: TObject);
begin
 ImgObr(true);
 ImageLoad;
end;

Загрузка фото:

Procedure TForm2.ImageLoad;
begin
  Image21.Picture.LoadFromFile('Имя файла 1');
  Image22.Picture.LoadFromFile('Имя файла 1');
  px1:=0;
  py1:=0;
  px2:=Image21.Picture.Width-1;
  py2:=Image21.Picture.Height-1;
end;