GetPalette

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

Vrací aktuální paletu a její velikost.

Deklarace
procedure GetPalette(var Palette: PaletteType);
Režim
Reálný, Chráněný
Poznámky
Vrací aktuální paletu a její velikost v proměnné typu PaletteType.
Omezení
Je nutno být v grafickém režimu a lze použít pouze s EGA, EGA 64 nebo [[[VGA]] (ne s IBM 8514 nebo s VGA v režimu 256 barev).


Viz také
SetAllPalette
SetPalette


Vzorový příklad

 {Getplt.PAS}
 {Vzorový příklad pro proceduru GetPalette.}
 uses Graph;
 var
   Gd, Gm: Integer;
   Color: Word;
   Palette: PaletteType;
 begin
   Gd := Detect;
   InitGraph(Gd, Gm, ' ');
   if GraphResult <> grOk then
     Halt(1);
   GetPalette(Palette);
   if Palette.Size <> 1 then
     for Color := 0 to Pred(Palette.Size) do
     begin
       SetColor(Color);
       Line(0, Color * 5, 100, Color * 5);
     end
   else
     Line(0, 0, 100, 0);
   Readln;
   CloseGraph;
 end.