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

[Глюк]

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

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

[volvo]

Смотри... На форму брось TImage и TButton, в классе формы опиши:

type
  TForm1 = class(TForm)
  ...
  private
    the_points: array of TPoint;
  ...
end;

и добавь 2 обработчика:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const sz=3;
begin
  Image1.Canvas.Pen.Color := clRed;
  Image1.Canvas.Ellipse(X - sz, Y - sz, X + sz, Y + sz);

  setlength(the_points, length(the_points) + 1);
  the_points[length(the_points)-1].X := X;
  the_points[length(the_points)-1].Y := Y;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Image1.Canvas.PolyBezier(the_points);
end;

Теперь щелкни в 4-х местах на Image, этим ты задашь 4 точки. Только внимательно: 2 из них (первая и последняя) - задают начало/конец кривой Безье, а еще 2 - задают ее форму... После того, как 4 точки отмечены - жми кнопку... Вот тебе и кривая...