Базовые процедуры.

Дата добавления: 2015-06-12; просмотров: 445; Нарушение авторских прав

Процедура	Формат	Действие
SetColor	SetColor(a: word);	Устанавливает цвет, которым будет осуществляться рисование
SetBkColor	SetBkColor(a: word);	Устанавливает цвет фона
SetFillStyle	SetFillStyle(a, b: word); a - стиль закраски, b - цвет	Устанавливает стиль и цвет закраски
SetLineStyle	SetLineStyle(a, b, c: word); а - стиль линии, b- образец построения линии (может устанавливаться пользователем), с-толщина линии	Устанавливает стиль и толщину линии
SetTextStyle	SetTextStyle(a, b, c: word);	Устанавливает шрифт, стиль и размер текста
SetFillPattern	SetFillPattern(Pattern: FillpatternType; Color: word); Pattern - маска	Выбирает шаблон заполнения, определенный пользователем
ClearDevice	ClearDevice;	Очищает экран и устанавливает текущий указатель в начало
SetViewPort	SetViewPort(x1, y1, x2, y2: integer, Clip: boolean);	Устанавливает текущее окно для графического вывода
ClearViewPort	ClearViewPort	Очищает окно
PutPixel	PutPixel(a, b, c: integer);	Рисует точку цветом с в (x, y)
Line	Line(x1, y1, x2, y2: integer);	Рисует линию от (x1,y1) к (x2,y2)
Rectangle	Rectangle(x1, y1, x2, y2: integer);	Рисует прямоугольник с диагональю от (x1,y1) к (x2,y2)
Bar	Bar(x1, y1, x2, y2: integer);	Рисует закрашенный прямоугольник
Bar3D	Bar3D(x1, y1, x2, y2, d: integer; a: boolean);	Рисует трехмерную полосу (параллелепипед)
Circle	Circle(x, y, r: word);	Рисует окружность радиуса r с центром в точке (x,y)
Arc	Arc(x, y, a, b, R: integer); a, b- начальный и конечный углы в градусах	Рисует дугу из начального угла к конечному, используя (x,y) как центр
Ellipse	Ellipse(x, y, a, b, Rx, Ry: integer) a, b - начальный и конечный углы в градусах	Рисует эллиптическую дугу от начального угла к конечному, используя (x,y) как центр
FillEllipse	FillEllipse(x, y, Rx, Ry: integer); Rx, Ry - вертикальная и горизонтальная оси	Рисует закрашенный эллипс
MoveTo	MoveTo(x, y: integer);	Передвигает текущий указатель в (x,y)
MoveRel	MoveRel(x, y: integer);	Передвигает текущий указатель на заданное расстояние от текущей позиции на x по горизонтали и на y по вертикали
OutText	OutText(text: string);	Выводит текст от текущего указателя
OutTextxy	OutTextxy(x, y: integer; text: string);	Выводит текст из (x, y)
PieSlice	PieSlice(x, y: integer, a, b, r: word);	Рисует и заполняет сектор
FloodFill	FloodFill (x,y,: integer; цвет: word);	Заполняет ограниченную область, используя текущий шаблон и цвет заполнения
Sector	Sector (x, y, a, b, Rx, Ry: integer); a, b - начальный и конечный углы в градусах	Рисует и заполняет сектор эллипса

<== предыдущая лекция	\|	следующая лекция ==>
Система координат.	\|	Урок №8