GetColor

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.