|
#1
|
|||
|
|||
Требуется помощь!
Не могу разобраться вообще с анимацией в делфи
задача состоит в том чтобы прямоугольник(желтый) с вписанной в нем окружностью (зеленой) вращался по окружности и вокруг своей оси одновременно! знаю что делать через таймер как то надо а как вообще не знаю( умею ток в канве рисовать и то фигова а завтр над сдать эту лабу а то отчислят( |
#2
|
||||
|
||||
внимание подсказка:
Для того чтобы вращать точку вокруг какой-то оси нужно нужно изменять ее КООРДИНАТЫ!!! x=x_центр+радиус_вращения*cos(a); y=y_центр+радиус_вращения*sin(a); х_центр/y_центр -это координаты оси зная это подумайте как все это организовать с прямоугольником(у него ч-е точки которые надо вращать) |
#3
|
|||
|
|||
Цитата:
на данный момент имею ток Код:
procedure TForm1.Button3Click(Sender: TObject); begin x:=100; y:=100; x1:=150; y2:=150; With Form1.Canvas do begin Brush.Color:=clRed; Pen.Color:=clRed; Rectangle(x,y,x1,y2); Brush.Color:=clBlue; Pen.Color:=clBlue; Ellipse(x,y,x1,y2); end; end; |
#4
|
|||
|
|||
Цитата:
|
Этот пользователь сказал Спасибо robt за это полезное сообщение: | ||
DJ PhoeniX (24.09.2012)
|
#5
|
|||
|
|||
Цитата:
|
#6
|
||||
|
||||
Цитата:
|
#7
|
|||
|
|||
Цитата:
|
Этот пользователь сказал Спасибо robt за это полезное сообщение: | ||
DJ PhoeniX (24.09.2012)
|