Как построить в Delphi окружность ? Chart

[warma2d]

Здравствуйте!

Помогите пожалуйста построить в Delphi окружность с помощью Chart. Как я понимаю, это нужно без использования Canvas.
Построить окружность самым простым и доступным способом, т.е. задаётся только Радиус окружности.

Как я понимаю, функция должна быть y:=SQRT(SQR(R)-SQR(x)) и нужно с помощью цикла перебрать некие значения икса?

Однако у меня рисует то 1/4 окружности, то параболу, но не окружность

Вот моя наработка:

procedure TForm1.Button1Click(Sender: TObject);
var
xH,xk,h,x,y:real;
r:real;
begin
Series1.Clear;
  XH:=-10;
xk:=10;
h:=1;
R:=StrtoFloat (Edit1.Text);
x:=XH;
    repeat
      y:=SQRT(SQR(R)-SQR(x)) ;
     Series1.AddXY(x,y);
       x:=x+h;
    until x>xk;

  end;

end.

Заранее Спасибо!

[Rin]

Тебе сюда надо

[warma2d]

Спасибо за ответ Rin, но признаю, что я не понял.
(я глупыш)

Как построить окружность без Canvas, а только с помощью Chart?

[phasha]

Series1 что это?какой тип? тоже попробовать нарисовать хочу))

[warma2d]

Сообщение от phasha

Series1 что это?какой тип? тоже попробовать нарисовать хочу))

Нужно на форму добавить компоненту Chart из вкладки Additional. Затем щелкнуть два раза на график (chart), который у вас появился на форме. И добавить уже конкретный тип графика, который Вы хотите использовать 2d/3d, линейный, диаграммный и т.д.
После этого, в коде, Вам и потребуется

Series1.AddXY(x,y);

Однако у меня, к сожалению, вопрос так и остался:
как же можно построить окружность без Canvas, а только с помощью Chart ?

[Hacker19_90]

читайте
http://it.kgsu.ru/DelAdd/deladd19.html

[phasha]

да у меня просто проснулся интерес и правда как нарисовать,может кинешь исходник?а можешь еще сам попробовать y:=sqr(r)+sqr(x)-1 =)
95% что не правильно но все же из графиков помню что у^2+x^2=1 ВРОДЕ БЫ формула окружности

[warma2d]

phasha, формула окружности точно

sqr(x)+sqr(y)=sqr(R)

Hacker19_90, Благодарю за ответ.

Нет, я понимаю, что я не "профессионал", а скорее "чайник" в Delphi, но кое-что знаю.
Вашу ссылку уже прочитал. Увы она мне не помогла. То есть про окружность или круг там ничего не было...

[Stilet]

Series1.XValues.Order:=loNone;
И будет автору счастье

[warma2d]

Сообщение от Stilet

Series1.XValues.Order:=loNone;
И будет автору счастье

Спасибо огромное Stilet!
Ваш ответ мне реально помог.
А именно нашёл на English сайте:

Var t:Integer;
begin
  Series1.XValues.Order:=loNone ;
  for t:=0 to 360 do Series1.AddXY( Sin(t*Pi/180.0), 
Cos(t*Pi/180.0), '', clRed );
end;

Это реально работает

Однако, если Вы имели в виду использовать, Series1.XValues.Order:=loNone; в голом виде, т.е. в моём коде, то я не понял как это можно сделать.

Не смотря на то, что теперь понятно, как можно построить окружность, я так и не разобрался, как можно изменять его радиус ?