|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Выделение области ХЕЛП!!
Помогите, пожалуйста!!
Как сделать выделение произвольной области на изображении (Bitmap) ?? Потом эту выделенную область нужно в файл сохранять. |
#2
|
||||
|
||||
Отлавливаете пермещение мыши по битмапу, при нажатии кнопки начинаете рисовать прямоугольник. Когда отпускаете кнопку рисовать прямоугольник перестаете и копируете в новый битмап регион попавший в выделенную область.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
||||
|
||||
В этом и загвоздка, что выделить нужно не прямоугольную область, а типа какую мышкой обведешь.
Если можно, выложите код, пожалуйста, как реализовать. |
#4
|
|||
|
|||
Код писать лень. Идея такова: тебе надо следить за мышкой и запоминать кк координаты. Потом, по этим координатам строится регион, по которому и производится вырезание. Фактически, с момента нажатия кнопки мыши ты начинаешь запоминать ее координаты (в OnMouseMove). Когда кнопку отпускают, то перестаешь запоминать. В результате у тебя есть некоторый список координат, отражающих путь мыши. По этим координатам можно построить некоторый полигон (регион), по которому и делать обрезку. Да, не забудь замкнуть контур принудительно, т.е. в списке повторить в конце первые координаты.
|
#5
|
||||
|
||||
Я понимаю словами как оно должно быть, но программно, боюсь, не смогу это написать... Мне сказали, что самой это сложно сделать(((((((
|
#6
|
||||
|
||||
Тебя обманули, не сложно. Есть только одно уточнение к вышепредложенному варианту. После того как мышь отпустили желательно пройтись по списку и исключить лишние координаты.
Вот примерно так будет: Код:
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; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 14.04.2010 в 19:18. |