SetColor
Verze z 4. 10. 2012, 16:35, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky)
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
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.