/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/GrAnim2.pas
18 строк
512 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Графика. Использование LockDrawing-Redraw. Мерцание отсутствует uses GraphABC; begin Window.Title := 'Анимация без мерцания'; var y := 200; Brush.Color := clGreen; // Отключаем рисование в окне LockDrawing; for var x := 70 to 500 do begin Window.Clear(clWhite); Circle(x,y,50); // Перерисовываем окно из внеэранного буфера Redraw; Sleep(3); end; end.