Графика в Делфи

[R_A_M_I_L7777777]

Помогите пожалуйста!

Нужно вобщем сделать вот что: Движение полукруга по полукругу. Очень буду блогадарен!!!

[XuTpbIu]

А сам что-то уже написал? наброски? идеи?

[R_A_M_I_L7777777]

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

А сам что-то уже написал? наброски? идеи?

Набросков нет. Не совсем в этом понимаю конечно, надеюсь на вашу помощь.
Правда есть один проект похожий http://www.rapidshare.ru/977931

[XuTpbIu]

Обхясняю тогда идею. Ставишь Пэйнтбокс.
1) Рисуешь круг в начальной точке
2) Вычисляешь координаты круга в следующей точке(полярные координаты + функция полукруга)
3) стираешь старый круг(можешь рисовать на его месте белый)
4) Рисуешь круг в новой точке
5) переход в п 2
Удачи.
пункты 2 и 3 можешь поменять местами

[R_A_M_I_L7777777]

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

Обхясняю тогда идею. Ставишь Пэйнтбокс.
1) Рисуешь круг в начальной точке
2) Вычисляешь координаты круга в следующей точке(полярные координаты + функция полукруга)
3) стираешь старый круг(можешь рисовать на его месте белый)
4) Рисуешь круг в новой точке
5) переход в п 2
Удачи.
пункты 2 и 3 можешь поменять местами

А вот саму программу сделать не сможете? А то я и так не понял. Не смогу вобщем сделать это сам. Буду примного блогадарен!

[DomiNick]

Движение полукруга по полукругу

Почему именно по полукруга по полукругу..?

Можно просто создать TImage с картинкой и двигать его по окружности...

Var Form1: TForm1; oX, oY, ang, radius: Integer;

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Form1.DoubleBuffered:=True;
oX:=Round(Form1.ClientWidth/2);
oY:=Round(Form1.ClientHeight/2);
ang:=0;
radius:=100;
End;

Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Image1.Left:=Round(oX+radius*Cos(ang/180*Pi)-Image1.Width/2);
Image1.Top:=Round(oY+radius*Sin(ang/180*Pi)-Image1.Height/2);
ang:=ang+1;
End;

[R_A_M_I_L7777777]

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

Почему именно по полукруга по полукругу..?

Можно просто создать TImage с картинкой и двигать его по окружности...

Var Form1: TForm1; oX, oY, ang, radius: Integer;

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Form1.DoubleBuffered:=True;
oX:=Round(Form1.ClientWidth/2);
oY:=Round(Form1.ClientHeight/2);
ang:=0;
radius:=100;
End;

Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Image1.Left:=Round(oX+radius*Cos(ang/180*Pi)-Image1.Width/2);
Image1.Top:=Round(oY+radius*Sin(ang/180*Pi)-Image1.Height/2);
ang:=ang+1;
End;

Интересно))) А как чкорость увеличить?

[XuTpbIu]

в строчке
ang:=ang+1;
вместо 1 напиши 2,3,4,5, <сколько душе угодно>

[R_A_M_I_L7777777]

Спасибо!!!!!!!

[DomiNick]

полукруга по полукругу

Var Form1: TForm1; oX, oY, ang, rr, radius: Integer;

Procedure ReFreshSize;
Begin
oX:=Round(Form1.ClientWidth/2);
oY:=Round(Form1.ClientHeight/2);
End;

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Form1.DoubleBuffered:=True;
radius:=100;
rr:=radius;
ang:=0;
ReFreshSize;
Image1.Canvas.Ellipse(0,0,Image1.Width,Image1.Height);
Image1.Canvas.Rectangle(-1, -1, Image1.Width+1, Round(Image1.Height/2));
End;

Procedure TForm1.FormResize(Sender: TObject);
Begin
ReFreshSize;
End;

Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Image1.Left:=Round(oX+rr*Cos(ang/180*Pi)-Image1.Width/2);
Image1.Top:=Round(oY+rr*Sin(ang/180*Pi)-Image1.Height/2);
If ang=180 Then
      If rr<=-radius Then
            Begin
            rr:=radius;
            ang:=0;
            End
      Else
            rr:=rr-3
Else
      ang:=ang+2;
End;