IMAGE [D7, WinXP]
Aika © (2007-08-12 22:38:00)
мне нужно нарисовать круг в image.но при этом у меня
x,y(центр),r(радиус) задается на форме,т.е в эдитах.и еще эти x,y,r
заносятся в базу.и при щелчке по любой записи в dbgride в image
должен прорисовываться круг. помогите пожалуйста нартсовать мне
этот круг.
homm (2007-08-12 22:55:00) [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);» береш
данные из базы.
Наверх 
ЧАТ |
Орешник |
|
