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
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.