HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
23 ноября. В 1942 году (75 лет назад) - Завершается окружение 330-тысячной немецкой группировки под Сталинградом. Гитлер отдает приказ немецким армиям под Сталинградом любой ценой удерживать свои позиции.
 
 

Turbo Pascal Documentation

Процедура SetBkColor

Модуль Graph


     Функция: Используя палитру устанавливает текущий  фоно-
вый цвет.
     Описание: SetBkColor(цвет : word)
     Примечания: SetBkColor(0) задает использование  первого
цвета  палитры  в  качестве текущего фонового цвета. Фоновые
цвета могут принимать значения в диапазоне от 0 до 15, в за-
висимости  от текущего графического драйвера и текущего гра-
фического режима. Для адаптера СGА данная  процедура  задает
цвет развертки.
     Например, в режиме СGАС1 палитра содержит четыре цвета:
черный,  красный, желтый и зеленый. SetBkColor(0) выбирает в
качестве фонового цвета черный, значение  1  задает  красный
цвет и т.д.
     Ограничения: Должен использоваться графический режим.
     Прочее:   См.  также  процедуры  GetBkColor,  GetColor,
GetPalette, SetAllPalette, SetColor, SetPalette.
     Пример:

  uses Crt, Graph;
var
   GraphDriver, GraphMode : integer;
   Palette : PaletteType
begin
   GraphDriver := Detect;
   InitGraph(GraphDriver,GraphMode,'');
   Randomize;
   If GraphResult <> grOk then
      Halt(1);
   GetPalette(Palette);
   repeat
     SetBkColor(Random(Palette.Size));
     LineTo(Random(GetMatX),Random(GetMatY));
   until KeyPressed { для выхода нажмите клавишу Вrеаk }
    CloseGraph;
  end.




HOME