/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/WPFObjects/MovingFrameBasedTime.pas
22 строки
467 B
Mikhalkovich Stanislav
WPFObjects - ликвидация параметров по умолчанию, мешающих ускорению
19 апр 2021, 20:53
19 апр 2021, 20:53
991a62b
Код
Авторство
О чём код?
uses WPFObjects; begin var c := new CircleWPF(Window.Center, 20, Colors.Green); OnDrawFrame := dt -> begin c.MoveTime(dt); end; OnKeyDown := k -> begin case k of Key.Left: c.Direction := Direction.Left; Key.Right: c.Direction := Direction.Right; Key.Up: c.Direction := Direction.Up; Key.Down: c.Direction := Direction.Down; end; end; OnKeyUp := k -> begin c.Direction := Direction.Zero; end; end.