Текущий архив: 2007.09.02;
Скачать: CL | DM;

Вниз

IMAGE   Найти похожие ветки 

← →
Aika   (2007-08-12 22:38) [0]

мне нужно нарисовать круг в image.но при этом у меня x,y(центр),r(радиус) задается на форме,т.е в эдитах.и еще эти x,y,r заносятся в базу.и при щелчке по любой записи в dbgride в image должен прорисовываться круг. помогите пожалуйста нартсовать мне этот круг.

---

← →
homm ©   (2007-08-12 22:55) [1]

> помогите пожалуйста нартсовать мне этот круг.


procedure TForm1.DrawClick(Sender: TObject);
var
 X, Y, r: Integer;
begin
 X := StrToInt(XEdit.Text);
 Y := StrToInt(YEdit.Text);
 r := StrToInt(rEdit.Text);
 Image1.Canvas.Ellipse(X-r, Y-r, X+r, Y+r);
end;

Для счлучая из базы вместо «X := StrToInt(XEdit.Text);» береш данные из базы.

---

Страницы: 1 вся ветка

Текущий архив: 2007.09.02;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.018 c