Функция рисования окружности в Delphi

[virtaanen]

Доброго времени суток товарищи программисты!
Хотелось бы узнать есть ли в Delphi функция рисования окружности с центром в точке с координатами (Х;У) и заданным радиусом R? Или если это не реализовывается одной функцией, то скиньте ссылку на пример рисования окружности.
Извиняюсь за возможное повторение темы

[raxp]

внизу не помогло?

ellipse

[virtaanen]

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

внизу не помогло?

ellipse

Помочь помогло просто я неверно выразился в сообщении, хотел спросить нет ли функции типа Окружность(Х,У,R) а то ellipse по 2 точкам рисует и я не знаю что это за точки.

[psycho-coder]

Смотрите мою подпись (1-я строка)

procedure TForm1.Button1Click(Sender: TObject);
var
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  Bitmap.Width := 100;
  Bitmap.Height := 100;
  Bitmap.Canvas.Ellipse(Rect(0, 0, 100, 100));
  Canvas.Brush.Bitmap := Bitmap;
  Canvas.FillRect(Rect(0, 0, 100, 100));
  Bitmap.Free;
end;

[raxp]

Помочь помогло просто я неверно выразился в сообщении, хотел спросить нет ли функции типа Окружность(Х,У,R) а то ellipse по 2 точкам рисует и я не знаю что это за точки.

начало и конец. в данном случае окружность как-бы вписана в этот прямоугольник.
а вообще разве вам не знакома формула x^2 + y^2 = r^2 ?
по ней вы можете построить как вам нравиться...

[DeKot]

Коллеги, что ж Вы так новичка грузите? Напугаете человека.
По теме - все гораздо проще.Стандартная процедура рисования Ellipse() позволяет рисовать одной командой как окружность, так и эллипс всего по двум координатным точкам.Вот рисунок - все видно и, думаю, предельно понятно.

[virtaanen]

Всем большое спасибо за помощь, разобрался

[russian-stalker]

Ну или сделать так:

procedure circle(canvas:tcanvas;x,y,r:integer);
begin
canvas.Ellipse(x,y,x+r,y+r);
end;

[ОДИНОЧЕСТВО В СЕТИ]

если x,y-центр окружности то

canvas.Ellipse(x-r,y-r,x+r,y+r);