SetAllPalette

Změní všechny barvy palety dle určení.

Deklarace

procedure SetAllPalette(var Palette);

Režim

Reálný, Chráněný

Poznámky

Je nutno být v grafickém režimu. Lze použít pouze s EGA, EGA 64 nebo VGA (ne s IBM 8514 nebo s VGA v režimu 256 barev).

Viz také

GetBkColor

GetColor

GetPalette

GraphResult

SetBkColor

SetColor

SetPalette

Vzorový příklad

{Setallpl.PAS}
{Vzorový příklad pro proceduru SetAllPalette.}
uses Graph;
var
  Gd, Gm: Integer;
  Palette: PaletteType;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, ' ');
  if GraphResult <> grOk then
    Halt(1);
  Line(0, 0, GetMaxX, GetMaxY);
  with Palette do
  begin
    Size := 4;
    Colors[0] := 5;
    Colors[1] := 3;
    Colors[2] := 1;
    Colors[3] := 2;
    SetAllPalette(Palette);
  end;
  Readln;
  CloseGraph;
end.