Функция GetBkColor
Модуль Graph
Возвращает текущий цвет фона.
Объявление:
Function GetBkColor : Word;
Режим:
Замечания:
Номера цветов находятся в диапазоне от 0 до 15, в зависимости от текущего
графического драйвера и текущего графического режима.
Функция GetBkColor вернет 0, если 0-ой компонент палитры был изменен
обращением к SetPalette или SetAllPalette.
Пример:
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.
См. также: