F.A.Q.Pblog
1й год Форума программистов 2006-2007
Движение по окружности Shape |
|
Используя компонент TShape и компонент TTimer как спомощь вот этого примера var ang, //текущее положение в радианах spd, //скорость (на сколько радиан передвигать каждый раз) rad: Double; //радиус окружности cx, cy, //координаты центра окр. x, y: Integer; //текущие коорд. точки procedure TForm1.Timer1_Timer(Sender: TObject); begin Canvas.Pixels[x, y]:=clBtnFace; ang:=ang + spd; x:=cx + Round(Cos(ang) * rad); y:=cy + Round(Sin(ang) * rad); Canvas.Pixels[x, y]:=clBlack; end; можно заставить один Shape вращатся вокруг Второго Shapa используя Timer |
Просмотр ответов: |
| http://programmersforum.ru/showthread.php?t=2946 |
Другие вопросы:
Ищу спецификации различных форматов файлов
Данные о видеосистеме: тип видеоадаптера, тип монитора, режим монитора: разрешение, частота обновления
Работа со строками txt документa
Анимация. Движение по окружности.
Как запомнить дискриптор окна?
<<<Назад Вперёд>>>