Кривая Безье Опции

[Глюк]

Здавствуйте,
Подскажите,пожалуйста, алгоритм построения Кривой Безье на Delphi ...

Сообщение отредактировано: Глюк - 3.05.2007 22:23

[volvo]

Ты считаешь, что глобальные координаты курсора мыши и оконные координаты, в которых должна появиться точка - это одно и то же, а на самом деле это далеко не так... Я не просто так в четвертом посте сделал обработку события OnMouseDown... Смотри:

var
  Form1: TForm1;

  _x : array [0..49] of integer; // Переименовываешь здесь и везде, где имеются в виду массивы
  _y : array [0..49] of integer;

и переносишь обработку нажатия из OnClick в OnMouseDown:

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer); // Здесь - именно оконные координаты клика мыши
var i, j: integer;
begin
  i := strtoint(edit1.Text);
  _x[i]:=X;
  _y[i]:=Y;

  paintbox1.Canvas.Pen.Color:=clblue;
  paintbox1.Canvas.Pen.Width:=5;
  paintbox1.Canvas.moveto(x,y);
  paintbox1.Canvas.LineTo(x,y);
  paintbox1.Canvas.TextOut(X-2,Y-2,'P'+inttostr(i));
  i:=i+1;

  edit1.text:=inttostr(i);
  with paintbox1.Canvas do begin
    pen.Color:=clgreen;
    pen.Width:=1;
    for j:= 0 to i-2 do begin
      moveto(_x[j],_y[j]);
      lineto(_x[j+1],_y[j+1]);
    end;
  end;
end;