- •Приложение: Процедуры управления графическим режимом
- •8.1. Инициализация и закрытие графического режима
- •Переключение текст — графика — текст
- •Обработка ошибок
- •Система координат
- •Перемещение текущего указателя
- •Экран и окно в графическом режиме
- •Вывод точки
- •Вывод линии
- •8.3. Работа с текстом Вывод текста
- •Вывод численных значений
- •Установка шрифта.
- •Выравнивание текста
- •SetTextJustify(Horiz,Vert:word);
- •8.4. Установка цвета и палитры
- •8.5. Построение графических фигур Построение прямоугольников
- •Построение многоугольников
- •Построение дуг и окружностей
- •Атрибуты графических фигур Установка цвета и стиля.
- •Коэффициент сжатия.
- •8.6. Работа с фрагментами изображения
- •GetImage (XI, Yl, x2, y2: Integer; var BitMap);
- •Приложение Процедуры управления графическим режимом
- •Функции управления графическим режимом
- •Процедуры управления экраном, окном, страницей
- •Процедуры управления цветом и палитрой
- •Функции управления цветом и палитрой
- •Функции работы с точками
- •Процедуры работы с точками
- •Процедуры работы с линиями
- •Процедуры построения фигур из линий
- •Процедуры построения криволинейных фигур
- •Процедуры работы с текстом
- •Функции работы с текстом
- •Процедуры обмена с памятью
- •Функции обмена с памятью
Процедуры управления цветом и палитрой
GetDefaultPalette (var Palette: PaletteType): PaletteType; - возвращает запись описания палитры типа PaletteType, содержащую палитру Palette, которая инициализирована драйвером при вызове процедуры InitGraph.
GetPalette (var Palette: PaletteType); - возвращает текущую палитру Palette и ее размер.
SetAllPalette (var Palette); - изменяет все цвета палитры на указанные.
Параметр Palette является нетипизованным параметром. Первое его слово представляет собой длину палитры. Следующие n байт заменяют текущие цвета палитры. Каждый цвет может принимать значение от -1 до 15. Значение -1 не изменяет предыдущее значение записи.
SetBkColor (Color: word); - используя палитру, устанавливает текущий фоновый цвет.
SetColor (Color: word); - используя палитру, устанавливает текущий цвет рисунка согласно значению параметра Color.
SetPalette (N: Word; Color: shortint); - изменяет один из цветов палитры в соответствии с параметрами N (номер цвета) и Color (цвет).
SetRGBPalette (N, RedValue, GreenValue, BlueValue: integer); - позволяет изменить записи палитры для драйверов IBM 8514 и VGA.
Параметр N задает запись палитры, которую нужно загрузить, a RedValue, GreenValue и BlueValue — цвета, составляющие запись палитры. Процедура SetRGBPalette может использоваться только при наличии графического адаптера VGA и драйвера IBM 8514.
Функции управления цветом и палитрой
GetBkColor: word; - возвращает текущее значение фонового цвета.
GetColor: word; - возвращает текущее значение основного цвета, установленное при предыдущем успешном обращении к процедуре SetColor.
GetMaxColor: word; - возвращает наибольшее значение цвета, которое можно передать процедуре SetColor.
GetPaletteSize: integer; - возвращает размер таблицы палитры цветов. Данная функция показывает, сколько записей палитры можно задать для текущего графического режима. Например, при использовании цветного режима и адаптера EGA функция возвратит значение 16.
Функции работы с точками
GetMaxX: integer; - возвращает для текущего графического режима и драйвера координату самого правого столбца (разрешение по X).
GetMaxY: integer; - возвращает для текущего графического режима и драйвера координату самой нижней строки (разрешение по Y).
GetPixel (X, Y: integer): word; - получает значение цвета элемента изображения в точке X,Y.
GetX: integer; - получение координаты X текущей позиции на экране.
GetY: integer; - получение координаты Y текущей позиции на экране.
Процедуры работы с точками
PutPixel (X, Y: integer; Pixel: word); - строит элемент изображения в точке (X,Y), цвет которой определяется параметром Pixel.
Процедуры работы с линиями
GetLineSettings (var Linelnfo: LineSettingsType); - возвращает текущий стиль, образец и толщину линии, установленные процедурой SetLineStyle.
Line (XI, Yl, X2, Y2: integer); - рисует прямую линию из точки (X1,Y1) в точку (X2,Y2), толщина и тип которой задаются процедурой SetLineStyle, а цвет устанавливается процедурой SetColor. Текущий указатель своего положения не изменяет.
LineRel (dX,dY: integer); - проводит прямую в точку, заданную относительным расстоянием (Dx,Dy) от текущего указателя.
LineTo (X, Y: Integer); - Рисует прямую линию из точки, в которой находится текущий указатель, в точку (X,Y). Толщина и тип линии задаются процедурой SetLineStyle, а цвет устанавливается процедурой SetColor. Текущий указатель перемещается в конечную точку.
MoveRel (dX, dY: integer); - перемещает текущий указатель на расстояние, заданное относительными координатами от его текущей позиции.
MoveTo (X, Y: integer); - перемещает текущий графический указатель в точку (X,Y).
SetLineStyle (SType:word; Pattern: word; S: word); - устанавливает текущую толщину S и тип линии SType.
SetWriteMode (Mode: integer); - устанавливает режим записи Mode при вычерчивании линии.