1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
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 ..."
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.
[[Category:Graph]]
[[Category:Funkce Graph]]
;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.
[[Category:Graph]]
[[Category:Funkce Graph]]
