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);» береш данные из базы.

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