/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/Gr3.pas
14 строк
412 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Графика. Свойства кисти и пера uses GraphABC; begin Window.Title := 'Свойства кисти и пера'; Pen.Color := Color.Red; Pen.Width := 3; Pen.Style := psDashDot; Brush.Style := bsHatch; Brush.Color := Color.Green; Brush.Hatch := bhDiagonalBrick; Brush.HatchBackgroundColor := Color.Bisque; Rectangle(20, 20, Window.Width - 20, Window.Height - 20); end.