GetColor: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
m (1 revízia: Unit Graph) |
|||
Řádek 50: | Řádek 50: | ||
end. | end. | ||
[[Category:Graph]] | [[Category:Graph]] | ||
− | [[Category: | + | [[Category:Funkce Graph]] |
Aktuální verze z 4. 10. 2012, 17:14
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.