Процедура SetAllPalette
Модуль Graph
Изменяет все цвета в палитре на заданные.
Объявление:
Procedure SetAllPalette(Var Palette);
Режим:
Замечания:
Нужно быть в графическом режиме. Может использоваться только на EGA, EGA 64
или (S)VGA (не IBM 8514 или (S)VGA в режиме более 16 цветов).
Пример:
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.
Пример программы: setallpl.pas
См. также: