1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
Created page with "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 ak..."
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:Procedúry Graph]]
;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:Procedúry Graph]]
