GetColor: Porovnání verzí
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...") |
m (1 revízia: Unit Graph) |
(Žádný rozdíl)
| |
Verze z 4. 10. 2012, 17:01
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
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.
