SetBkColor

Nastaví aktuální barvu pozadí pomocí palety.

Deklarace

procedure SetBkColor(ColorNum: Word);

Režim

Reálný, Chráněný

Poznámky

Barvy pozadí jsou v rozsahu od 0 do 15, v závislosti na aktuálním grafickém driveru a aktuálním grafickém režimu. Na CGA SetBkColor nastaví barvu pro vyplňování metodou flood.

SetBkColor(N) učiní N-tou barvu v paletě novou barvou pozadí. Jedinou vyjímkou je SetBkColor(0), což vždy nastaví barvu pozadí na černou.

Omezení

Je nutno být v grafickém režimu.

Viz také

GetBkColor

GetColor

GetPalette

SetAllPalette

SetColor

SetPalette

Vzorový příklad

{Setbkcol.PAS}
{Vzorový příklad pro proceduru SetBkColor.}
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
    if Palette.Size <> 1 then
      SetBkColor(Random(Palette.Size));
    LineTo(Random(GetMaxX),Random(GetMaxY));
  until KeyPressed;
  CloseGraph;
end.