12.3 Управление цветом и палитрой

SetColor ( Color : Word );

—

устанавливает текущий цвет, которым будут изображаться контуры фигур и тексты.

Color—

устанавливаемый цвет (номер цвета из палитры).

В модуле Graphопределены следующие константы:

Сonst

Black = 0 ; { черный }

Blue = 1 ; { синий }

Green = 2 ; { зеленый }

Cyan = 3 ; { голубой }

Red = 4 ; { красный }

Magenta = 5 ; { фиолетовый }

Brown = 6 ; { коричневый }

LightGray = 7 ; { светло-серый }

DarkGray = 8 ; { темно-серый }

LightBlue = 9 ; { светло-синий }

LightGreen = 10 ; { светло-зеленый }

LightCyan = 11 ; { светло-голубой }

LightRed = 12 ; { светло-красный }

LightMagenta = 13 ; { светло-фиолетовый }

Yellow = 14 ; { желтый }

White = 15 ; { белый }

SetBKColor ( Color : Word );

—

устанавливает цвет фона экрана.

Color—

устанавливаемый цвет (номер цвета из палитры).

GetDefaultPalette ( var Palette : PaletteType );

—

возвращает параметры исходной палитры, заданной во время выполнения процедуры InitGraph.

Palette —

переменная типа PaletteType, в которую процедура записывает параметры палитры:

Type

PaletteType = Record

Size : Byte ;

Colors : array [0..MaxColors] of ShortInt

end ;

GetPalette ( var Palette : PaletteType );

—

возвращает текущую палитру и количество цветов в ней.

Palette —

переменная типа PaletteType, в которую процедура записывает параметры палитры.

SetAllPalette ( var Palette );

—

меняет все цвета палитры на заданные.

Palette —

переменная без типа, в первом байте которой помещается число N— количество цветов в палитре, а в последующихNбайтах — коды задаваемых цветов, принимающих значения от -1 до 15; если задана величина -1, исходный цвет остается без изменения.

В случае аварийной ситуации процедура устанавливает код ошибки: -11, и никаких изменений в палитре не происходит.

SetPalette ( ColorNum : Word ; Color : ShortInt ) ;

—

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

ColorNum —

номер компоненты в палитре.

Color —

задаваемый цвет.

В случае аварийной ситуации процедура устанавливает код ошибки: -11, и никаких изменений в палитре не происходит.

GetColor : Word;

—

возвращает номер цвета в палитре, заданного последней процедурой SetColor.

GetBKColor : Word;

—

возвращает номер текущего цвета фона в палитре.

GetMaxColor : Word;

—

возвращает максимальный номер цвета палитры (нумерация начинается с 0).

GetPaletteSize : Word;

—

возвращает количество цветов палитры.