/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/ABCObjects/gr_RealNumber.pas
20 строк
427 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
uses ABCObjects,GraphABC; const /// отступ по оси x zx = 100; /// отступ по оси y zy = 50; begin Window.IsFixedSize := True; Window.Title := 'Секундомер'; var r := new RoundRectABC(zx,zy,Window.Width-2*zx,Window.Height-2*zy,100,clMoneyGreen); r.BorderWidth := 5; r.BorderColor := clGreen; for var i:=1 to 1000 do begin r.RealNumber := i/10; Sleep(100); end; end.