[Delphi7]Нарисовать круг по указанным пользователем координатами центра и радиусом.

[destra1j]

Нарисовать круг по указанным пользователем координатами центра и радиусом.

В делфи я совсем зеленый новичок токо начал изучать. Как такое делается?

[type_Oleg]

Рисуется на чьей-нибудь канве. Можно прямо на форме.

procedure TForm1.Button1Click(Sender: TObject);
var r,x0,y0:Integer;
begin
 r:=100;     // радиус
 x0:=300;   // координата центра
 y0:=200;   // координата центра
 Canvas.Ellipse(x0-r,y0-r,x0+r,y0+r);   // если не указан компонент - хозяин канвы, значит прямо на форме
end;

[destra1j]

у вас я так понял дефолтные кjординаты радиуса и центра а можно сделать так чтоб они вводились пользователем в какой-то edit?

[Serge_Bliznykov]

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

у вас я так понял дефолтные кjординаты радиуса и центра а можно сделать так чтоб они вводились пользователем в какой-то edit?

да. легко. Вот без проверки на корректность ввода:

 r:=StrToInt(EditRadius.Text);     // радиус
 x0:=StrToInt(EditCenterX.Text);   // координата центра
 y0:=StrToInt(EditCenterY.Text);   // координата центра

[destra1j]

Рисует эллипс(окружность). Параметры x1, y1 указывают координаты верхней левой точки, а x2, y2 координаты нижней правой точки прямоугольника в который вписана окружность.

вот что в учебнике.
Расстояние между центром прямоугольника и верхней левой точкой можно ведь считать за радиус?
И как програмно прописать чтоб пользователь задавал центр?

[type_Oleg]

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

.. И как програмно прописать чтоб пользователь задавал центр?

Так вам же в предыдущем , в #4 - все расписали.


А про центр - см. рисунок:

[min@y™]

Ну, так неинтересно!

[destra1j]

ну тогда я не знаю как задать радиус

[Аватар]

А как координаты центра или верхней левой точки знаешь? Радиус так же, только одно число, а не два

[destra1j]

блин а как тогда делать ее если ничего не извесно?

канвас это же какобы система координат в которой можно указать координаты центра сделать к примеру запрос х,y токи центра.Если с центром вроде понятно то как сделать радиус?Радиус по простому это расстояние от центра круга до его края с этого у меня выплывает вопрос можно ли в чем то измерить расстояние между центром и точкой в системе координат канваса?