/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/anim1.pas
16 строк
294 B
Бондарев Иван
bug fix #585
17 дек 2017, 14:40
17 дек 2017, 14:40
fb60f88
Код
Авторство
О чём код?
uses GraphWPF; begin Window.Title := 'Простая анимация'; var x := 30; Brush.Color := Colors.Beige; Circle(x,50,20); loop 600 do begin Sleep(10); Window.Clear; x += 1; Circle(x,50,20); Window.Title := '' + (Milliseconds div 100)/10; end; end.