Правила форума
GetDefaultPalette (функция) (модуль Graph)Язык:
Русский
English
GetDefaultPalette (функция) (модуль Graph)
Возвращает палитру, заданную по умолчанию.
Объявление
Function GetDefaultPalette(Var Palette : PaletteType);
Режим
Real, Protected
Замечания
Функция GetDefaultPalette возвращает запись типа PaletteType, которая содержит палитру в том виде, в котором она была создана графическим драйвером при инициализации графической системы обращением к процедуре InitGraph.
Ограничения
Нужно быть в графическом режиме.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для функции GetDefaultPalette }
uses Crt, Graph;
var
Driver, Mode, I : Integer;
MyPal, OldPal : PaletteType;
begin
DirectVideo := False;
Randomize;
Driver := Detect; { Инициализируем графику }
InitGraph(Driver, Mode, 'X:\BP');
if GraphResult < 0 then
Halt(1);
GetDefaultPalette(OldPal); { Сохраняем старую палитру }
MyPal := OldPal; { Копируем палитру }
{ Выводим текст }
for I := 0 to MyPal.Size - 1 do
begin
SetColor(I);
OutTextXY(10, I * 10, '...Press any key...');
end;
repeat { Меняем палитру }
with MyPal do
Colors[Random(Size)] := Random(Size + 1);
SetAllPalette(MyPal);
until KeyPressed;
SetAllPalette(OldPal); { Восстанавливаем старую палитру }
ClearDevice;
OutTextXY(10, 10, 'Press <Return> to exit ...');
ReadLn;
CloseGraph;
end.
var
Driver, Mode, I : Integer;
MyPal, OldPal : PaletteType;
begin
DirectVideo := False;
Randomize;
Driver := Detect; { Инициализируем графику }
InitGraph(Driver, Mode, 'X:\BP');
if GraphResult < 0 then
Halt(1);
GetDefaultPalette(OldPal); { Сохраняем старую палитру }
MyPal := OldPal; { Копируем палитру }
{ Выводим текст }
for I := 0 to MyPal.Size - 1 do
begin
SetColor(I);
OutTextXY(10, I * 10, '...Press any key...');
end;
repeat { Меняем палитру }
with MyPal do
Colors[Random(Size)] := Random(Size + 1);
SetAllPalette(MyPal);
until KeyPressed;
SetAllPalette(OldPal); { Восстанавливаем старую палитру }
ClearDevice;
OutTextXY(10, 10, 'Press <Return> to exit ...');
ReadLn;
CloseGraph;
end.
::
::
::
