Правила форума
SetAllPalette (процедура) (модуль Graph)Язык:
Русский
English
SetAllPalette (процедура) (модуль Graph)
Изменяет все цвета в палитре на заданные.
Объявление
Procedure SetAllPalette(Var Palette);
Режим
Real, Protected
Замечания
Нужно быть в графическом режиме. Может использоваться только на EGA, EGA 64 или (S)VGA (не IBM 8514 или (S)VGA в режиме более 16 цветов).
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедуры SetAllPalette }
uses Graph;
var
Gd, Gm : Integer;
Palette : PaletteType;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
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.
var
Gd, Gm : Integer;
Palette : PaletteType;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
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.
::
::
::
