SetColor: Porovnání verzí

Z Delphi & Pascal (česká wiki)
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:Funkce Graph]]
+
[[Category:Procedúry Graph]]

Aktuální verze z 4. 10. 2012, 17:12

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.