/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/ABCObjects/Sprites/gr_SpriteUsing.pas
27 строк
773 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Переключение состояний спрайта щелчком мыши uses GraphABC,ABCSprites,ABCObjects,Events; var s: SpriteABC; t: TextABC; procedure MyMouseDown(x,y,mb: integer); begin if s.PtInside(x,y) then begin // Переход к следующему состоянию спрайта if s.State<s.StateCount then s.State := s.State + 1 else s.State := 1; t.Text := 'Состояние спрайта: ' + s.StateName; end; end; begin Window.Title := 'Щелкните мышью на спрайте'; SetWindowSize(400,300); CenterWindow; s := new SpriteABC(150,100,'spr.spinf'); t := new TextABC(55,30,15,'Состояние спрайта: '+s.StateName,clRed); OnMouseDown := MyMouseDown; end.