SetBkColor

Z Delphi & Pascal (česká wiki)
Verze z 4. 10. 2012, 16:35, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (Created page with "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 ...")
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
Skočit na navigaci Skočit na vyhledávání

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.