Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Выделение мышью фрагмента на Canvas [D6, WinXP]

AlexOld © (2003-04-07 11:16:00)
Уважаемые мастера, как сделать выделяющую рамку на изображении? Рисовал PolyLine с координатами от MouseMove. Есс-но, рисуются все рамки при перемещении мышки. Как оставить только последнюю, но чтобы был виден процесс перемещения рамки - как в графических редакторах. Заранее спасибо.

AlexOld (2003-04-08 13:11:00) [1]
Хороший Плохой человек!
Спасибо, все получилось!

Плохой человек (2003-04-07 21:20:00) [2]
Поменяй на этот:

procedure TForm1.Image1MouseMove(Sender:...);
begin
if (ssLeft in Shift) then
begin
//Стирание прежней рамки
Image1.Canvas.DrawFocusRect(R);
if XStart<X
then begin R.Left:=XStart; R.Right:=X end
else begin R.Left:=X; R.Right:=XStart end;
if YStart<Y
then begin R.Top:=YStart; R.Bottom:=Y end
else begin R.Top:=Y; R.Bottom:=YStart end;
//Рисование новой рамки
Image1.Canvas.DrawFocusRect(R);
end;
end;

AlexOld (2003-04-07 18:46:00) [3]
jel, спасибо! Пока пробовал с NOTXOR, набрел на метод DrawFocusRect - все работает как надо. Только при движении мышки без нажатия клавиши по картинке бегут полосы - не смог их убрать. Код такой:
procedure TForm1.Image1MouseMove(Sender:...); begin //Стирание прежней рамки Image1.Canvas.DrawFocusRect(R); if (ssLeft in Shift) then begin if XStart<X then begin R.Left:=XStart; R.Right:=X end else begin R.Left:=X; R.Right:=XStart end; if YStart<Y then begin R.Top:=YStart; R.Bottom:=Y end else begin R.Top:=Y; R.Bottom:=YStart end; //Рисование новой рамки Image1.Canvas.DrawFocusRect(R); end; end;
Может, подскажете, куда двигаться?

jel (2003-04-07 11:24:00) [4]
Рисуй сначала по старым координатам с XOR (стирание старой рамки) а потом по новым.

Наверх

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