Правила форума
SetBkColor (процедура) (модуль Graph)Язык:
Русский
English
SetBkColor (процедура) (модуль Graph)
Устанавливает текущий цвет фона, используя палитру.
Объявление
Procedure SetBkColor(ColorNum : Word);
Режим
Real, Protected
Замечания
Номера цветов фона находятся в диапазоне от 0 до 15, в зависимости от текущего графического драйвера и текущего графического режима.
SetBkColor(N) устанавливает цвет номер N в палитре новым цветом фона. Единственое исключение - вызов SetBkColor(0), который всегда устанавливает цвет фона на черный.
Ограничения
Нужно быть в графическом режиме.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедуры SetBkColor }
uses Crt, Graph;
var
GraphDriver, GraphMode : Integer;
Palette : PaletteType;
begin
GraphDriver := Detect;
InitGraph(GraphDriver, GraphMode, 'X:\BP');
Randomize;
if GraphResult <> grOk then
Halt(1);
GetPalette(Palette);
repeat
if Palette.Size <> 1 then
SetBkColor(Random(Palette.Size));
LineTo(Random(GetMaxX), Random(GetMaxY));
until KeyPressed;
CloseGraph;
end.
var
GraphDriver, GraphMode : Integer;
Palette : PaletteType;
begin
GraphDriver := Detect;
InitGraph(GraphDriver, GraphMode, 'X:\BP');
Randomize;
if GraphResult <> grOk then
Halt(1);
GetPalette(Palette);
repeat
if Palette.Size <> 1 then
SetBkColor(Random(Palette.Size));
LineTo(Random(GetMaxX), Random(GetMaxY));
until KeyPressed;
CloseGraph;
end.
::
::
::
