/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!Tutorial/04_Graphics/Gr4.pas
22 строки
566 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Графика. Draw и Fill - процедуры uses GraphABC; begin Window.Title := 'Draw и Fill - процедуры'; for var i := 1 to 100 do begin Pen.Color := clRandom; var x := Random(Window.Width-100); var y := Random(Window.Height-100); DrawRectangle(x,y,x+Random(100),y+Random(100)); Sleep(30); end; for var i := 1 to 100 do begin Brush.Color := clRandom; var x := Random(Window.Width-100); var y := Random(Window.Height-100); FillRectangle(x,y,x+Random(100),y+Random(100)); Sleep(30); end; end.