Собственно сижу вот ночью и никак не получается сделать 1 задачку , вот условие : Пользователь должен задать координаты центра окружности (X,Y) и Радиус ® окружности , вписать в неё квадрат , в квадрат - новую окружность , а в новую окружность равносторонний треугольник.
Пока получается только по заданным координатам и радиусу отрисовать окружность :
procedure TForm1.Button1Click(Sender: TObject);
begin
x:=StrToInt(edit1.Text);
y:=StrToInt(edit2.Text);
r:=StrToInt(edit3.Text);
with listbox1.canvas do
begin
Arc(x-r,y-r,x+r,y+r,x-r,y-r,x-r,y-r);
end;
end;
как отрисовать остальные объекты непойму может быть кто то уже решал подобное ? читал FAQ и DRKB , но ничего подходящего не нашёл