GetPalette

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.