Procedure ...

Дата добавления: 2015-01-16; просмотров: 506; Нарушение авторских прав

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

<== предыдущая лекция	\|	следующая лекция ==>
Процедуры управления экраном, окном, страницей	\|	Procedure ...