Нарисовать Ellipse по значениям из...

[Apollo_13]

Здравствуйте, у меня проблема такого характера:
Есть 'Image1' на него с помощью мыши наносится точка, каждый раз при нанесении точки должен рисоватся круг/радиус вокруг этой точки (параметры которого взяты из таблицы (db), тоесть в этой таблице много объектов и у каждого из них есть свои значения). Короче я пытался сделать что-то вроде этого:

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
var r1,r2: integer;
begin
if CheckBox3.Checked then
begin
// красная точка
Image1.Canvas.Brush.Style:=bsClear;
Image1.Canvas.Pen.Color:=clRed;
Image1.Canvas.Pen.Width:=5;
Image1.Canvas.Ellipse(X-2,Y-2,X+2,Y+2);
Image1.Canvas.TextOut(X-8,Y-18,'ИШ');
RichEdit1.Lines.Add('- Источник шума ('+IntToStr(X)+';'+IntToStr(Y)+')') ; // координаты точки

// радиус размеры которого зависят от параметров выбранного объекта
r1:=Form3.Table1.FieldValues['Value1'];
r2:=Form3.Table1.FieldValues['Value2'];
Image1.Canvas.Pen.Width:=2;
Image1.Canvas.Ellipse...(что там дальше мне уже неизвестно)
end;
end;

Помогите PLZ!

[Jeni]

Разве там не должно быть практически тоже самое, что и в первом случае: Image1.Canvas.Ellipse(x-r1, y-r2, x+r1, y+r2) ?

[mutabor]

а помоему это у него два радиуса r1, r2
во первых по названию подходит, во вторых ему надо круг (радиус) зачем тогда ширину и высоту отдельно хранить
Тогда вопрос зачем их два?

Имея радиус, тебе нужно узнать стороны квадрата (первый класс вторая четверть), в который вписан круг с этим радиусом, и подставить координаты углов квадрата в функцию Ellipse

[Apollo_13]

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

Разве там не должно быть практически тоже самое, что и в первом случае: Image1.Canvas.Ellipse(x-r1, y-r2, x+r1, y+r2) ?

Все работает спасибо!