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