[Mystery]

Помогите, пожалуйста!!
Как сделать выделение произвольной области на изображении (Bitmap) ??
Потом эту выделенную область нужно в файл сохранять.

[Страдалецъ]

Отлавливаете пермещение мыши по битмапу, при нажатии кнопки начинаете рисовать прямоугольник. Когда отпускаете кнопку рисовать прямоугольник перестаете и копируете в новый битмап регион попавший в выделенную область.

[Mystery]

В этом и загвоздка, что выделить нужно не прямоугольную область, а типа какую мышкой обведешь.
Если можно, выложите код, пожалуйста, как реализовать.

[lmikle]

Код писать лень. Идея такова: тебе надо следить за мышкой и запоминать кк координаты. Потом, по этим координатам строится регион, по которому и производится вырезание. Фактически, с момента нажатия кнопки мыши ты начинаешь запоминать ее координаты (в OnMouseMove). Когда кнопку отпускают, то перестаешь запоминать. В результате у тебя есть некоторый список координат, отражающих путь мыши. По этим координатам можно построить некоторый полигон (регион), по которому и делать обрезку. Да, не забудь замкнуть контур принудительно, т.е. в списке повторить в конце первые координаты.

[Mystery]

Я понимаю словами как оно должно быть, но программно, боюсь, не смогу это написать... Мне сказали, что самой это сложно сделать(((((((

[Страдалецъ]

Тебя обманули, не сложно. Есть только одно уточнение к вышепредложенному варианту. После того как мышь отпустили желательно пройтись по списку и исключить лишние координаты.
Вот примерно так будет:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
 StartSelectArea := False;
end;

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 StartSelectArea := True;
 SetLength(SelectArea, 1);
 SelectArea[0] := Point(X,Y);
end;

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if StartSelectArea
 then if (SelectArea[High(SelectArea)].X <> X) or (SelectArea[High(SelectArea)].Y <> Y)
      then begin
           SetLength(SelectArea, Length(SelectArea)+1);
           SelectArea[High(SelectArea)] := Point(X,Y);
           end;
end;

procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 StartSelectArea := False;
 Image2.Canvas.Pen.Color := clRed;
 Image2.Canvas.Polygon(SelectArea);
end;