Canvas и Delphi

[Macmeprag]

множество точек это окружность) но то что в комменте это просто дя красоты окружность переходная точка такая между линиями

[alex_fcsm]

Как я понял: Есть начальная точка, игрок рисует очередную, но рисует конечно же неточно. Тогда вы из области, куда кликнул игрок найдите ту точку для которой будет выполняться условие sqrt((GX-X)^2+(GX-Y)^2)=D
или даже sqrt((GX-X)^2+(GX-Y)^2)-D<=eps. Если же ни для одной точки условие не выполняется, пусть тыкает дальше. Соответственно eps и допуск можете подрегулировать

[Macmeprag]

Мм, спасибо, попробую реализовать это дело)

[alex_fcsm]

в принципе несложно, что-то такое

for:=x-2 to x+2 do
 for j:=y-2 to y+2 do
  if (sqrt(sqr(i-gx)+sqr(j-gy))-D)<=0.0001 then begin
   Line(i,j);
   gx:=i;gy:=j;break;//нашли новую точку и запоминаем ее координаты
  end;

[Macmeprag]

Все, спасибо) Сделал, правда немного подругому..даже не немного))
но спасибо за идеи)

[Dim On]

Как удалить нарисованную линию, способ рисования такой же лиии но с цветом фона не подходит, необходимо именно удалять?

[_-Re@l-_]

Мммм...Чисто фактически вроде бы никак. Но если пользуете Делфи, можно юзать битмапы, и с помощью них можно....делать всякие всячины.

[Dim On]

а больше никак? у меня просто прога(это ее часть), соединяем первую и вторую кнопку с помощью линии, а потом третью и вторую и линии накладваются, после этого например нужно удалить первую или вторую и при этом что бы другая осталась на месте....
глобальные

var
Form1: TForm1;
lines: array[1..3] of byte;
button: byte;
b: boolean;

----------------

procedure TForm1.Button1Click(Sender: TObject);
begin
button:= 3;
panel1.Visible:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
button:= 2;
panel1.Visible:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
var x,y: integer;
begin
lines[button]:= 2;
panel1.Visible:=false;

case button of
3: begin
x:=button1.Left+75;
y:=button1.Top+12;
end;
2: begin
x:=button3.Left+75;
y:=button3.Top+12;

end else end;
form1.Canvas.MoveTo(x,y);
form1.Canvas.LineTo(x+button*20,y);
if y-(button2.Top+12)<0 then
begin
form1.Canvas.LineTo(x+button*20,y-(y-(button2.Top+12)));
form1.Canvas.LineTo((x+button*20)-(x-(button2.Left)),y-(y-(button2.Top+12)));
end
else
begin
form1.Canvas.LineTo(x+button*20,y-(y-(button2.Top+17)));
form1.Canvas.LineTo((x+button*20)-(x-(button2.Left)),y-(y-(button2.Top+17)));
end;