Změny

Skočit na navigaci Skočit na vyhledávání

GetMaxColor

Přidáno 1 051 bajtů, 4. 10. 2012, 16:21
Created page with "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 a..."
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.
[[Category:Graph]]
[[Category:Funkce Graph]]

Navigační menu