GetColor: 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:Procedúry Graph]]
+
[[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
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.