Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Функция 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.



Вернуться к оглавлению справочника