GetMaxColor

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání

Vrací nejvyšší číslo barvy, které lze předat proceduře SetColor.

Deklarace
function GetMaxColor: Word;
Režim
Reálný, Chráněný
Poznámky
Například s adaptérem EGA (256K) GetMaxColor vrátí vždycky 15, což znamená, že jakékoli volání SetColor s hodnotou od 0 do 15 bude platné. U adaptéru CGA v režimu vysokého rozlišení nebo u monochromatického adaptéru Hercules vrací GetMaxColor hodnotu 1, neboť tyto adaptéry podporují pouze barvy 0 a 1.
Omezení
Je nutno být v grafickém režimu.
Viz také
SetColor


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.