GetPaletteSize

Z Delphi & Pascal (česká wiki)
Verze z 4. 10. 2012, 17:01, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Unit Graph)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
Skočit na navigaci Skočit na vyhledávání

Vrací velikost vyhledávací tabulky barev palety.

Deklarace
function GetPaletteSize: Integer;
Režim
Reálný, Chráněný
Poznámky
GetPaletteSize oznámí, kolik položek palety může být nastaveno pro aktuální grafický režim; např. EGA v barevném režimu vrátí hodnotu 16.
Omezení
Je nutno být v grafickém režimu.
Viz také
GetMaxColor
GetPalette
SetPalette


Vzorový příklad

 {Getpltsz.PAS}
 { Vzorový příklad pro GetPaletteSize }
 uses Graph;
 var
   Driver, Mode : Integer;
 begin
   Driver := Detect;
   InitGraph(Driver, Mode, ' ');
   if GraphResult < 0 then Halt(1);
   SetColor(1);
   OutText('Color = 1, ');
   SetColor(GetPaletteSize - 1);
   OutText('Color = Max');
   ReadLn;
   Closegraph;
 end.