/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/ABCObjects/gr_Text.pas
17 строк
325 B
Mikhalkovich Stanislav
AutoInsertCode - малые исправления
07 авг 2019, 15:24
07 авг 2019, 15:24
49334c7
Код
Авторство
О чём код?
// Клонирование графических объектов uses ABCObjects,GraphABC; var bt: TextABC; begin var x := 224; bt := new TextABC(60,110,110,'Hello!',RGB(x,x,x)); while x>32 do begin Sleep(40); x -= 32; bt := bt.Clone; bt.Color := RGB(x,x,x); bt.MoveOn(7,7); end; end.