программа по растровой графике в delphi, как сделать чтобы круги строились по циклам??

[Stilet]

центр то посчитать смогу

Ану-ка показывай.
Раз сможешь считать центр, то и диаметр от него посчитать можешь.
Кстати, я бы действовал по другому. Определил переменки x,y - уентр эллипса. В первые два параметра записал x-r,y-r где r - радиус, а во вторые два с плюсом, тогда получишь круг с нужным радиусом в нужной точке по центру.

[Alexxx_screen]

ну вот в той программе исходной код которой писал в первом сообщении центр координат в точке 60;60
говорю же я не понимаю что куда написать надо, исходную то с горем пополам написал

[Stilet]

Ну правильно. Верхний левый угол это 60 минус радиус,
а правый нижний - 60+радиус.
первые два параметра ellipse это координаты верхнего левого угла а вторые два - правого нижнего.

[Alexxx_screen]

ну где какие координаты я знаю, а как задать чтобы все круги имели один центр но были рандомного радиуса, ка переделать код который писал "notHaker" под то что необходимо

[denisbrain]

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

procedure TForm1.FormPaint(Sender: TObject);
begin
    with Canvas do
    begin
        Canvas.Pen.Width := 2;
        Canvas.Pen.Color := clBlack;
        Rectangle(0,0,120,120);
        Ellipse(10,10,110,110);
        Ellipse(35,35,85,85);
        Ellipse(50,50,70,70);
    end;
end;
end.

вот код по которому строится 3 круга по координатам, а как переделать ее чтобы можно было выбирать количество кругов и они строились по циклу

пример проги - редактор файла

[Alexxx_screen]

чет я не понимаю чем мне эта программа поможет

[Stilet]

		
Randomize;
for i := 1 to dwRepeatCount do
		begin
		`	dwRandomX :=60;
			dwRandomY := 60;
                        Rad=Random(1000);
			Ellipse(dwRandomX-Rad , dwRandomY-Rad, dwRandomX + Rad, dwRandomY + Rad);
		end;

Где Rad:integer;

[notHaker]

procedure TForm1.Button1Click(Sender: TObject);
const
	RECT_W = 120;
	RECT_H = 120;
	MAX_DMTR = 120;
var
	dwRepeatCount : integer;
	dwDmtr, dwXOffset, dwYOffset : integer;
begin
	dwRepeatCount := StrToInt(Edit1.text);
	Canvas.Pen.Width := 2;
	Canvas.Pen.Color := clBlack;
	with Canvas do
	begin
		Rectangle(0,0,RECT_W,RECT_H);
		Randomize;
		for i := 1 to dwRepeatCount do
		begin
		`	dwDmtr := random(MAX_DMTR);
			dwXOffset := (RECT_W - dwDmtr) div 2;
			dwYOffset := (RECT_H - dwDmtr) div 2;
			Ellipse(dwXOffset , dwYOffset, dwXOffset + dwDmtr, dwYOffset + dwDmtr);
		end;
	end;
	end;
end.

[Alexxx_screen]

вот оно! спасибо всем большое, особенно "notHaker" с меня пиво))