| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Анимированный спрайт [Delphi, Windows]
Timer © (2003-10-17 16:16:00)Как в DelphiX сделать, чтобы спрайт прошел один цикл анимации и остановился. Заранее благодарен за ответ.
SoulBurn (2003-10-17 20:26:00) [1]Вводим переменную PAnimParam:boolean;
В процедуре DoMove пишем, например:
if PAnimParam = true then begin
AnimSpeed := 100/3000;
Animlooped := false;
AnimStart := 0;
AnimCount := 15;
if AnimPos = 14 then PAnimParam:=false;
end;
if PAnimParam = false then AnimPos:=0;
Далее, опять же например:
if isUp in DXForm.DXInput.States then //Если нажата клавиша вверх
begin
PAnimParam := true;
end;
Вот, вроде все, по-моему достаточно просто...
Timer (2003-10-17 18:02:00) [2]Когда создавал объект писал. Но нужно во время игру иногдазапускать анимацию.
SoulBurn (2003-10-17 17:51:00) [3]Там же где пишешь AnimCount, AnimSpeed и т.д.
Loop:=false;
| |
