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


 
В этот день много лет назад...
16 января. В 1991 году (28 лет назад) - Начинается операция "Буря в пустыне" объединенных войск более чем 30 государств против Ирака с целью вытеснить его войска из Кувейта. Наступление санкционировано ООН. Войска союзников составляют более 700 тыс. солдат, из них около 500 тыс. - вооруженные силы США. С иракской стороны участвуют 550 тыс. человек. Операция начинается массированными авианалетами на цели Ирака. В ответ Ирак наносит ракетный удар по Израилю, выпускает море нефти в Персидский залив и поджигает кувейтские нефтяные вышки. 28 января военные действия будут прекращены ввиду согласия Ирака выполнить резолюции ООН. Войска союзников потеряют 150 человек, Ирак - примерно в тысячу раз больше.
 
 

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