Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Программирование на Pascal / Delphi / Лекции по Паскалю2 / Иллюстрации к Лекции 8 по информатике.doc
Скачиваний:
54
Добавлен:
02.05.2014
Размер:
1.4 Mб
Скачать

Процедуры управления цветом и палитрой

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 при вычерчивании линии.