Zobrazení zdroje stránky GetBkColor

Vrací index aktuální barvy pozadí v paletě.

;Deklarace
 function GetBkColor: Word;

;Režim
:Reálný, Chráněný

;Poznámky
:V závislosti na aktuálním driveru a aktuálním grafickém režimu nabývají barvy pozadí hodnot od 0 do 15.

:[[GetBkColor]] vrátí 0, pokud byla nultá položka palety změněna zavoláním [[SetPalette]] nebo [[SetAllPalette]].

;Viz také
:[[GetColor]]

:[[GetPalette]]

:[[InitGraph]]

:[[SetAllPalette]]

:[[SetBkColor]]

:[[SetColor]]

:[[SetPalette]]


Vzorový příklad

 {Getbkcol.PAS}
 {Vzorový příklad pro funkci 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   { Střídání barev }
       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.
[[Category:Graph]]
[[Category:Funkce Graph]]