1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
Created page with "Vrací hodnotu kreslicí barvy. ;Deklarace function GetColor: Word; ;Režim :Reálný, Chráněný ;Poznámky :Kreslicí barvy nabývají hodnot v rozsahu od 0 do 15, v z..."
Vrací hodnotu kreslicí barvy.
;Deklarace
function GetColor: Word;
;Režim
:Reálný, Chráněný
;Poznámky
:Kreslicí barvy nabývají hodnot v rozsahu od 0 do 15, v závislosti na aktuálním grafickém driveru a aktuálním grafickém režimu.
;Viz také
:[[GetBkColor]]
:[[GetPalette]]
:[[InitGraph]]
:[[SetAllPalette]]
:[[SetColor]]
:[[SetPalette]]
Vzorový příklad
{Getcolor.PAS}
{Vzorový příklad pro funkci GetColor.}
uses Graph, Crt;
var
Gd, Gm: Integer;
Color: Word;
Pal: PaletteType;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
Randomize;
GetPalette(Pal);
repeat
Color := Succ(GetColor);
if Color > Pal.Size - 1 then
Color := 0;
SetColor(Color);
LineTo(Random(GetMaxX), Random(GetMaxY));
until KeyPressed;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;Deklarace
function GetColor: Word;
;Režim
:Reálný, Chráněný
;Poznámky
:Kreslicí barvy nabývají hodnot v rozsahu od 0 do 15, v závislosti na aktuálním grafickém driveru a aktuálním grafickém režimu.
;Viz také
:[[GetBkColor]]
:[[GetPalette]]
:[[InitGraph]]
:[[SetAllPalette]]
:[[SetColor]]
:[[SetPalette]]
Vzorový příklad
{Getcolor.PAS}
{Vzorový příklad pro funkci GetColor.}
uses Graph, Crt;
var
Gd, Gm: Integer;
Color: Word;
Pal: PaletteType;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
Randomize;
GetPalette(Pal);
repeat
Color := Succ(GetColor);
if Color > Pal.Size - 1 then
Color := 0;
SetColor(Color);
LineTo(Random(GetMaxX), Random(GetMaxY));
until KeyPressed;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]
