| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Лассо на изображение [D7]

seregka ©   (2005-04-18 16:16:00) 

Скажите, есть ли вариант создать лассо (на подобии Фотошоповского)?

---

Delta   (2005-04-30 14:05:00) [1]

Можно реализовать так:
1) при  нажатии  и движении мыши по рисунку рисуешь линию (это будет рамочка типо рисунка). И сохраняешь каждые координаты Point(x,y)  в динамическом массиве.
2) При отпускании мышки творишь следующее: Вычисляешь мин(x,y) и макс(x,y) у динам массива.
От макс отнимаешь мин, получаешь ширину и высоту будиющей вырезанной картинки.
Создаешь битмапку, на ней рисуешь закрашенный черным полигон на белом фоне при помощи того массива который ты забил при рисовании линии.
Далее ScanLine проверяещь если точка на созданном битмапе черная то на заранее созданном той же точке даещь тотже цвет, если точка белая то на заранее созданном цвет точки делаешь Transparent.
дальше можно догнать самому, если я понятно описал :).
ну это общее описание, если че могу выслать работающий код.

---

Katy   (2005-04-25 14:34:00) [2]

Аналогично рисованию прямоугольника:
на события ImageMouseDown и ImageMouseMove с помощью Canvas.MoveTo и Canvas.LineTo

---

Grief   (2005-04-21 12:37:00) [3]

берешь черный битмап на нем ресуешь любую фигню белым цветом и складывешь картинки - получается - и будет выделенная область!

---

Магнитоныч   (2005-04-20 23:01:00) [4]

http://www.undu.com/DN961001/00000016.htm

---

Магнитоныч   (2005-04-20 22:51:00) [5]

> seregka  (20.04.05 19:09) [3]
> А надо произвольную ломаную с началом и концом в одной точке.

Polygon, PolyLine

---

Gero   (2005-04-20 19:21:00) [6]

Pen.Mode := pmXor и рисуй.

---

seregka   (2005-04-20 19:09:00) [7]

спасибо, но прямоугольником я умею. А надо произвольную ломаную с началом и концом в одной точке.

---

Katy   (2005-04-20 18:50:00) [8]

Может поможет:
Выделение области прямоугольничком при движении мышкой по кантинке (Image1).


procedure TPhotoFrm.ImMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 if Button = mbLeft then
   if not StartSelect then
   begin
     StartSelect := true;
     BegPoints[0] := X;
     BegPoints[1] := Y;
   end;
end;

procedure TPhotoFrm.ImMouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
var
 tmp: integer;
begin
 if StartSelect then
 begin
   EndPoints[0] := X;
   EndPoints[1] := Y;
 end;
 DrawFrame
end;

procedure TPhotoFrm.ImMouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
var
 tmp: integer;
begin
if Button = mbLeft then
 if StartSelect then
 begin
   EndPoints[0] := X;
   EndPoints[1] := Y;
   StartSelect := false
 end
end;

procedure TPhotoFrm.DrawFrame;
var
 ARect: TRect;
 BM: TBitmap;
 i: integer;
begin
 BM := TBitmap.Create;
 try
   BM.Assign(Image1.Picture.Bitmap)
   if Assigned(BM) then
   begin
     BM.Canvas.Brush.Color := clBlue;
     for i := 0 to 2 do
     begin
       if BegPoints[0]>EndPoints[0] then
       begin
         ARect.Left := EndPoints[0]+i;
         ARect.Right := BegPoints[0]+i
       end
       else
       begin
         ARect.Left := BegPoints[0]+i;
         ARect.Right := EndPoints[0]+i
       end;
       if BegPoints[1]>EndPoints[1] then
       begin
         ARect.Top := EndPoints[1]+i;
         ARect.Bottom := BegPoints[1]+i
       end
       else
       begin
         ARect.Top := BegPoints[1]+i;
         ARect.Bottom := EndPoints[1]+i
       end;
       BM.Canvas.DrawFocusRect(ARect)
     end; {for}
     Im.Picture.Assign(BM);
 finally  
   BM.Free
 end;
end;

---

Grief   (2005-04-20 18:31:00) [9]

подробнее!

---

Наверх