Текущий архив: 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.048 c
