/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
ReleaseGenerators/ForPerformanceOptimization.pas
40 строк
790 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Модуль ABCObjects. Изменение свойств объекта uses ABCObjects,GraphABC; const delay = 300; procedure Pause; begin Sleep(delay); end; var r: RectangleABC; z: StarABC; begin Window.Title := 'ABCObjects: свойства графических объектов'; z := new StarABC(Window.Center.X,Window.Center.Y,70,30,6,Color.Green); r := new RectangleABC(100,100,200,100,Color.Gold); Pause; r.Center := Window.Center; Pause; r.Height := 70; Pause; r.Width := 220; Pause; z.Radius := 150; Pause; z.Color := Color.LightCoral; Pause; z.Count := 5; Pause; r.Text := 'PascalABC.NET'; r.Color := Color.Gainsboro; Pause; r.BorderWidth := 3; r.BorderColor := Color.Blue; Pause; r.Center := Window.Center; end.