Действия с пером(стиль и цвет рисования)

Поможем в ✍️ написании учебной работы

Имя

Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой

Нажимая кнопку "Продолжить", я принимаю политику конфиденциальности

Формат записи

Как работает

SetPenColor(color);

Устанавливает цвет пера, задаваемый параметром color.

SetPenWidth(w);

Устанавливает ширину пера, равную w пикселям.

SetPenStyle(ps);

Устанавливает стиль пера (ps), который задается следующими именованными константами:

Значение	Описание	Вид линии
psSolid	Сплошная линия	_______
psClear	Отсутствие линии
psDash	Штриховая линия	- - - - - - -
psDot	Пунктирная линия	………...
psDashDot	Штрихпунктир-ная линия	-.-.-.-.-.-.-
psDashDotDot	Линия – штрих и два пунктира	-..-..-..-..-

Действия с кистью (стиль и цвет заливки фигур)

Формат записи

Как работает

SetBrushColor(color);

Устанавливает цвет кисти, задаваемый параметром color (смотри таблицу цветов).

SetBrushStyle(bs);

Устанавливает стиль кисти ( bs ), который задается следующими именованными константами:

Константа	Стиль заливки
bsSolid	Сплошная заливка текущим цветом.
bsClear	Без заливки
bsCross	Штриховка в клетку.
bsDiagCross	ххх штриховка
bsHorizontal	Штриховка горизонтальными линиями
bsVertical	Штриховка вертикальными линиями
bsBDiagonal	/ / / штриховка
bsFDiagonal	\ \ \ штриховка

Программа рисования линий:

Program Gr01;

Uses GraphABC;

Begin

SetWindowSize(556,456); {Устанавливает размер окна}

SetPenColor(RGB(0,0,255));

Line(0,0, WindowWidth, WindowHeight);

Line(0,WindowHeight, WindowWidth, 0)

end.

Программа рисования окружности :

program z3;

uses graphABC;

Begin

setpencolor(clBlue); {устанавливает цвет рисования окружности - синий}

setpenstyle(psdot); {устанавливает стиль линии рисования окружности – пунктирная линия}

setpenwidth(3); {устанавливает ширину линии рисования окружности }

setbrushstyle(bsSolid ); {устанавливает стиль заливки окружности}

setbrushcolor(clred); {устанавливает цвет заливки окружности}

circle(225,160,50); {рисует окружность}

end.

Программа рисования треугольника, эллипса и прямоугольника

program z4;

uses graphABC;

Begin

setpencolor(clpurple); {устанавливает цвет рисования линий - фиолетовый}

line(100,100,400,300); {рисует линию от точки (100,100) до точки (400,300)}

line(400,300,20,300); {рисует линию от точки (400,300) до точки (20,300)}

line(100,100,20,300); {рисует линию от точки (100,100) до точки (20,300)}

floodfill(150,250,clBlue);{заливает полученную замкнутую область (в программе

треугольник) синим цветом, начиная с точки

(150,250}

SetBrushStyle(bsHatch);

{SetBrushHatch(bhVertical);} {устанавливает стиль штриховки

вертикальными линиями}

DrawEllipse(400,100,600,200);

FillEllipse(400,100,600,200);

{Заполняет и рисует прямоугольник}

FillRect(400,300,600,480);

DrawRectangle(400,300,600,480);

end.

Действия со шрифтом

Формат записи

Как работает

SetFontColor(color);

Устанавливает цвет шрифта (смотри таблицу цветов).

SetFontSize(sz);

Устанавливает размер шрифта в пунктах.

SetFontName(s);

Устанавливает наименование шрифта. По умолчанию установлен шрифт, имеющий наименование MS Sans Serif. Наиболее распространенные шрифты – это Times New Roman, Arial и Courier New. Наименование шрифта можно набирать без учета регистра.

SetFontStyle(fs);

Устанавливает стиль шрифта ( fs ), который задается следующими именованными константами:

Константа	Стиль шрифта
fsNormal	обычный
fsBold	жирный
fsItalic	наклонный
fsBoldItalic	жирный наклонный
fsUnderline	подчеркнутый
fsBoldUnderline	жирный подчеркнутый
fsItalicUnderline	наклонный подчеркнутый
fsBoldItalicUnderline	жирный наклонный подчеркнутый

program z1; uses graphABC; begin setpencolor(clred); setbrushcolor(clnavy); ellipse(40,150,250,210); setbrushcolor(clyellow); ellipse(340,150,550,210); setbrushcolor(clred); circle(295,190,25); setbrushcolor(clolive); ellipse(265,225,325,425); setbrushcolor(cllime); ellipse(265,5,325,150); end.

program z2; uses graphABC; begin setwindowsize(500,500); setpenwidth(3); setbrushcolor(clfuchsia); circle(225,160,50); line(225,160,225,180); line(210,190,240,190); line(225,210,225,250); line(100,100,200,260); line(200,260,400,260); line(210,350,200,480); line(240,350,250,480); rectangle(200,230,250,350); setbrushcolor(cllime); fillrect(0,480,500,500); setbrushcolor(clwhite); circle(205,150,10); circle(245,150,10); end.

Дата: 2019-03-05, просмотров: 213.

⇐ Предыдущая 1 23