/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/Controls/cc8_MoveObject.pas
28 строк
776 B
Mikhalkovich Stanislav
MoveOn -> MoveBy
16 ноя 2020, 20:04
16 ноя 2020, 20:04
562699d
Код
Авторство
О чём код?
// Модуль Controls - кнопки управления перемещением + клавиатура uses WPFObjects,Controls; begin Window.Title := 'Модуль Controls - кнопки управления перемещением + клавиатура'; LeftPanel; var c := new CircleWPF(GraphWindow.Center,30,Colors.Blue); OnKeyDown := k -> begin case k of Key.Left: c.MoveBy(-2,0); Key.Right: c.MoveBy(2,0); Key.Up: c.MoveBy(0,-2); Key.Down: c.MoveBy(0,2); end; end; var l := Button('Left'); var r := Button('Right'); var u := Button('Up'); var d := Button('Down'); l.Click := ()->c.MoveBy(-2,0); r.Click := ()->c.MoveBy(2,0); u.Click := ()->c.MoveBy(0,-2); d.Click := ()->c.MoveBy(0,2); end.