1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
bez shrnutí editace
Nastaví aktuální kreslící barvu pomocí palety.
;Deklarace
procedure SetColor(Color: Word);
;Režim
:Reálný, Chráněný
;Poznámky
:[[SetColor]](5) nastaví jako aktuální pátou barvu v paletě. Kreslící barvy nabývají hodnot od 0 do 15, v závislosti na aktuálním grafickém adaptéru a aktuálním grafickém režimu.
:Nejvyšší platné číslo barvy pro aktuální driver a režim vrací funkce [[GetMaxColor]].
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[DrawPoly]]
:[[GetBkColor]]
:[[GetColor]]
:[[GetPalette]]
:[[SetAllPalette]]
:[[SetBkColor]]
:[[SetPalette]]
Vzorový příklad
{Getmxcol.PAS}
{Vzorový příklad pro funkce GetMaxColor a SetColor.}
uses
Crt, Graph;
var
GraphDriver, GraphMode : Integer;
begin
GraphDriver := Detect;
InitGraph(GraphDriver, GraphMode, ' ');
if GraphResult <> grOk then Halt(1);
Randomize;
repeat
SetColor(Random(GetMaxColor)+1);
LineTo(Random(GetMaxX), Random(GetMaxY));
until KeyPressed;
end.
[[Category:Graph]]
[[Category:Funkce Graph]]
;Deklarace
procedure SetColor(Color: Word);
;Režim
:Reálný, Chráněný
;Poznámky
:[[SetColor]](5) nastaví jako aktuální pátou barvu v paletě. Kreslící barvy nabývají hodnot od 0 do 15, v závislosti na aktuálním grafickém adaptéru a aktuálním grafickém režimu.
:Nejvyšší platné číslo barvy pro aktuální driver a režim vrací funkce [[GetMaxColor]].
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[DrawPoly]]
:[[GetBkColor]]
:[[GetColor]]
:[[GetPalette]]
:[[SetAllPalette]]
:[[SetBkColor]]
:[[SetPalette]]
Vzorový příklad
{Getmxcol.PAS}
{Vzorový příklad pro funkce GetMaxColor a SetColor.}
uses
Crt, Graph;
var
GraphDriver, GraphMode : Integer;
begin
GraphDriver := Detect;
InitGraph(GraphDriver, GraphMode, ' ');
if GraphResult <> grOk then Halt(1);
Randomize;
repeat
SetColor(Random(GetMaxColor)+1);
LineTo(Random(GetMaxX), Random(GetMaxY));
until KeyPressed;
end.
[[Category:Graph]]
[[Category:Funkce Graph]]
