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

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

Procedure ...

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, и никаких изменений в палитре не происходит.

12.3.2 Функции управления цветом и палитрой

Function ...

GetColor : Word;
—	возвращает номер цвета в палитре, заданного последней процедурой SetColor.
GetBKColor : Word;
—	возвращает номер текущего цвета фона в палитре.
GetMaxColor : Word;
—	возвращает максимальный номер цвета палитры (нумерация начинается с 0).
GetPaletteSize : Word;
—	возвращает количество цветов палитры.