|
Наши спонсоры:
|
|
Функция GetBkColor.
- Объявление:
Function GetBkColor : Word;
- Описание:
Возвращает текущий цвет фона.
- Замечания:
Номера цветов находятся в диапазоне от 0 до
15, в зависимости от текущего графического
драйвера и текущего графического режима.
Функция GetBkColor вернет 0, если 0-ой
компонент палитры был изменен обращением к
SetPalette или SetAllPalette.
- Пример:
{ Пример программы для функции GetBkColor }
Uses Crt, Graph;
Var Gd, Gm : Integer;
Color : Word;
Pal : PaletteType;
Begin
Gd := Detect;
InitGraph(Gd, Gm, '');
If GraphResult <> grOk Then Halt(1);
Randomize;
GetPalette(Pal);
If Pal.Size <> 1 Then
Begin
Repeat { Перебираем все цвета }
Color:=Succ(GetBkColor);
If Color > Pal.Size-1 Then Color:=0;
SetBkColor(Color);
LineTo(Random(GetMaxX), Random(GetMaxY));
Until KeyPressed;
End
Else Line(0, 0, GetMaxX, GetMaxY);
ReadLn;
CloseGraph;
End.
Вернуться к оглавлению справочника
|
|
|
|