Иллюстрированный самоучитель по Turbo Pascal для начинающих

Процедуры и функции графического режима

Rectangle

Синтаксис:

procedure Rectangle{x1,y1,x2,y2: integer);

Действие:

Вычерчивает прямоугольник. Параметры x1 и y1 задают положение левого верхнего угла прямоугольника, х2 и у2 – правого нижнего угла прямоугольника.

SetLineStyle

Синтаксис:

procedure SetLineStyle(ТипЛинии: word; Образец: word; Толщина: word);

Действие:

Устанавливает стиль вычерчиваемых контуров и линий (см. процедуры Line, Circle и др.).

Параметр тип линии, в качестве которого обычно используется одна из именованных констант, определяет вид линии.

Константа Тип линии
SolidLn Сплошная, непрерывная
DottedLn Пунктирная, с постоянной длиной штрихов
CenterLn Штрих-пунктирная линия
DashedLn Пунктирная, длина штрихов чуть больше, чем у линии типа DottedLn
DashedLn Пунктирная, длина штрихов чуть больше, чем у линии типа DottedLn

Параметр толщина определяет толщину линии. Линия может быть обычной толщины (константа Normwidth) или утолщенная (константа ThickWidth).

Параметр образец используется в том случае, если процедура SetLinestyle устанавливает тип линии, определяемый программистом. Значением параметра образец должна быть четырехразрядная шестнадцатеричная константа, кодирующая отрезок линии длиной в 16 пикселов.

SetTexStyle

Синтаксис:

procedure SetTexStyle{Шрифт, Ориентация, Размер: word);

Действие:

Устанавливает шрифт, размер и ориентацию текста, выводимого процедурами outTextxY и outText. В качестве параметра шрифт можно использовать одну из перечисленных ниже констант.

Константа Значение Шрифт
DefaultFont 0 Стандартный. Каждый выводимый символ формируется в квадрате размером 8 на 8 пикселей
TriplexFont 1 Triplex шрифт
SmallFont 2 Мелкий
SansSerifFont 3 SansSerif шрифт
GothicFont 4 Готический

Примечание
В шрифтах, отличных от стандартного (DefaultFont), букв русского алфавита нет
.

Параметр Ориентация задает ориентацию выводимого процедурами outText и OutTextxY текста. Текст может быть ориентирован обычным образом (значение параметра ориентация в этом случае равно именованной константе Normal) или вертикально, т. е. снизу вверх (в этом случае значение параметра ориентация равно Vertical).

Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.