Процедура Sector (X, Y: Integer; StEngle, EndEngle: Word; XR, YR: Word) рисует сектор эллипса, который будет залит цветом по текущему шаблону.
Процедура PieSlice (X, Y: Integer; StEngle, EndEngle, Radius: Word) рисует сектор эллипса, который будет залит текущим узором.
Процедура FillEllipse (X, Y: Integer; XR, YR: Word) рисует контур эллипса текущим цветом и заполняет ограниченную контуром область экрана текущим узором.
Процедура FloodFill (X, Y: Integer; Border: Word) заполняет заданным с помощью SetFillStyle стилем область, расположенную либо внутри замкнутого контура, либо вне его. (X, Y)-координаты точки внутри или вне замкнутого контура, Border-цвет контура.
Работа с текстом
Отображение текста в графическом режиме имеет ряд отличий от текстового режима. Основное отличие состоит в том, что в графическом режиме все действия производятся только со строковыми константами и переменными. Вся числовая информация должна предварительно преобразовываться в символьную. Второе отличие - в возможности использования различных шрифтов.
Процедура OutText (TextString: String) выводит на экран строку текста начиная с текущего положения курсора
|
|
Процедура OutTextXY (X, Y: Integer;Text: String) выводит на экран строку текста, начиная с точки с координатами (X, Y).
Для вывода числовых данных нужно преобразовать число Number в строку Text с помощью процедуры STR(Number, Text).
В комплект поставки пакета Турбо Паскаль включается набор штриховых шрифтов. Файлы этих шрифтов имеют расширение.CHR. В штриховых шрифтах при построении символа используется не матричный, а векторный способ, что позволяет манипулировать шрифтами без ухудшения качества изображения. Стандартный набор включает четыре шрифта, а, кроме того, доступен системный матричный шрифт 8х8 для графических режимов. Для обозначения шрифтов используются зарезервированные константы
DefaultFont | Матричный шрифт 8х8 (по умолчанию) | |
TriplexFont | Полужирный шрифт | |
SmallFont | Тонкий шрифт | |
SansSerifFont | Рубленый шрифт | |
GothicFont | Готический шрифт |
По умолчанию установлен матричный шрифт 8х8. Для установки шрифта используется процедура
SetTextStyle (Font: Word; Direction: Word; CharSize: Word)
где Font задает шрифт,
Direction- ориентацию и направление вывода символов: если значение Direction равно 1, то каждый символ будет повернут на 90° в направлении против часовой стрелки и отображение будет производиться снизу вверх; при значении Direction равном 1 отображение текста будет производиться по горизонтали слева направо.
CharSize- размер отображаемых символов.
При выводе текстовых строк на экран можно задавать расположение следующей отображаемой строки относительно текущего положения указателя с помощью процедуры
SetTextJustify (Horiz, Vert: Word)
|
|
Размещение строк и символов на экране задается с помощью параметров Horiz и Vert, которые могут иметь следующие значения:
Horiz | Значение | Назначение |
LeftText | Объявить текущую позицию указателя левой границей строки | |
CenterText | Центрировать строку относительно текущей позиции указателя | |
RightText | Объявить текущую позицию указателя правой границей строки | |
Vert | Значение | Назначение |
BottomText | Размещать символы ниже позиции указателя | |
CenterText | Центрировать символы по вертикали относительно текущей позиции указателя | |
TopText | Размещать символы выше позиции указателя |